, Shoot us an email. Send Funny Monkey Site an email about some monkey business. "/> " /> <% badcaptcha = 0 response.write badcaptcha if request.form("sitede") <> "" then response.redirect("http://www.google.com") if not blnCAPTCHAcodeCorrect and request.form <> "" then badcaptcha = 1 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 response.write badcaptcha %>

Contact Us



Please fill out the form below to contact us.

<% if badcaptcha = 1 then%>

You have entered the CAPTCHA Incorrectly, please try again

<% end if%>
Your Name:
Your Email: " size="30" /> A value is required.Invalid format.A value is required.Invalid format.

Comments/Questions :
Prove you are Human.
(write the text
you see in the box)
 

Return to the <%=Application("sitetitle")%> Home Page