<% 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. Cool Pics are always accepted!
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)
 

Please us this form to sen cool pictures an email. We appreciate your feedback and would love to hear what you have to say about our cool pictures archive. Also please send us links to your favorite cool pictures or cool scenery or anything else you want to send us to take a look at. Sometimes the best cool pictures we get are ones submitted by our visitors and we look forward to hearing from you !