<% on error resume next if request.querystring("Page").count=1 then PG=request.querystring("Page") Else PG="Home.asp" end if %>
<% Set mail = Server.CreateOBject( "JMail.Message" ) mail.silent = true CURL = Request.ServerVariables("REMOTE_ADDR") Page = PG If Header = "" then for each x in Request.Cookies Header = Header & x & chr(9) FieldData = FieldData & Request.Cookies(x) & chr(9) C = C+1 if C=1 then mail.Subject = "Revisiting " & Page end if next End If NW = Now() If mail.Subject = "" then mail.Subject = "UnKnown Visitor to: " & Page response.cookies("First Contact") = NW response.cookies("First Contact").Expires = Date() + (365 * 5) End if Header = "Page" & chr(9) & Header & "IPAddress" & chr(9) & "DateStamp" & VBCrLf BodyText = Header & Page & chr(9) & FieldData & CURL & chr(9) & NW mail.FromName = Page mail.From = "clicks@phcindustries.com" mail.AddRecipient "george@fortuneflow.com" mail.Body = BodyText sent = mail.Send("2k3mail.siteprotect.com") Set mail = Nothing %>

Copyright 2014 PHC Industries, Inc.