<%@LANGUAGE="VBSCRIPT"%> <%option explicit%> <% dim booSubmitted dim booValid booSubmitted = false booValid = false if Request.Form("FormSubmitted") = "FormSubmitted" then ' the form was submitted booSubmitted = true if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then ' the captcha code was valid booValid = true end if end if function TestCaptcha(byval valSession, byval valCaptcha) dim tmpSession valSession = Trim(valSession) valCaptcha = Trim(valCaptcha) if (valSession = vbNullString) or (valCaptcha = vbNullString) then TestCaptcha = false else tmpSession = valSession valSession = Trim(Session(valSession)) Session(tmpSession) = vbNullString if valSession = vbNullString then TestCaptcha = false else valCaptcha = Replace(valCaptcha,"i","I") if StrComp(valSession,valCaptcha,1) = 0 then TestCaptcha = true else TestCaptcha = false end if end if end if end function function SendEmail() dim Message dim objMail Message = Message & "Website Enquiry" Message = Message & "
Question Submitted
" Message = Message & "
 
A website visitor has submitted a new FAQ:
  
Name:" & Request.Form("contact_name") & "
Company:" & Request.Form("company_name") & "
Telephone:" & Request.Form("contact_number") & "
Email:" & Request.Form("email") & "
For Department:" & Request.Form("dept") & "
  
Message: 
" & Request.Form("enquiry") & "
 
" Message = Message & "" Set objMail = Server.CreateObject("CDONTS.Newmail") objMail.From = "enquiries@translinkexpress.co.uk" ' objMail.To = "adam@streamweb.co.uk" objMail.To = "enquiries@translinkexpress.co.uk" objMail.Subject = "Website FAQ Enquiry - from " & Request.Form("contact_name") objMail.Body = Message objMail.BodyFormat = 0 ' objMail.MailFormat = 0 objMail.Send Set objMail = Nothing end function %> Translink Express Logistics Ltd
<% ' success - display a confirmation and send an email if booValid = true then %>

Thanks for getting in touch

 

One of our customer service representatives will answer your question within 2 working days.

 

 

<% SendEmail else ' either the form hasn't been submitted, or it was submitted with an invalid captcha code - so display the form %>

Ask us a question

If our FAQ section didn't quite address your query why complete the form below with the details of you question and we will get right back to you.

<% ' the form was submitted, but the captcha code was invalid if booSubmitted = true and booValid = false then Response.Write("" & vbCrLf) end if %>
Contact Name *  
Company Name  
Telephone Number * (no spaces)  
Email Address *  
     
Select Department *  
How can we help?  
 
  Please enter the security number shown opposite
  Submit  
 ") Response.Write("Security value did not match.") Response.Write("

Sections marked with a * must be completed
<% end if %>