<%@LANGUAGE="VBSCRIPT"%> <%option explicit%> <% dim booSubmitted dim booValid booSubmitted = false booValid = false if Request.Form("FormSubmitted") = "FormSubmitted" then ' the form was submitted booSubmitted = true if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then ' the captcha code was valid booValid = true end if end if function TestCaptcha(byval valSession, byval valCaptcha) dim tmpSession valSession = Trim(valSession) valCaptcha = Trim(valCaptcha) if (valSession = vbNullString) or (valCaptcha = vbNullString) then TestCaptcha = false else tmpSession = valSession valSession = Trim(Session(valSession)) Session(tmpSession) = vbNullString if valSession = vbNullString then TestCaptcha = false else valCaptcha = Replace(valCaptcha,"i","I") if StrComp(valSession,valCaptcha,1) = 0 then TestCaptcha = true else TestCaptcha = false end if end if end if end function function SendEmail() dim Message dim objMail Message = Message & "Arrange Valuation" Message = Message & "
Arrange Valuation
" Message = Message & "" Message = Message & "" Message = Message & "
 
A website visitor has requested a Sales Valuation
  
Name:" & Request.Form("contact_name") & "
Company:" & Request.Form("company_name") & "
  
Telephone:" & Request.Form("contact_number") & "
Email:" & Request.Form("email") & "
  
Address of the Property to be valued
Address1:" & Request.Form("Corresp_Address_1") & "
Address2:" & Request.Form("Corresp_Address_2") & "
Address3:" & Request.Form("Corresp_Address_3") & "
Address4:" & Request.Form("Corresp_Address_4") & "
Post Code:" & Request.Form("Owners_Post_Code") & "
  
Optional Message: 
" & Request.Form("enquiry") & "
 
" Message = Message & "" Set objMail = Server.CreateObject("CDONTS.Newmail") objMail.From = "enquiries@ipsdirect.com" ' objMail.To = "adam@streamweb.co.uk" objMail.To = "sales@ipsdirect.com" objMail.Subject = "Request to Arrange Valuation - from " & Request.Form("contact_name") objMail.Body = Message objMail.BodyFormat = 0 ' objMail.MailFormat = 0 objMail.Send Set objMail = Nothing end function %> Estate agents in Leicester - Arrange a free valuation <% ' if the form has been successfully submitted, ' it will display a confirmation message and redirect to the section homepage after 10 seconds if booValid = true then %> <% end if %>

“Your one stop shop approach to lettings, landlords insurance and mortgages has been a real help to building my property portfolio, keep up the good work.”

Mr Ram Gupta - Leicester

<% ' success - display a confirmation and send an email if booValid = true then %>

Thanks for getting in touch

One of our customer service representatives will contact you to arrange the valuation on your property.

<% SendEmail else ' either the form hasn't been submitted, or it was submitted with an invalid captcha code - so display the form %>

IPS are Leicester’s first no commission estate agents, combining all the benefits of traditional high street estate agents with internet only estate agency prices - giving you the best of both worlds and saving you thousands of pounds in commission.

As well as the convenience of being able to deal with us online or by phone for many of our services, we also have offices in the heart of Leicester where you can call in 6 days a week.

IPS Bronze package IPS Silver PackageIPS Gold Package

Arrange a Free Valuation

So that we can start to arrange a free valuation, please complete the short form below. One of our customer service representatives will then contact you to arrange the valuation on your property.

<% ' the form was submitted, but the captcha code was invalid if booSubmitted = true and booValid = false then Response.Write("" & vbCrLf) end if %>
Contact Name *
Company Name
Telephone Number *
Email Address *

Please enter the address of the property to be valued.
Enter Post Code  
Address 1 *
Address 2
Address 3
Address 4
Post Code *
   
Optional message  
Please enter the security number shown opposite
  Submit
 ") Response.Write("Security value did not match.") Response.Write("

Sections marked with a * must be completed
<% end if %>
cProperties for Sale