<%response.expires="0"%>
<%
if formatdatetime(request.cookies("mfjhuset")("LastVisit")) > "" then
TheLastVisitDate = formatdatetime(request.cookies("mfjhuset")("LastVisit"),2)
else
TheLastVisitDate = cdate("1970-01-01")
end if
Response.Cookies("mfjhuset")("LastVisit") = now()
if request.Cookies("mfjhuset")("Visits") = "" then
Response.Cookies("mfjhuset")("Visits") = 1
else
Response.Cookies("mfjhuset")("Visits") = request.Cookies("mfjhuset")("Visits") + 1
end if
Response.Cookies("mfjhuset").Expires = "2010-05-01"
if not TheLastVisitDate = formatdatetime(now(),2) then
strSQL="select * from tbl_VisitLogg"
rs.Open strSQL,cn,2,3
rs.AddNew
rs("TimeStamp") = now
rs("ip") = request("remote_addr")
rs("SessionID") = session.sessionID
rs("from") = Request.ServerVariables("HTTP_REFERER")
'rs("TotalHits") = TotalHits
rs.Update
rs.Close
end if
%>
www.mockfjardshuset.se