|
<%
If Request("Submit") <> "" Then
'send email to admin
Set Mailer = CreateObject("CDO.Message")
Mailer.From = "eric@realestatevideos.com"
Mailer.To = "sales@realestatevideos.com"
'Mailer.To = "valerie@tortugatech.com"
Mailer.Subject = "Order Form Completed Online"
body = "An order form was completed online." & vbCRLF & vbCRLF
body = body & "Name: " & Request("firstname") & " " & Request("lastname") & vbCRLF & vbCRLF
body = body & "Broker or Office Name: " & Request("officename") & vbCRLF & vbCRLF
body = body & "Office Phone: " & Request("officephone") & vbCRLF & vbCRLF
body = body & "Mobile Phone: " & Request("mobilephone") & vbCRLF & vbCRLF
body = body & "Email: " & Request("email") & vbCRLF & vbCRLF
body = body & "MLS #: " & Request("mls") & vbCRLF & vbCRLF
body = body & "Property Address: " & Request("propertyaddress") & vbCRLF & vbCRLF
body = body & "City: " & Request("propertycity") & vbCRLF & vbCRLF
body = body & "ZIP Code: " & Request("propertyzip") & vbCRLF & vbCRLF
body = body & "Directions: " & Request("directions") & vbCRLF & vbCRLF
body = body & "Best Time: " & Request("time") & vbCRLF & vbCRLF
body = body & "Comments: " & Request("Comments") & vbCRLF & vbCRLF
Mailer.TextBody = body
Mailer.Send
%>
Thanks! We'll contact you soon.
<%
Else
%>
Please provide the following information. We will
contact you promptly to schedule your virtual tour.
<%
End If
%>
|
||