
24/07/2002, 17:21
|
| | Fecha de Ingreso: junio-2002 Ubicación: Buenos Aires, Argentina
Mensajes: 876
Antigüedad: 22 años, 10 meses Puntos: 0 | |
Re: Actualizo browser y se me borra Session AYUDA POR FAVOR!!!
Este es el codigo que utilizo para ingreso de usuarios:
<!--#include file="../Connections/connmysql.asp" -->
<%
Dim RS_ingreso, conexion, nick, password, si
if Request("nick")<>"" then
'si se ha enviado el parametro nick...
nick = Replace(Request("nick"),"'",&q uot;")
password = Replace(Request("password"),"'" ;,"")
'creo el juego de registros RS_ingreso
set RS_ingreso = CreateObject ("ADODB.Recordset")
'creo y abro "conexion" definida en el include
RS_ingreso.ActiveConnection = MM_connmysql_STRING
'conformo RS_ingreso con todos los reg de la bd (teoricamente 1) donde concuerden nick y pass
si="si"
SQL = "Select * from mydb.usuarios where nick LIKE '"&nick&"' and password LIKE '"&password&"' and habilitado='si'"
'abro el juego de registros
RS_ingreso.Open SQL, RS_ingreso.ActiveConnection
'si el juego de registros no esta vacio...
if not RS_ingreso.eof then
'si los request coinciden con los campos...
if lcase(RS_ingreso("nick"))=Lcase(nick) and lcase(RS_ingreso("password"))=lcase(pass word) then
Session("session_nick")=RS_ingreso(" ;nick")
response.redirect "../index/index.asp?"&Session("session_nick&qu ot;)
else
Session("session_nick")=""
response.redirect "desaprobado.asp"
end if
else
Session("session_nick")=""
response.redirect "desaprobado.asp"
end if
RS_ingreso.close
set RS_ingreso=nothing
conexion.close
set conexion=nothing
end if
%>
todo bien, entra, pero si actualizo Session("session_nick") se hace "", COSA QUE NO PASA CUANDO ULTRADEV GENERA ESTE CODIGO.
NOTA: LA PAGINA A LA QUE INGRESO NO TIENE NINGUNA RESTRICCION , ASIQUE EL PROBLEMA NO ESTA AHI SINO ACA |