<%@ Language=VBScript %>
<%
Dim NumVisit
Dim UserID
Dim Username
NumVisit = Request.Cookies("cheekyco")("totalvisit")
UserID = Request.Cookies("cheekyco")("user")
Username = Request.Cookies("cheekyco")("name")
If NumVisit = "" Then
NumVisit = 0
End If
If UserID = "" Then
UserID = Session.SessionID
End If
If UserID = "104459373" Then
Username = "Steves Laptop"
End If
NumVisit = NumVisit + 1
Response.Cookies("cheekyco")("totalvisit") = NumVisit
Response.Cookies("cheekyco")("user") = UserID
Response.Cookies("cheekyco").Expires = "January 1,2020"
Response.Cookies("cheekyco").Domain = "www.cheekyink.co.uk"
Response.Cookies("cheekyco")("name") = Username
Response.Cookies("cheekyco").Path = "/"
%>
Cheeky Ink Computer Services
Welcome
<%Response.Write Username%>
Your Visit Log is
<%Response.Write NumVisit%>
Your UserID is
<%Response.Write UserID%>
Your Session ID is
<%Response.Write Session.SessionID%>
