iBGC

<% dim error 'dim d3conexion 'dim d3grabar dim d3error Session("ID")="" Session("User")="" Session("Number")="" Session("User")="EUS" Session("Tit")=Request.QueryString ("Tit") error="000" on error resume next err.Clear Set d3conexion = d3entorno.brOpenConnection("ODBC", "e_ebgc") if err.number = 0 then d3error="000" Set d3grabar = d3conexion.brOpenRuleModule("e_ebgc,pmp_bp, f.entrada") d3grabar.brCall Session("User"),d3error,session.SessionID d3conexion.brCloseRuleModule(d3grabar) Set d3grabar = Nothing if d3error="901" then error="901" else d3error="000" Dim texto(1, 2) Dim frase Dim fecha Dim n Dim itemtit Dim itemtema Set vftitulos = d3conexion.brOpenFile("titulos") Set bftitulo = d3entorno.brOpenDynamicArray("") fecha = Date frase = "sselect titulos by-dsnd fecha by-dsnd codigo with fecha <= \" & fecha & "\ and with grupo = \06\" Set lsttitulos = d3conexion.brOpenSelectList(frase) n = 0 Do While lsttitulos.brReadnext(itemtit) n = n + 1 If n = 2 Then Exit Do end If Set bftitulo = vftitulos.brRead(itemtit) texto(0, 0) = bftitulo.brExtractStr(1) texto(0, 1) = bftitulo.brExtractStr(13) Loop d3conexion.brCloseFile(vftitulos) d3conexion.brCloseSelectList(lsttitulos) Set lsttitulos = Nothing Set vftitulos = Nothing Set bftitulo = Nothing end if d3entorno.brCloseConnection(d3conexion) else error=103 end if Set d3conexion = Nothing if error <> "000" then session.Abandon Response.Redirect "error.asp?error=" & error end if %> iBGC