Problema con variable de Sesion

18/10/2006 - 19:54 por Allan | Informe spam
Hola Comunidad, me vuelvo dirigir a ustedes por otro problemita que tengo :$
y es el siguiente: Tengo un site realizado en asp con base de datos access y
lo estoy implementando en un windows 2000 server. el prroblema ocurre cuando
en la pagina de inicio (index.asp) en el cual esta el login ,para ingresar,
creo unas variables de session tales como id del login(base de datos),login,
etc. si la persona existe en la base de datos... cual es mi sorpresa cuando
paso del login y entro en el home del site.. que no se crearon las varibles
de session.. les pongo a continuacion parte del codigo a ver si me logran
ayudar o guiarme, gracias.

<%
Dim TheMessage, RSFindUser
if Request.form"Ingresar") = "Ingresar" then
%>
<!--#include file="Connections/db.asp" -->
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open(MM_db_STRING)

set RSFindUser = conn.Execute("select id_login, login, admin, mensaje from
usuarios where login = '" & Request.Form("Login") & "' and password = '" &
Request.Form("Pass") & "'")
if RSFindUser.EOF then
TheMessage = "Usuario inexistente o contraseña incorrecta."
else
Session("id") = RSFindUser("id_login")
caso = RSFindUser("admin")
response.Write(caso)
select case caso
case 2:
Session("admi") = "Super Administrador"
case 1:
Session("admi") = "Administrador"
case else:
Session("admi") = "Usuario"
end select
'Session("admin") = RSFindUser("admin")
Session("login") = RSFindUser("login")
Session("Mensaje") = RSFindUser("mensaje")
Session("Admin") = RSFindUser("admin")
response.Write(Session("admi"))
set RSFindUser = nothing
conn.close
set conn = nothing
Response.Redirect "home.asp"
end if
set RSFindUser = nothing
conn.close()
set conn = nothing
else
TheMessage = " "
end if
%>
 

Leer las respuestas

#1 Manuel Vera
18/10/2006 - 20:30 | Informe spam
Revisa que en tu navegador web se estan aceptando las cookies.
Si tienes deshabilitadas las cookies no podras utilizar las variables de
Session() en ese navegador.

Salu2
MV

"Allan" escribió en el mensaje
news:
Hola Comunidad, me vuelvo dirigir a ustedes por otro problemita que tengo
:$
y es el siguiente: Tengo un site realizado en asp con base de datos access
y
lo estoy implementando en un windows 2000 server. el prroblema ocurre
cuando
en la pagina de inicio (index.asp) en el cual esta el login ,para
ingresar,
creo unas variables de session tales como id del login(base de
datos),login,
etc. si la persona existe en la base de datos... cual es mi sorpresa
cuando
paso del login y entro en el home del site.. que no se crearon las
varibles
de session.. les pongo a continuacion parte del codigo a ver si me logran
ayudar o guiarme, gracias.

<%
Dim TheMessage, RSFindUser
if Request.form"Ingresar") = "Ingresar" then
%>
<!--#include file="Connections/db.asp" -->
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open(MM_db_STRING)

set RSFindUser = conn.Execute("select id_login, login, admin, mensaje from
usuarios where login = '" & Request.Form("Login") & "' and password = '" &
Request.Form("Pass") & "'")
if RSFindUser.EOF then
TheMessage = "Usuario inexistente o contraseña incorrecta."
else
Session("id") = RSFindUser("id_login")
caso = RSFindUser("admin")
response.Write(caso)
select case caso
case 2:
Session("admi") = "Super Administrador"
case 1:
Session("admi") = "Administrador"
case else:
Session("admi") = "Usuario"
end select
'Session("admin") = RSFindUser("admin")
Session("login") = RSFindUser("login")
Session("Mensaje") = RSFindUser("mensaje")
Session("Admin") = RSFindUser("admin")
response.Write(Session("admi"))
set RSFindUser = nothing
conn.close
set conn = nothing
Response.Redirect "home.asp"
end if
set RSFindUser = nothing
conn.close()
set conn = nothing
else
TheMessage = " "
end if
%>

Preguntas similares