Problema con cookies

[HPNeo]

Recien entro al tema de cookies y tengo un problema:

Código:

txtlogin = Request.Form("login")
txtclave = Request.Form("clave")
 
response.Cookies("login_hog")=txtlogin
response.Cookies("clave_hog")=txtclave
 
response.cookies("login_hog").expires=Date+7
response.cookies("clave_hog").expires=Date+7
 
If Request.cookies("login_hog") = "" OR Request.cookies("clave_hog") = "" then
Response.Redirect "hogwarts.asp"
Else
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("database.mdb")
sql = "SELECT * FROM Alumnos WHERE Nick = '"& txtlogin &"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, oConn
 
%>

Creo que eso es todo el problema.

Gracias

[lexus]

y cual es el problema?

[lexus]

bueno a simple vista creo no estoy seguro no se puede sumar 7 a una fecha asi como asi con un mas creo qeu debes usar dateadd aqui te pongo un ejemplo de una cookie que uso yo.

Response.Cookies("usuario").expires = Dateadd("n",100, Now())

[HPNeo]

Pues el problema es que cuando trato de entrar a la pagina sin pasar por el formulario, sale un error que da a entender que la pagina no lee las cookies, porque si las crea

[suntus]

si se puede sumar 7 tranquilamente, y ademas el script no deberia dar error, si da error por lo que sea. seguro seguro que si a leido la cookie, porque el Response.Redirect "hogwarts.asp" no tiene posivilidad de error, por lo tanto el error es de la base de datos :D

saludos

[HPNeo]

no creo q el problema este en la base de datos, porque estoy usando por primera vez cookies, y antes pasaba variables por formulario en la misma pagina, creo q falta la parte final.

Código:

 
<%
If (RS.EOF = true) then
Response.Write "Ese usuario no existe"
ElseIf RS.Fields("Clave") = Request.cookies("clave_hog") then 
%>
HTML
<%
Else 
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If
%>
<%
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If
%>