<%
'Form submission
If Request.QueryString("submit") = "t" then
'Get form fields
emlBody = "Message sent " & Date() & " at " & Time() & vbcrlf & vbcrlf &_
"Name: " & Request.Form("name") & vbcrlf &_
"Address: " & Request.Form("address") & vbcrlf &_
Request.Form("address2") & vbcrlf &_
Request.Form("city") & ", " & Request.Form("state") & ", " & Request.Form("zip") & vbcrlf &_
"Phone: " & Request.Form("phone") & vbcrlf &_
"Add. Phone: " & Request.Form("phone2") & vbcrlf &_
"Email: " & Request.Form("email") &_
vbcrlf & vbcrlf & _
">> How would you describe your personality? " & vbcrlf & Request.Form("personality") & vbcrlf & vbcrlf &_
">> How would you describe your lifestyle at home? " & vbcrlf & Request.Form("lifestyle") & vbcrlf & vbcrlf &_
">> What do you love most about your home? " & vbcrlf & Request.Form("loveabout") & vbcrlf & vbcrlf &_
">> How long do you plan to live in your home? " & vbcrlf & Request.Form("plantolive") & vbcrlf & vbcrlf &_
">> What area/s of your home do you want to transform with color? " & vbcrlf & Request.Form("transformareas") & vbcrlf & vbcrlf &_
">> What features do you want to either hide or enhance with color? " & vbcrlf & Request.Form("changefeatures") & vbcrlf & vbcrlf &_
">> What mood or feeling do you most want to create? " & vbcrlf & Request.Form("createmood") & vbcrlf & vbcrlf &_
">> Describe colors you most enjoy living with in your home: " & vbcrlf & Request.Form("likecolors") & vbcrlf & vbcrlf &_
">> Describe any colors you don't want to have in your home: " & vbcrlf & Request.Form("dislikecolors") & vbcrlf & vbcrlf &_
">> Describe furnishings and/or surfaces in your home that will be key to your Color Transformation: " & vbcrlf & Request.Form("keyfurnishings") & vbcrlf & vbcrlf &_
">> Describe any changes your will be making to key furnishings and/or surfaces along with your Color Transformation? " & vbcrlf & Request.Form("changefurnishings") & vbcrlf & vbcrlf &_
">> What days and times are best for scheduling your Color Transformation? " & vbcrlf & Request.Form("scheduling")
Dim MyBody
Dim MyCDONTSMail
'relay-hosting.secureserver.net
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= "system@thedesignsourceltd.com"
MyCDONTSMail.To= "dkuhn@thedesignsourceltd.com"
MyCDONTSMail.To= "kkeller@thedesignsourceltd.com"
MyCDONTSMail.Subject="Color Transformation Profile (FORM SUBMISSION)"
MyCDONTSMail.Body= emlBody
MyCDONTSMail.Send
set MyCDONTSMail=nothing
Response.Redirect("confirm.html")
End If
%>
Color Transformation Profile
Please fill out the survey below to help us get to know you and your home. Be sure to click the "Send My Profile" button at the bottom of the page and we will contact you within 24 hours to schedule your color consultation.
