<%
' leggo la visita precedente
last_here = Request.Cookies("User")("last_here_date")
' salvo la nuova visita
Response.Cookies("User").Path = "/"
Response.Cookies("User").Expires = dateAdd("d", 45, Now())
Response.Cookies("User")("last_here_date") = Now()
if isDate(last_here) then
  Response.Write ("Bentornato! La tua ultima visita risale al ")
  Response.Write (last_here)
else
  Response.Write ("Benvenuto!")
end if
%>