<% Dim mail, strBody, strMessage Set mail = Server.CreateObject("SMTPsvg.Mailer") mail.FromName = Request.Form("txtName") mail.FromAddress = Request.Form("txtEmail") mail.RemoteHost = "127.0.0.1" mail.AddRecipient "The Sandwich Box", "steve@webmachine.co.uk" mail.Subject = "Order via The Sandwich Box 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.BodyText = strBody If mail.SendMail Then strMessage = "



Thank you for your Enquiry.











" Else strmessage = "




There was a problem sending your enquiry.
Please check your email address and try again.











" End if %> Untitled Document

E-mail us

Order Form

 
<% If Request.form = "" Then %>

Please fill out the form below to make an enquiry.
Name:    
Tel:
 
E-mail:  
Address:
Enquiry:
 
<% Else %> <%=strMessage%> <% End If %>

 

 
 
   3 Imperial Square    Cheltenham    GL50 1QB