<% If (Request.Form("Submit") = "Submit") Then 'Live values Const enquiryRecipient = "tonyduell@anopol.co.uk" 'test values 'const enquiryRecipient = "james.myers@esterling.co.uk" Const enquirySubject = "A request has been made on the website" 'Dim message, errorMessage, senderName, add1, phone, senderEmail, body, postcode Dim checkbox1,checkbox2,checkbox3,checkbox4,checkbox5,checkbox6,checkbox7,checkbox8,checkbox9,checkbox10,checkbox11,checkbox12,checkbox13 Dim company_name,contact_name,address,tel_number,email ' get fields from form checkbox1 = Request.Form("checkbox1")&"" checkbox2 = Request.Form("checkbox2")&"" checkbox3 = Request.Form("checkbox3")&"" checkbox4 = Request.Form("checkbox4")&"" checkbox5 = Request.Form("checkbox5")&"" checkbox6 = Request.Form("checkbox6")&"" checkbox7 = Request.Form("checkbox7")&"" checkbox8 = Request.Form("checkbox8")&"" checkbox9 = Request.Form("checkbox9")&"" checkbox10 = Request.Form("checkbox10")&"" checkbox11 = Request.Form("checkbox11")&"" checkbox12 = Request.Form("checkbox12")&"" checkbox13 = Request.Form("checkbox13")&"" company_name = Request.Form("company_name")&"" contact_name = Request.Form("contact_name")&"" address = Request.Form("address")&"" tel_number = Request.Form("tel_number")&"" email = Request.Form("email")&"" ' format message body message = "Date: " & Now() & vbNewline & _ "Please action the following enquiry: " & vbNewline & vbNewline & _ "Contact Name:" & contact_name & vbNewline & _ "Company Name:" & company_name & vbNewline & vbNewline If checkbox1 <> "" Then message = message & "Information Requested: "& checkbox1 & vbNewline If checkbox2 <> "" Then message = message & "Information Requested: "& checkbox2 & vbNewline If checkbox3 <> "" Then message = message & "Information Requested: "& checkbox3 & vbNewline If checkbox4 <> "" Then message = message & "Information Requested: "& checkbox4 & vbNewline If checkbox5 <> "" Then message = message & "Information Requested: "& checkbox5 & vbNewline If checkbox6 <> "" Then message = message & "Information Requested: "& checkbox6 & vbNewline If checkbox7 <> "" Then message = message & "Information Requested: "& checkbox7 & vbNewline If checkbox8 <> "" Then message = message & "Information Requested: "& checkbox8 & vbNewline If checkbox9 <> "" Then message = message & "Information Requested: "& checkbox9 & vbNewline If checkbox10 <> "" Then message = message & "Information Requested: "& checkbox10 & vbNewline If checkbox11 <> "" Then message = message & "Information Requested: "& checkbox11 & vbNewline If checkbox12 <> "" Then message = message & "Information Requested: "& checkbox12 & vbNewline If checkbox13 <> "" Then message = message & "Information Requested: "& checkbox13 & vbNewline & vbNewline If address <> "" Then message = message & "Address: "& address & vbNewline If tel_number <> "" Then message = message & "Tel: " & tel_number & vbNewline message = message & "Email: " & email & vbNewline & vbNewline message = message & "End of enquiry" 'send email On Error Resume Next Set Mail = CreateObject("CDONTS.NewMail") Mail.Send enquiryRecipient, enquiryRecipient, enquirySubject, message Set Mail = Nothing ' check for errors If Err = 0 Then Response.Redirect "thanks.asp" Else errorMessage = "Sorry there was a problem sending your enquiry
" & Err & " (" & Err.Description & ")
Sorry for the inconvenience, please try again
" End If End If %>

Information Request

You can request product data and material data safety sheets (MDS) here by ticking the appropriate tick box and completing your contact details below. We will send you the information requested by email within 24 hours.

Anopol Paste PNO

Anopol Paste GP

Anopol Paste PN

Anopol Cleaner C

Anopol Cleaner CX

Anopol Cleaner CP

Anopol EB Pickle

Anopol Activator FL

Anopol Spray FL

Anopol PA Paste

Anopol PA Solution

Anopol Molytest

Anopol Ferrotest

Your Contact Information

Company Name:
Contact Name:
Address:
Tel Num:
Email: