If you require any further information, please complete the form below, and
click the submit button.
"
' MailObj.To = "tone@bigtone.net"
MailObj.To = "info@gtcertification.com"
MailObj.Subject = "www.gtcertification.com Contact Form Submission"
MailObjBody = _
"This is an automated e-mail message from the Contact Form system at www.gtcertification.com." & vbCrLf & vbCrLf & _
"The following details were submitted at " & Now() & "." & vbCrLf & vbCrLf & _
"Contact Name:" & vbCrLf & _
" " & Request.Form("ContactName") & vbCrLf & vbCrLf & _
"Company Name:" & vbCrLf & _
" " & Request.Form("CompanyName") & vbCrLf & vbCrLf & _
"Address:" & vbCrLf & _
" " & Replace(Request.Form("Address"),vbCrLf,vbCrLf & " ") & vbCrLf & vbCrLf & _
"Postcode:" & vbCrLf & _
" " & Request.Form("PostCode") & vbCrLf & vbCrLf & _
"Telephone:" & vbCrLf & _
" " & Request.Form("Telephone") & vbCrLf & vbCrLf & _
"Fax:" & vbCrLf & _
" " & Request.Form("Fax") & vbCrLf & vbCrLf & _
"EMail:" & vbCrLf & _
" " & Request.Form("EMail") & vbCrLf & vbCrLf & _
"Services and/or Products requested:" & vbCrLf
If Request.Form("srvTorque") Or Request.Form("srvHighway") Or Request.Form("srvProperty") or Request.Form("srvConcrete") Then
If Request.Form("srvTorque") Then
MailObjBody = MailObjBody & _
" Torque and Force Calibration Services" & vbCrLf
End If
If Request.Form("srvHighway") Then
MailObjBody = MailObjBody & _
" Highways and Pavement Site Testing Services" & vbCrLf
End If
If Request.Form("srvProperty") Then
MailObjBody = MailObjBody & _
" Property Investigation Services" & vbCrLf
End If
If Request.Form("srvConcrete") Then
MailObjBody = MailObjBody & _
" Concrete Testing Services" & vbCrLf
End If
Else
MailObjBody = MailObjBody & _
" None" & vbCrLf
End If
MailObjBody = MailObjBody & vbCrLf
If Request.Form("SiteVisit") Then
MailObjBody = MailObjBody & "This person would like to arrange a site visit"
Else
MailObjBody = MailObjBody & "This person has not indicated they wisth to arrange a site visit"
End If
MailObj.Body = MailObjBody
MailObj.Send
Set MailObj = Nothing
If Err.Number <> 0 Then
%>
Sorry!
An error occured whilst sending your information to us - this may be a transient
problem, so please do try again.
If you continue receiving this error, please let us know, stating the contents
of your form, and the error number <%=Err.Number%>.
Once again, apologies for any inconvenience.
<%
Else
%>
Thank you for your interest
Your details have been forwarded to us, and we will be in touch as soon as
possible.
Please use the links on the left to navigate further through the site.
<%
End If
On Error Goto 0
End If
%>