<% if (cStr(Request("Submit")) <> "") Then from_address= Request.Form ("txtEmail") 'This is a ficticious customers email address to_address= "mail@sawyersparkhomes.co.uk" 'Enter your email address inbetween the quotation marks. ' BODY TEXT START --------------------------------------------------------------- sEmailText = sEmailText & "" sEmailText = sEmailText & "" '--------------------------------------------------------------------------------- sEmailText = sEmailText & Request.Form ("txtName") & " requires information and a copy of the brochure..." & "

" sEmailText = sEmailText & "--------------------------------------------------------------------
" sEmailText = sEmailText & "CONTACT DETAILS:
" sEmailText = sEmailText & "--------------------------------------------------------------------
" sEmailText = sEmailText & Request.Form ("txtName") & "
" sEmailText = sEmailText & Request.Form ("txtTelephone") & "
" sEmailText = sEmailText & Request.Form ("txtEmail") & "

" sEmailText = sEmailText & "--------------------------------------------------------------------
" sEmailText = sEmailText & "INFORMATION REQUIRED: " & "
" sEmailText = sEmailText & "--------------------------------------------------------------------
" sEmailText = sEmailText & Request.Form ("txtInformation") & "



" sEmailText = sEmailText & "--------------------------------------------------------------------
" sEmailText = sEmailText & "DATE AND TIME OF ENQUIRY: " & "
" sEmailText = sEmailText & "--------------------------------------------------------------------

" sEmailText = sEmailText & "Date & Time Sent: " & Now() & "
" sEmailText = sEmailText & "
" ' BODY TEXT END --------------------------------------------------------------- ' NOTE: This email address must be a valid mailbox hosted with Fasthosts, or the email will be blocked by webserver spam filters. smtp_server="smtp.fasthosts.co.uk" smtp_port="25" On Error Resume Next 'Checks for errors ' Now let's send the email dim Mailer set Mailer = server.createobject("CDO.Message") Mailer.Subject = "Information and Brochure Request - " & Request.Form ("txtName") Mailer.HTMLBody = sEmailText & now Mailer.From = from_address & " <" & from_address & ">" Mailer.To = to_address & " <" & to_address & ">" with Mailer.Configuration .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp_server .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = smtp_port .Fields.Update end with Mailer.Send set Mailer = Nothing CDOSYS = true if err.number <> 0 then 'Checks for any errors Response.write("Unable to send mail "& Err.description & err.number) 'Provides an error message. Also displays the error number and a brief description of the error Response.end() else Response.Redirect "thank_you.htm" end if end if %> Sawyers Park Homes - Comfortable, Affordable Luxury
     
  Download a Brochure  
     
  A PDF version of the brochure is available for download here.  
     
  Order a Brochure  
     
" method="post" name="form1" onSubmit="MM_validateForm('txtName','','R','txtTelephone','','R','txtEmail','','RisEmail');return document.MM_returnValue"> For further information on consultation quotations or information on the services that Sawyers Park Homes can provide please fill in your details below and we will forward a copy of our brochure:
   
Name:
Contact Number:
Email:
Information Required:
 
 
CLICK IN THIS LINK to add www.sawyersparkhomes.co.uk as a favourite
 
     
  Sawyers Park Homes, Shellbank House, Shellbank Lane, Bean, Kent DA2 8AX | Sales Desk: 01474 855555 | Head Office: 01474 708117 | Email: mail@sawyersparkhomes.co.uk
     

Home | About Us | Park Locations | Stonehill Woods Park | Finding Stonehill Woods Park | Millview Park | Finding Millview Park | Sunset Drive Park | Kaysland Park
Florence Farm Park | Order a Brochure | Contact | - Copyright © Pipedream Design 2016

Website Design by Pipedream Design