%
Dim mail, strBody, strMessage
Set mail = Server.CreateObject("CDONTS.Newmail")
mail.From = Request.Form("txtEmail")
mail.To = "bookings@dart101.demon.co.uk"
mail.Subject = "Enquiry via the Beeches Website"
strBody = "Name: " & Request.Form("txtName") & vbCRLF
strBody = strBody & "Telephone: " & Request.Form("txtTelephone") & vbCRLF
strBody = strBody & "E-mail: " & Request.Form("txtEmail") & vbCRLF & vbCRLF
strBody = strBody & "Company Name and Address: " & vbCRLF & Request.Form("txtAddress") & vbCRLF & vbCRLF
strBody = strBody & vbCRLF & "--------------------------------------------------------------" & vbCRLF
strBody = strBody & "Enquiry:" & Request.Form("txtEnquiry") & vbCRLF
mail.Body = strBody
mail.Send
strMessage = "
Thank you for your Enquiry.
"
%>
|
|||||||||||||||||||||||||||||||||||