Contact Page." /> <% 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 = 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 %>

Fill out the form to Email Cute Pictures

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 the cutest page. We hope to hear from our visitors from time to time especially when they want to send us new cute pictures. Some of our best cute pictures content comes from our visitors. Thank you for mailing us and someone will be back to you as soon as possible.

Return to the Cute Pictures home page