<%@LANGUAGE="VBSCRIPT"%> <% ' CDO Script to email form contents when submitted ' Check form submission IF Request("Submit") <> "" THEN ' Set up the email addresses, subject line and redirect after emailing varToAddress = "peters@autoscanqa.co.uk" varFromAddress = "peters@autoscanqa.co.uk" varSubject = "Contact Form" varRedirectAfterEmail = "../contact_thanks.htm" ' Collect the form information into variables for use in the email body varName = Request("name") varAddress = Request("address") varContactName = Request("contactname") varContacttitle = Request("contacttitle") varTelephone = Request("telephone") varFax = Request("fax") varEmail = Request("email") varDetails = Request("details") varServices = Request("services") ' Code to check the further info checkbox and assign the relevant word IF varFurtherInfo = "Yes" THEN varFurtherInfo = "Yes" ELSE varFurtherInfo = "No" END IF ' Create the body of the email line by line ' Add blank lines by adding extra vbCRLF at the end of the preceding line strMessage = "" strMessage = strMessage & "Name: " & varName & vbCRLF strMessage = strMessage & "Address: " & varAddress & vbCRLF strMessage = strMessage & "Contact Name: " & vbCRLF & varContactName & vbCRLF strMessage = strMessage & "Contact Title: " & vbCRLF & varContacttitle & vbCRLF strMessage = strMessage & "Telephone: " & varTelephone & vbCRLF strMessage = strMessage & "Fax: " & vbCRLF & varFax & vbCRLF strMessage = strMessage & "Email: " & vbCRLF & varEmail & vbCRLF strMessage = strMessage & "Details: " & vbCRLF & varDetails & vbCRLF strMessage = strMessage & "Services: " & vbCRLF & varServices & vbCRLF ' Create the email object and send the email Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.To = varToAddress objMail.From = varFromAddress objMail.Subject = varSubject objMail.Body = strMessage objMail.Send Set objMail = Nothing ' Redirect after email has been sent Response.Redirect(varRedirectAfterEmail) ' End check form submission END IF %> AutoScan - analysis, automotive, cmm, containment, engineering, engineering support, fmea, inspection, kaizen
 


Société
  
Adresse
  
     
Nom
  
Fonction
  
Téléphone
  
Fax
  
E-mail
  
       
Produit
Renseignements
  
Services Exigés
  
   


  Emplacement

Autoscan QA Ltd
AutoScan House
Charlton Street
Oakengates
Telford
Shropshire
TF2 6BT, UK.

Click here for map

Telephone: 0870 770 5233
Fax: 0870 7705234
 
 

Accueil : Notre Profil : Nos Services : Notre Savoir-Faire : Résidentiellel : Nouvelles
Accréditations : Recrutement : Contact
 
Autoscan QA Ltd, AutoScan House, Charlton Street, Oakengates, Telford, Shropshire, TF2 6BT, UK
Téléphone: +44 (0)870 770 5233 ~ Fax: +44 (0)870 7705234