| Gabriel Mejía 2005-02-22, 3:55 pm |
| bob.
I just modified many asp and the way you told me and my web site just
crash again some minutes ago.
the next is the asp modified
Note: (I know that the name of the recodrset is not the most elegant. The
name of the ONLY recordset is "Recordset14" as you can see)
<%
If session("allow") = "" Then
response.redirect("ingresoperador.asp")
end if
response.expires=0
Response.Buffer = True
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "cache-control", "no-store"
'----------------llama el cookie
nombreoficina=Request.Cookies("equipo")("oficina")
nombreequipo=Request.Cookies("equipo")("nombre")
conectacadena="Driver={SQL
Server};server="+session("SGP")+";database="+session("Basedatos")+";uid="+se
ssion("clavesgp")+";pwd="+session("passsgp")
'-------------------------objeto conexion
Set cn = CreateObject("adodb.connection")
cn.open = conectacadena
'---------------------------------------busco el codigo de la oficina que
corresponde al nombre
sql14="SELECT * FROM dbo.tblOficinas WHERE strNombre='" + nombreoficina +
"'"
Set cmd=CreateObject("adodb.command")
cmd.CommandType=1
cmd.CommandText=sql14
Set cmd.ActiveConnection = cn
set Recordset14 = Server.CreateObject("ADODB.Recordset")
Recordset14=cmd.Execute()
'----------------------------------en las siguientes lineas se almcenan las
rutas donde iria a quedar los
' archivos txt con los comprobantes de
impresion y los archivos adjuntos.
session("strRutaComprobantes")=Recordset14("strRutaComprobantes")
session("strRutaAdjuntos")=Recordset14("strRutaAdjuntos")
'Recordset14.close
set Recordset14=nothing
cn.Close
Set cn = nothing
%>
<%
session("dtmfechaaviso")=""
session("numdias")=""
session("tipoclasificado")=""
session("edicion")=""
session("publicacion")=""
session("subdivision")=""
session("idTipoProducto")=""
session("idColor")=""
session("idModulo")=""
session("idTipoEdicion")=""
Session("nombrev")= ""
Session("numeroaviso")=""
Session("nitv")=""
Session("Terminal")=""
Session("Oficina")=""
Session("Seccion")=""
Session("idSubSeccion")=""
Session("idTipoMarca")=""
Session("fondo")=""
Session("borde")=""
Session("titulo")=""
Session("textoTitulo")=""
session("fechas")=""
session("diainicial")=""
nitanterior=Request.QueryString("nitanterior")
telefonoanterior=Request.QueryString("telefonoanterior")
nombreanterior=Request.QueryString("nombreanterior")
direccionanterior=Request.QueryString("direccionanterior")
nombre2anterior=Request.QueryString("nombre2anterior")
%>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<frameset cols="62%,*" frameborder="NO" border="0" framespacing="0">
<frame name="mainFrame" scrolling="NO"
src="datos%20cliente.asp?nitanterior=<%=nitanterior%>&telefonoanterior=<%=te
lefonoanterior%>&nombreanterior=<%=nombreanterior%>&direccionanterior=<%=dir
eccionanterior%>&nombre2anterior=<%=nombre2anterior%>">
<frame name="rightFrame" scrolling="NO" noresize src="eleccion1.asp">
</frameset>
<noframes><body bgcolor="#FFFFFF">
</body></noframes>
</html>
|