<% 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.

We would love to hear from you, please let us know if you have any suggestions or especially if you wish to send us pictures of your cute cats. We get pictures of cute cats all the time and we love to post them and share them with our visitors. It's hard for us to keep up with the daily cute cat pictures so we love to get as many emails as possible.

attachments

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)
 

Thanks for visiting the cute cat pictures contact page, we hope you are sending us pics of your cute kitties so we can post them on our homepage in our daily updates !

After submitting we will get back to you as soon as possible, This website is a little side project for us so sometimes it takes a few days to get to all the emails and respond, but we will !