<%
' read the previous visit
last_here = Request.Cookies("User")("last_here_date")
' save the new visit
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 ("Hello! You have not been here since ")
Response.Write (last_here)
else
Response.Write ("Wellcome!")
end if
%>