<% strcomments = request.form("textarea") strcomments = server.htmlencode(strcomments) 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 = server.HTMLEncode(strcomments) namefrom = server.HTMLEncode(namefrom) strcomments = "Date & Time : " & now() & "
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 %>
Fill Out the form below to send us a message. One of our funny faced monkeys will get back to you as soon as possible.
Your Name:
Your Email: " size="30" />

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

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

Thank you for your interest in emailing us, hopefully you are sending us some funny faces pictures because those are what we are waiting for. We are always looking for the latest funny faces from all over the web so if you have one send it over.