no funciona la cookie

[RossanaIsabel]

Hola
Tengo este código, el problema es que las cookies de abajo no toman el valor y cuando las llamo de otra página no se imprimen
Set RS3 = Server.CreateObject("ADODB.Recordset")
RS3.open "usuario_activo", conexion, 1

RS3.movefirst
Do while not RS3.eof= true
if RS3("usuario") = nombreusuario then
horaentrada = RS3("hora")
fechaentrada = RS3("fecha")
exit do
else
RS3.movenext
end if
loop%>


response.cookies("horaentrada") = horaentrada
response.cookies("fechaentrada") = fechaentrada

esto lo coloco en otra página

<h6>Última visita: El <%=request.cookies("fechaentrada")%> a las <%=request.cookies("horaentrada")%> </h6>

Si alguien puede ver cuál es el problema.

Saludos

[Moises22]

hola creo que no has creado las variables horaentrada y fechaentrada. Pon al principio del codigo:

Dim fechaentrada,horaentrada

y prueba porque puede que sea de eso

[3pies]

No estoy muy seguro, pero por mi propia experiencia, creo que si no le pones plazo de expiración a la cookie, al finalizar la carga de la página, la cookie desaparece, con lo cual, cuando la llamas desde la otra página, no puedes recuperar nada. Si la llamas desde esa misma página (la misma desde donde metes la cookie, si que te funcionará). Desde otra página, debes ponerle expiración a la cookie para que siga latente en el pc del cliente.

[RossanaIsabel]

Gracias por sus respuestas

Ahora funciona bien , era que faltaba definirla al principio con DIM.

[Neuron_376]

Prueba esto:

Set RS3 = Server.CreateObject("ADODB.Recordset")
RS3.open "usuario_activo", conexion, 1

horaentrada = "DEFAULT_NUNCA_INICIALIZADA"
fechaentrada = "DEFAULT_NUNCA_INICIALIZADA"

RS3.movefirst
Do while not RS3.eof= true
if RS3("usuario") = nombreusuario then
horaentrada = RS3("hora")
fechaentrada = RS3("fecha")
exit do
else
RS3.movenext
end if
loop%>

Pruebalo para ver que pasa.

Suerte!!