<% 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 %> Email <%=Application("title")%> - Contact Us | Use this page to shoot the fishing games zone an email." />
Send us an email

 

Link Exchange Form - want to trade links with us?

Everybody else with comments, questions or anything else...

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 contacting us about our fishing games zone. We are always on the lookout for the latest and greatest fishing games so if you know of any please let us know. We are always interested in updating and having all of the newest free fishing games on the web. Thanks for you inquiry.

Or you can click here to return to the fishing games home page.