<% if request.form("sitede") <> "" then response.redirect("http://www.google.com") if request.form <> "" AND blnCAPTCHAcodeCorrect then if session("sendmailcount") = "" then session("sendmailcount") = 0 session("sendmailcount") = session("sendmailcount") + 1 if session("sendmailcount") > 3 then response.redirect(Application("url")) strcomments = request.form("textarea") namefrom = request.form("name") strcomments = replace(strcomments, "<", "#") strcomments = replace(strcomments, ">", "#") strcomments = replace(strcomments, "'", "#") strcomments = server.HTMLEncode(strcomments) namefrom = replace(namefrom, "<", "#") namefrom = replace(namefrom, ">", "#") namefrom = replace(namefrom, "'", "#") namefrom = replace(namefrom, "Name : " & request.form("nametxt") & "

" & strcomments strcomments = replace(strcomments, vbCrLf, "
") sTo = application("emailto") sFrom = request.form("email") sSubject = "Email From " & Application("title") sTextBody = strcomments & "

This email was submitted from IP address: " & Request.ServerVariables("REMOTE_ADDR") & "" Dim objMail, objMailConf Set objMail = Server.CreateObject("CDO.Message") Set objMailConf = Server.CreateObject("CDO.Configuration") objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1" objMailConf.fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 objMailConf.Fields.Update Set objMail.Configuration = objMailConf 'Set key properties objMail.From = sFrom objMail.To = sTo objMail.Subject= sSubject objMail.HTMLBody = sTextBody 'Send the email objMail.Send 'Clean-up mail object response.Redirect("contact_sent.htm") end if %> <%=Application("title")%> - Email Us this is where you do it | Use this page to shoot us an email (hopefully with some hockey games attached)." />

Email Form - <%=Application("title")%>

Fill this form out below to shoot us over an email.

    Your Name:
    Your Email: " id="email" />

    Comments/Questions or to just yell at me for something :

    Prove you are Human.
    (write the text
    you see in the box)
     
     

    Thanks for your interest in contact all hockey games , we are happy to hear from you and glad you have taken enough interest in our all hockey games website to send us some email. Someone from our staff will get back to you in a timely fashion. Feel free to send us links to any new or cool hockey games we have not yet posted as we would love to play them and possibly post them for others to enjoy.

    Or you can return to the hockey games home page