23/12/2004, 11:45
|
 | Colaborador | | Fecha de Ingreso: febrero-2001 Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 2 meses Puntos: 535 | |
Pues si, encontré otras cosas. El código debería quedar +- así:
Código:
<%
Option Explicit
dim dbname
dim ci
dim conntemp, cnpath, sqltemp, rstemp
dbname="database.mdb"
ci=request.form("txtUserid")
set conntemp=server.createobject("adodb.connection")
cnpath="DBQ=" & server.mappath(dbname)
conntemp.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
sqltemp="select nombre from members where cedula=" & ci
set rstemp=conntemp.execute(SQLTemp)
If rstemp.eof then
rstemp.close
conntemp.close
set rstemp=nothing
set conntemp=nothing
Session("Message") = "Alumno no encontrado. Intente de Nuevo"
response.redirect "principal.asp"
Else
'session("message2")=rstemp("cedula")
'session("securitylevel")=rstemp("securitylevel")
'response.write "Security Level=" & session("securitylevel")
'Session.Timeout = 20
Session("LoggedIn") = "yes"
response.write "Bienvenido " & rstemp("nombre")
response.redirect "destination.3.asp" 'si hacés un response.redirect, el response.write anterior no se va a efectuar
rstemp.close
conntemp.close
set rstemp=nothing
set conntemp=nothing
End if
%>
__________________
...___... |