%
' 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"),"@")
%>
|
|
|
Thank you for your enquiry. We will contact you shortly.
|
|
|
|
Timotay Landscapes Limited Or please use the enquiry form below and we will contact you shortly:
|
|
|
|
|
||
|
T: 01933 665151 - F: 01933 666023 - E: enquiries@timotaylandscapes.co.uk |
||
|
|
||