Contact Animal Cuddles:

By Mail: Animal Cuddles, LLC 222 Cahaba River Parc Birmingham, AL 35243

Sales Department: Jason Pratt, President/CEO Phone: (312) 953-9130 Fax: (208) 441-4004

<%if request("mail") = "" then%>

Email Us:
Your Name:
Your Phone:
Your Email:
Subject:	Select One... Sales Billing Shipping Other
Message:

<% else ' validate required fields email = request("email") email = trim(email) full_name = request("full_name") subject = request("subject") phone = request("phone") comments = request("comments") dim objMail valid = true errmsg = "

There were some problems with the form you just submitted:

" if not validemail(email) then valid = false errmsg = errmsg & "
• You did not enter a valid email address." end if if full_name = "" then valid = false errmsg = errmsg & "
• You did not enter your name." end if if phone = "" then valid = false errmsg = errmsg & "
• You did not enter your phone number." end if if subject = "#" then valid = false errmsg = errmsg & "
• You did not select a subject." end if if comments = "" then valid = false errmsg = errmsg & "
• You did not enter your comments to us." end if errmsg = errmsg & "

" if not valid then response.write errmsg else emailonly = request("emailonly") if emailonly = "on" then emailonly = "yes" else emailonly = "no" End if ' New email dim MessageBody MessageBody = "AnimalCuddles.com Contact Us: " + request("subject") + VbCrLf MessageBody = MessageBody + "====================================" + VbCrLf MessageBody = MessageBody + "Name: " + request("full_name") + VbCrLf MessageBody = MessageBody + "Phone: " + request("phone") + VbCrLf MessageBody = MessageBody + "Email: " + request("email") + VbCrLf MessageBody = MessageBody + " " + VbCrLf MessageBody = MessageBody + "Comments: " + VbCrLf MessageBody = MessageBody + request("comments") + VbCrLf MessageBody = MessageBody + "====================================" + VbCrLf Set myMailer = CreateObject("CDO.Message") myMailer.To = "jpratt@future150.com" myMailer.From = "no-reply@animalcuddles.com" myMailer.ReplyTo = full_name + "<" + email + ">" myMailer.Subject = "AnimalCuddles.com Contact Us: " + request("subject") myMailer.TextBody = MessageBody set objConfig = CreateObject("cdo.configuration") set Flds = objConfig.Fields Flds.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "secure13.win.hostgator.com" Flds.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 Flds.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 Flds.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true Flds.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "no-reply@animalcuddles.com" Flds.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "W?p9X7KNnAqt/6bDC]HubCMJzGKyBN" Flds.Update set myMailer.Configuration = objConfig myMailer.Send set myMailer = nothing ' Print confirmation message %>

Your message was sent.
We will be in touch with you shortly.

Return Home

<% end if end if %>