%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% On Error Resume Next Post_back = Request.Form("post_back") If post_back = "post_back" then Title = Request.Form("name_title") CustName = Request.Form("Name") Telephone = Request.Form("Telephone") Email = Request.Form("Email") Address = Request.Form("Address") Question = Request.Form("Question") BookFrom = Request.Form("bookfrom") BookTo = Request.Form("bookto") If CustName = "" then Err_msg = "/Full Name" End If If InStr(Email,"@") = 0 or InStr(Email,".") = 0 then Err_msg = Err_msg & "/Invalid email address" End If If Err_msg = "" then mail_msg = "Enquiry from grovefarmbarns.co.uk. Dated " & date() & vbnewline & vbnewline & "From: " & Title &". " & CustName & vbnewline &_ "Email: " & Email & vbnewline & "Telephone: " & Telephone & vbnewline & "Address: " & address & vbnewline & vbnewline &_ "Question: " & Question & vbnewline & vbnewline & "Date From: " & Bookfrom & " Date To: " & BookTo ' send mail via Persits Mail sender Dim objCDO Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.grovefarmbarns.co.uk" Mail.FromName = CustName Mail.From = Email Mail.AddAddress "info@grovefarmbarns.co.uk" Mail.Subject = "Enquiry from web site booking form" Mail.Body = mail_msg Mail.Send Else Err_msg = "Please complete the following field(s) " & Err_msg End If End If If Err <> 0 then Err_msg = "Program error: " & Err.description Err.Clear End If %>
|
|||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
|
Please use this form to let us know the
dates you are interested in booking the barn. |
|||||||||||||||
|
|||||||||||||||