<% ' do-not send an email if the form field name has an @ sign - tonymead sept 05 If inStr(Request.Form("Name"),"@") Then response.redirect "construction_enquiries.asp?email=fail" Else If Request.Form("FormPost")<>"" Then 'The e-mail strBody = strBody & "Construction Enquiry - " & Date() & " - " & Time() strBody = strBody & "
----------------------------------------------------------------------------------------------------" strBody = strBody & "
Name: " & Replace(Request.Form("Name"),"'","''") strBody = strBody & "
Company: " & Replace(Request.Form("Company"),"'","''") strBody = strBody & "
Position: " & Request.Form("Position") strBody = strBody & "
Telephone: " & Request.Form("Telephone") strBody = strBody & "
Best time to phone: " & Request.Form("Time") strBody = strBody & "
Email: " & Request.Form("Email") strBody = strBody & "
Address: " & Replace(Request.Form("Address"),"'","''") strBody = strBody & "
Type of Enquiry: " & Request.Form("Type") strBody = strBody & "
Enquiry: " & Request.Form("Enquiry") strBody = strBody & "
----------------------------------------------------------------------------------------------------" strFooter = strFooter & "
Thank you for your enquiry" set objMail=CreateObject("CDONTS.NewMail") objMail.BodyFormat = 0 objMail.MailFormat = 0 If Request.Form("Email") <>"" Then objMail.From=Request.Form("Email") Else objMail.From="enquiries@timotaylandscapes.co.uk" End If objMail.To="stuart.humphrey@timotaylandscapes.co.uk" objMail.Subject="Construction Enquiry" objMail.Body=strBody objMail.Send() set objMail=Nothing 'Clean up ' mail to customer If Request.Form ("Email")<>"" Then set cobjMail=CreateObject("CDONTS.NewMail") cobjMail.BodyFormat = 0 cobjMail.MailFormat = 0 cobjMail.From="enquiries@timotaylandscapes.co.uk" cobjMail.To=Request.Form("Email") cobjMail.Subject="Timotay Web Site Enquiry" cobjMail.Body=strBody & strFooter cobjMail.Send() set cobjMail=Nothing 'Clean up End If response.redirect "construction_enquiries.asp?details=sent" End If End If ' end if inStr(Request.Form("Name"),"@") %> Timotay Landscapes - Garden Design - Landscaping - Maintenance - UK Landscapers
 

Timotay Landscapes Ltd

 Design Consultants & Construction Specialist

 
     
<% If Request.Querystring("details")="sent" Then %>
     

Timotay Landscapes
 

 Garden Landscapers Enquiry Sent...

Thank you for your enquiry.

We will contact you shortly.

 

Timotay Garden Landscapers

<% Else %>
   

Timotay Landscapes

Timotay Garden Landscapers

 Garden Landscapers Enquiry Form...

Timotay Landscapes Limited
190 Hinwick Road
Wollaston
Northants
NN29 7QY
Telephone: 01933 665151
Fax: 01933 666023
Email: enquiries@timotaylandscapes.co.uk

Or please use the enquiry form below and we will contact you shortly:

Name:
Company:
Position:
Telephone:
Best time to phone:
Email:
Address:
Type of Enquiry
Enquiry Details:
   
 
<% End If %>

 

 

 


Timotay Landscapes Limited  -  190 Hinwick Road  -  Wollaston  -  Northants  -  NN29 7QY  -  UK

 
 

T: 01933 665151  -  F: 01933 666023  -  E: enquiries@timotaylandscapes.co.uk