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