<% IF Request("SUBMIT") = "Submit" Then %> <% Set Mailer = Server.CreateObject ("Bamboo.SMTP") Mailer.Server = "mailhub.dbms.co.uk" Mailer.FromName = Request("Name") If request("Email") = "" then Mailer.From = "anonymous@anonymous.com" Else Mailer.From = Request("Email") end if Mailer.Rcpt = "mic@dbms.co.uk" 'Mailer.Rcpt = "info@alfred-briggs.ltd.uk" Mailer.Subject = "Enquiry Email from your Web Site" BodyText = "The following message is a email reply from the Moves-Recruit Web Site" & CHR(10) & "-------------------------------------------------------------" & CHR(10) BodyText = BodyText & "From : " & Request("FirstName") & " " & Request("LastName") & Chr(10) & chr(10) BodyText = BodyText & "Address : " & Request("Address") & chr(10) & Request("County") & chr(10) & Request("Country") & chr(10) & request("Postcode") & chr(10) & chr(10) BodyText = BodyText & "Telephone : " & Request("Phone") & chr(10) & chr(10) BodyText = BodyText & "Fax : " & Request("Fax") & chr(10) & chr(10) BodyText = BodyText & "Email : " & Request("Email") & Chr(10) & chr(10) BodyText = BodyText & "=================================================" & chr(10) & chr(10) BodyText = BodyText & "I am interested in the following machines :" & chr(10) BodyText = BodyText & Request("RefNumber1") & " - " & Request("Description1") & chr(10) & chr(10) BodyText = BodyText & Request("RefNumber2") & " - " & Request("Description2") & chr(10) & chr(10) BodyText = BodyText & Request("RefNumber3") & " - " & Request("Description3") & chr(10) & chr(10) BodyText = BodyText & "=================================================" & chr(10) & chr(10) BodyText = BodyText & "We could not find the machinery required in your lists." & chr(10) & "Please search for the following : " & chr(10) & chr(10) BodyText = BodyText & Request("SearchFor") & chr(10) & chr(10) BodyText = BodyText & Request("BodyText") Mailer.Message = BodyText Mailer.Send If err then response.Write("
ERROR!

You have entered an invalid email address

Please retry!!

Click here to retry") else response.Write("

Thank You
Your request for information has
been forwarded onto our staff

") end if %> <% Else %> Alfred Briggs, Sons & Co. Ltd.


Contact Us

We are interested in the machinery listed below :
NB : Please indicate our reference number(s) and a short description)

Reference No
Short Description

We could not find the machinery needed in your lists of supply :
Please Search For The Following Machinery

Title (Mr/Mrs/Dr/Other)
First Name
Last Name
Address
County/State/Province
Country
Postcode
Telephone
Facsimile
Email
  

   

_ <% end If %>