Usuarios en mi página

[HPNeo]

No se si te sirva, pero aqui tengo una muestra de cookies:

Código:

 
<%
Dim visit
'Pregunto si el form se relleno recien.
If Request.Form <> "" then
Response.Cookies("nick").Expires = "1/1/2006"
'Si se cumple, creo las cookies para este usuario nuevo.
Response.Cookies("nick") = Request.Form("login")
End If
'Verifico la existencia de la cookie("nombre").
If Request.Form <> "" then
Response.Cookies("clave").Expires = "1/1/2006"
'Si se cumple, creo las cookies para este usuario nuevo.
Response.Cookies("clave") = Request.Form("clave")
End If
If Request.cookies("nick") = "" OR Request.cookies("clave") = "" then
Response.Redirect "index.asp"
Else
If Request.Cookies("nick") <> "" then
'Si existe la cookie, muestro los datos.
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "forohp"
sql = "SELECT * FROM Alumnos WHERE Nick = '"&Request.Cookies("nick")&"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, oConn
%>
<%
If (RS.EOF = true) then
Response.Write "Ese usuario no existe"
ElseIf RS.Fields("Clave") = Request.cookies("clave") then 
%>
OPCIONES DE USUARIO O SECCION DE DESCARGAS, ETC.
<%
Else 
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If
%>