<% if Request.Form("action") = "send" then strName = Request.Form("First_Name") &" "& Request.Form("Surname") strAddress = Request.Form("Address1") &"
" _ &Request.Form("Address2") &"
" _ &Request.Form("Address3") &"
" _ &Request.Form("Postcode") &"
" strPhone = Request.Form("Home_Telephone") strMobile = Request.Form("Mobile_Telephone") strEmail = Request.Form("Email_Address") strDesc = Request.Form("Description") strVisit = "" for i=1 to Request.Form("Visit").count strVisit = strVisit&Request.Form("Visit")(i)&"
" next strBody = "Request A Valuation" _ &"" _ &"Request a Valuation" _ &"" _ &"" _ &"" _ &"" _ &"" _ &"" _ &"" _ &"" _ &"
Name:"&strName&"
Address:"&strAddress&"
Phone:"&strPhone&"
Mobile:"&strMobile&"
E-mail:"&strEmail&"
Description:"&strDesc&"
Visit:"&strVisit&"
" _ &"" strFrom = "valuations@matthewnicholas.co.uk" strTo = "enquiries@matthewnicholas.co.uk" 'dan.j.phipps@googlemail.com strSubject = "Request a Valuation with Matthew Nicholas Estate Agents" 'cdontsSendMail strFrom,strTo,strSubject,strBody cdoSendMail strFrom,strTo,strSubject,strBody strActionResult = "" _ &"" _ &"" _ &"

Thank you for your valuation request.
We will contact you as soon as possible.

" else strActionResult = "Request a Valuation
To meet your property requirements, we require some brief information from you.
" _ &"Please take the time to fill in your requirments, in order for us to send the correct properties." end if %>

Request a Valuation

       
       
     

<%=strActionResult%>

First Name:

Surname:

Address:

Postcode:

Home Telephone:

Mobile Telephone:

Email Address:

Brief Description of your property:

Weekdays

Weekends

 

Mornings

Afternoons

Evenings