<% setlocale("en-gb") if request.form("sendmail")="true" then dim MessageText,ProdText MessageText="" ProdText="" MessageText=MessageText&"Date and time sent: "&formatdatetime(now,1)&" - "&formatdatetime(now,3)&vbcrlf&vbcrlf MessageText=MessageText&""&vbcrlf MessageText=MessageText&"Email address: "&request.form("email")&vbcrlf&vbcrlf MessageText=MessageText&"Full name: "&request.form("fullname")&vbcrlf&vbcrlf if trim(request.form("organisation"))<>"" then MessageText=MessageText&"Organisation: "&request.form("organisation")&vbcrlf&vbcrlf if trim(request.form("position"))<>"" then MessageText=MessageText&"Position: "&request.form("position")&vbcrlf&vbcrlf if trim(request.form("address"))<>"" then MessageText=MessageText&"Address: "&vbcrlf&request.form("address")&vbcrlf if trim(request.form("address02"))<>"" then MessageText=MessageText&request.form("address02")&vbcrlf if trim(request.form("town"))<>"" then MessageText=MessageText&request.form("town")&vbcrlf if trim(request.form("county"))<>"" then MessageText=MessageText&request.form("county")&vbcrlf if trim(request.form("postcode"))<>"" then MessageText=MessageText&request.form("postcode")&vbcrlf if trim(request.form("country"))<>"" then MessageText=MessageText&request.form("country")&vbcrlf&vbcrlf MessageText=MessageText&"Telephone: "&request.form("telephone")&vbcrlf&vbcrlf if trim(request.form("fax"))<>"" then MessageText=MessageText&"Fax: "&request.form("fax")&vbcrlf&vbcrlf if trim(request.form("contrad2000"))="1" then ProdText=ProdText&"Contrad 2000"&vbcrlf if trim(request.form("contrad1000"))="1" then ProdText=ProdText&"Contrad 1000"&vbcrlf if trim(request.form("neutrad"))="1" then ProdText=ProdText&"Neutrad"&vbcrlf if trim(request.form("contradlf"))="1" then ProdText=ProdText&"Contrad LF"&vbcrlf if trim(request.form("contraddri"))="1" then ProdText=ProdText&"Contrad Dri"&vbcrlf if trim(request.form("contradar"))="1" then ProdText=ProdText&"Contrad AR"&vbcrlf if ProdText<>"" then MessageText=MessageText&"I am interested in the following products:"&vbcrlf&ProdText&vbcrlf MessageText=MessageText&""&vbcrlf if trim(request.form("enquiry"))<>"" then MessageText=MessageText&vbcrlf&trim(request.form("enquiry"))&vbcrlf&vbcrlf MessageText=MessageText&"End of enquiry"&vbcrlf MessageText=MessageText&vbcrlf 'Set Mailer = Server.CreateObject ("smtpsvg.mailer") 'Mailer.RemoteHost = "webserver04.aspects.net" 'Mailer.AddRecipient "Decon Laboratories Limited", "mail@contrad.com" ''Mailer.AddRecipient "Decon Laboratories Limited", "mail@sbnc.co.uk" 'Mailer.FromName = trim(request.form("fullname")) 'Mailer.FromAddress = trim(request.form("email")) 'Mailer.AddCC trim(request.form("fullname")), trim(request.form("email")) 'Mailer.Subject = "Enquiry from Contrad.com website" 'Mailer.BodyText = MessageText 'Mailer.SendMail Dim objMail Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = request.form("email") objMail.Subject = "Enquiry from Contrad.com website" objMail.To = "mail@contrad.com" objMail.Body = MessageText objMail.Send set objMail = nothing response.redirect("enquiry_sent.htm") end if %> Decon Laboratories - The Contrad range of cleaning&disinfection agents, for laboratory, medical and industrial applications.

Contact Decon

To make an enquiry about a specific product, please use the form to the right.

Please note that * indicates that the field is required before the enquiry may be sent!

Alternatively, you may contact us using any of the following:

 

Telephone:

+44 (0) 1273 739241

 

Fax:

+44 (0) 1273 722088

 

Email:

mail@contrad.com

 

Post:

Decon Laboratories Limited
Conway Street
Hove
East Sussex
BN3 3LY
UK