% 'Author: Leigh option explicit 'Client Side Info dim txtBrowser dim txtBrowserVersion dim txtPlatform dim txtOSDetails Call procBrowserCheck() Call procPlatformOSCheck() 'If the referring page is not null and the broken link is not in the ged2 subweb, 'send an e-mail message to the webmaster with info about the 404 Error if len (Request.ServerVariables("HTTP_REFERER")) <> 0 and instr(Request.ServerVariables("QUERY_STRING"), "ged2") = 0 and instr(Request.ServerVariables("QUERY_STRING"), "Rejected-By-UrlScan") = 0 and instr(Request.ServerVariables("QUERY_STRING"), "cgi-bin") = 0 and txtBrowser <> "WebTrends" then dim objEmailMessage set objEmailMessage = server.CreateObject("CDONTS.NewMail") with objEmailMessage .From = "webmaster@culpepper.com" .To = "warren@culpepper.com" '.Bcc = "leigh@culpepper.com" .Subject = "Gen.Culpepper.com HTTP Error 404" .Importance = 2 .Body = ("Referring Page: " & Request.ServerVariables("HTTP_REFERER") & chr(13) & chr(13) & "Broken Link: " & Request.ServerVariables("QUERY_STRING") & chr(13) & chr(13) & "Client's Browser: " & txtBrowser & " " & txtBrowserVersion & chr(13) & "Client's Platform/OS: " & txtPlatform & " " & txtOSDetails & chr(13) & chr(13) & "REMOTE_ADDR: " & Request.ServerVariables("REMOTE_ADDR") & chr(13) & "REMOTE_HOST: " & Request.ServerVariables("REMOTE_HOST") & chr(13) & "REMOTE_USER: " & Request.ServerVariables("REMOTE_USER") & chr(13) & chr(13) & "ALL_HTTP: " & Request.ServerVariables("ALL_HTTP") & chr(13) & chr(13) & "ALL_RAW: " & Request.ServerVariables("ALL_RAW") & chr(13)) .Send end with set objEmailMessage = nothing end if %>
Culpepper Connections!The Culpepper Family History SiteThe content you are seeking is likely still available, but you have reached this page because of a reorganization of our web site. Names. If you are looking for information on a particular person:
Places and Place Photos.
Historical Facts and Biographies.
Last Revised: 18 Oct 2006 |