<% 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.
Contact Information
First Name:
Last Name:
Broker or Office Name:
Office Telephone:
Mobile Telephone:
Email Address:
Property Information
MLS #
Property Address:
City:
ZIP Code:
Directions:
Scheduling
The following information will help us arrange a time that is most convenient for you. Please use the "Special Instructions" box to indicate any particular date(s) that you have in mind. Our photographers will do their best to work around your busy schedule.
When is the most convenient time of day for you (in general)?
Special Instructions/Comments:


<% End If %>