%@LANGUAGE="VBSCRIPT"%>
<%
If Request.Form <> "" Then
Set myMail = CreateObject("CDONTS.NewMail")
HTML = "*** Prince William Home Improvement Contact Us Form ***
"
HTML = HTML & "Contact Information
"
HTML = HTML & "I am most interested in the following product or products: : " & Request.Form("Products") & "
"
HTML = HTML & "Name: " & Request.Form("Name") & "
"
HTML = HTML & "Best way to contact me: " & Request.Form("contact_Me") & "
"
HTML = HTML & "Best time: " & Request.Form("contact_time") & "
"
HTML = HTML & "Telephone Number: " & Request.Form("phone") & "
"
HTML = HTML & "Email Address: " & Request.Form("email") & "
"
HTML = HTML & "How did you hear about us?: " & Request.Form("discover_us") & "
"
HTML = HTML & "If there is additional information you need, use this box to ask! We will get back to you as soon as possible.
" & Request.Form("request") & "
"
myMail.From = Request.Form("Email")
mymail.To = "info@pwhomeimprovement.com "
myMail.Subject = "Prince William Home Improvement Contact Us Form "
myMail.BodyFormat = 0 'sets to HTML format
myMail.MailFormat = 0
myMail.Body = HTML
myMail.Send
Set myMail = Nothing
Response.Redirect("thankyou.asp")
End If
%>