Swallow Machinery Ltd

If you would like to make an enquiry please complete the form below,
or alternatively call us on +44 (0) 1484 850690.

<% ' Use an ASP command to check to see if data has been submitted to this page If request.form = "" then ' no data was submitted to the form, so display the form to the user %>

Name:
Company Name:
Telephone:
Address:
Postcode:
E mail address:
Please send me more info on:
Please contact me a.s.a.p:
Additional information you require:
How dId you hear about us
<% else ' Data was submitted to this form, so send the results via email Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "localhost" Mail.From = Request.Form("Email") Mail.FromName = Request.Form("ContactName") Mail.AddAddress "info@swallowmachinery.co.uk" Mail.Subject = "Enquiry via the Swallow Machinery website" Mail.Body = Mail.Body & "Name : " & Request.Form ("Name") & vbCRLF Mail.Body = Mail.Body & "Company Name : " & Request.Form ("CompanyName") & vbCRLF Mail.Body = Mail.Body & "Telephone : " & Request.Form ("Telephone") & vbCRLF Mail.Body = Mail.Body & "Address : " & Request.Form ("Address") & vbCRLF Mail.Body = Mail.Body & "Postcode : " & Request.Form ("Postcode") & vbCRLF Mail.Body = Mail.Body & "Email : " & Request.Form ("Email") & vbCRLF Mail.Body = Mail.Body & "Send me information on : " & Request.Form ("InfoOn") & vbCRLF Mail.Body = Mail.Body & "Contact Me ? : " & Request.Form ("ContactMe") & vbCRLF Mail.Body = Mail.Body & "Additional Information : " & Request.Form ("Additional") & vbCRLF Mail.Body = Mail.Body & "Time Sent : " & FormatDateTime(Now()) & vbCRLF Mail.Body = Mail.Body & "Senders IP : " & Request.ServerVariables("REMOTE_ADDR") & vbCRLF On Error Resume Next Mail.Send If Err = 0 Then Response.Write "Thankyou, we shall respond to your enquiry as soon as possible." else Response.Write "Message was not sent, an error encountered: " & Err.Description End If On Error Goto 0 Set Mail = Nothing Response.Write "
Return to home page" end if %>