<%
DIM strDate
DIM FirstTime
if Request.cookies.count = 0 then
FirstTime = "true"
else
FirstTime = "false"
strDate = Request.cookies("visitdate")
end if
Response.cookies("visitdate") = Date()
%>
<%
DIM strBGColor
strBGColor = Request.Form("BGColor")
if strBGColor <> "" then
Response.cookies("BGColor") = strBGColor
else
strBGColor = Request.cookies("BGColor")
end if
%>
Cookie Demo
<%
if FirstTime = "true" then
Response.Write "Welcome to our Great Site!"
else
Response.write "Welcome back, your last visit date was: " & strDate & "."
end if
%>
Make our Site Your Way!