¿Cual es error?

[edcala]

Simplemente no me lamacena la fecha, no sale ningun error.
<%else
'eliminamos las posibles comillas de la entrada
'para evitar la introducción de sentencias SQL
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
' nos ha devuelto un registro, ahora miraremos si es valido
' con ello evitamos el ataque típico SQL
if rs("usuario")=usuario and rs("password")=password and (rs("NivelUsuario")=2 or rs("NivelUsuario")=1) then
' si el usuario esta en la base de datos y la password coincide
Dim nivel
nivel=rs("NivelUsuario")
Session("acceso")=nivel
autor=rs("usuario")
Session("autorsito")=autor
response.redirect "../RegisPanel.asp"
' grabamos la fecha y hora del último ingreso
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%>