<%@ Language="VBScript"%> <% If Len(Request.Cookies("CID")) <> 0 AND Request.Cookies("CID") = Request.ServerVariables("REMOTE_ADDR") Then Application("PhotoHits") = (Application("PhotoHits") + 1) Else Response.Cookies("CID") = Request.ServerVariables("REMOTE_ADDR") Response.Cookies("CID").Expires = Date + 1 Application("CurrentUser") = (Application("CurrentUser") + 1) Application("PhotoHits") = (Application("PhotoHits") + 1) End If %>