"24.16.134.50" then
' Send Email
Dim JohnMail
Set JohnMail= CreateObject("CDONTS.NewMail")
JohnMail.From = "webmaster@globalpresentations.net"
JohnMail.To = "webmaster@globalpresentations.net"
JohnMail.cc = ""
JohnMail.Subject = strname
JohnMail.Body = Request.ServerVariables("REMOTE_ADDR") & " at " & Now() & vbCrLf & Session("REFERER") & vbCrLf & Request.ServerVariables("PATH_INFO") & vbCrLf & vbCrLf & Request.ServerVariables("ALL_HTTP")
JohnMail.Send
Set JohnMail= Nothing
end if
end if
%>
Global Presentations Index Page
<![CDATA[You need a frames capable browser to view this site. Go <a href="http://www.microsoft.com">Download IE</a> and return]]>