REQUEST A BROCHURE

Please complete the following form and we will send you a brochure.

Name:
Company:
Address:
Telephone:
Fax:
Position:
Email:
Format:
Please tell us how you found us:

 

 

 

Terms & Conditions | Contact Us | Request a brochure

<%@LANGUAGE = VBSCRIPT%> <% ' Get the form data name = Request.Form("DTL Website") senderEmail = Request.Form("mark.hancock@dampertechnology.co.uk") subject = "Brochure Request" & Request.Form("subject") recipient = Request.Form("mark.hancock@dampertechnology.co.uk") body = Request.Form("body") strReferer = request.servervariables("HTTP_REFERER") strServer = Replace(request.servervariables("SERVER_NAME"),"www.","") strSMTPServer = "smtp.dampertechnology.co.uk" & strServer ' check referer intComp = inStr(strReferer, strServer) If intComp > 0 Then blnSpam = False Else ' Spam Attempt Block blnSpam = True End If ' Create the JMail message Object set msg = Server.CreateOBject( "JMail.Message" ) ' Set logging to true to ease any potential debugging ' And set silent to true in case you wish to handle the errors yourself msg.Logging = true msg.silent = true ' Enter the sender data msg.From = senderEmail ' Note that as addRecipient is a method and not ' a property, you do not use an equals ( = ) sign msg.AddRecipient recipient ' The subject of the message msg.Subject = subject ' And the body msg.body = body ' Now send the message, using the indicated mailserver If NOT blnSpam Then if not msg.Send(strSMTPServer ) then Response.write "
" & msg.log & "
" else Response.write "Message sent successfully!" end if end if ' Clear the object set msg = nothing %>