<% Sub RegHit ' sends an email to dsleeth@magma.ca with page name, ip and referer ' just go < % hitalert % > to use it Dim sBody Dim rNewMail Set rNewMail = CreateObject("CDONTS.NewMail") rNewMail.From = "dsleeth@magma.ca" rNewMail.to = "dsleeth@magma.ca" rNewMail.Subject = "HVAC-Talk Hit from Google" sBody = "Hit:" & vbTab & vbTab & Request.ServerVariables("PATH_TRANSLATED") & vbCrLf sBody = sBody & "By:" & vbTab & vbTab & Request.ServerVariables("REMOTE_ADDR") & vbCrLf sBody = sBody & "From:" & vbTab & vbTab & Request.ServerVariables("HTTP_REFERER") & vbCrLf sBody = sBody & "Server:" & vbTab & Request.ServerVariables("SERVER_NAME") & vbCrLf sBody = sBody & "Session(referer): " & Session("referer") rNewMail.Body = sBody Call rNewMail.send Set rNewMail = Nothing End Sub 'RegHit %> HVAC-Talk.com The Bulletin Board for HVAC Contractors and Do It Yourselfers, diy