Ver Mensaje Individual
  #1 (permalink)  
Antiguo 27/01/2005, 18:07
edcala
 
Fecha de Ingreso: diciembre-2004
Mensajes: 207
Antigüedad: 20 años, 4 meses
Puntos: 0
¿Cual es error?

Hola gente, gracis por la respuesta, espero me ayuden.
Al momento de verificar un login, y ver que es correcta el logueo, creo una session y autorizo el ingreso a la página indicada. Al mimo tiempo, quiero grabar el en la base de datos la fecha y hora de ingreso al momento de loguearse. He intentado con el siguiente código y no me sale. ¿Cual es el error y como debería de hacerlo?

<%else
usuario=replace(request.form("usuario"),"'","")
password=replace(request.form("password"),"'","")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../../db/llapanku.mdb"))

set rs = CreateObject("ADODB.Recordset")
sqltxt="Select * from usuarios where usuario='"&usuario&"' and password= '"&password&"'"
rs.Open sqltxt, conn
if not rs.eof then
if rs("usuario")=usuario and rs("password")=password and (rs("NivelUsuario")=2 or rs("NivelUsuario")=1) then
Dim nivel
nivel=rs("NivelUsuario")
Session("acceso")=nivel
autor=rs("usuario")
Session("autorsito")=autor
response.redirect "../RegisPanel.asp"

sqltxt="UPDATE usuarios SET UltimoIngreso='"&now()&"' Where usuario='"&Session("autorsito")&"'"
set RS = Conn.Execute(sqltxt)

end if
else
session("acceso")=-nivel

end if
rs.close
set rs=nothing
conn.close
set conn=nothing

if session("acceso")=-nivel or session("acceso")="" then
' no hemos encontrado el registro
' eso indica que el usuario y/o la password son erroneos
response.redirect "RegisLogin.asp?msg=Usuario%20o%20password%20incor rectos"

end if
end if%>