<%
If lCase(Request.ServerVariables("REQUEST_METHOD")) <> "post" Then
%>
Contctenos
Si desea ms informacin, por favor rellene las casillas siguientes y haga clic en el botn enviar.
<%
Else
On Error Resume Next
Set MailObj = Server.CreateObject("CDONTS.NewMail")
MailObj.From = "GT Certification Website "
' 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.