View: - 342
<% Dim strCookies strCookies = Request.CooKies("ProgrammerGuide")("Visit") if strCookies = "" then Response.Write "Hello, Welcome to my first Cookies page." Response.Cookies("ProgrammerGuide")("Visit") = date Response.Cookies("ProgrammerGuide").Expires = date + 5 Else Response.Write "Welcome Back to my first Cookies page.<BR><BR>" Response.Write "Last Visited:- " & formatdatetime(strCookies, vblongdate) & "." Response.Cookies("ProgrammerGuide")("Visit") = date Response.Cookies("ProgrammerGuide").Expires = date + 5 end if %>
