<% If lCase(Request.ServerVariables("REQUEST_METHOD")) <> "post" Then %>

Contattateci

Per ricevere maggiori informazioni, compilare il seguente modulo e al termine, fare clic sul pulsante "Invia".

Nominativo della persona da contattare:

Qualifica:

Nome dell'azienda:

Indirizzo:

C.A.P.:

Indirizzo e-mail:

Telefono: (includere il prefisso)

Fax: (includere il prefisso)

A quali prodotti e servizi � interessato?: (barrare le caselle di interesse)

<% Else On Error Resume Next Set MailObj = Server.CreateObject("CDONTS.NewMail") MailObj.From = "GT Certification Website " ' MailObj.To = "fancheacatton@hotmail.com" MailObj.To = "fancheacatton@hotmail.com" MailObj.Subject = "www.gtcertification.com: Italian Contact Form Submitted" 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 %>