<% strError = "" strCompleted = "" strCompletedForm = request.form("CompletedForm") if strCompletedForm = "yes" then 'get all information strName = trim(request.form("Name")) strCompany = trim(request.form("Company")) strAddressa = trim(request.form("Addressa")) strAddressb = trim(request.form("Addressb")) strCity_Town = trim(request.form("City_Town")) strCounty = trim(request.form("County")) strPostcode = trim(request.form("Postcode")) strEmail = trim(request.form("Email")) intTelephone = request.form("Telephone") intFax = request.form("Fax") strMessage = trim(request.form("Message")) 'check for errors if not strName <> "" then strError = "yep there is one" end if if not strEmail <> "" or not instr(strEmail,"@")> 0 or not instr(strEmail,".")> 0 then strError = "yep there is one" end if intTelephone = replace(intTelephone," ","") if isnumeric(intTelephone) = false or len(intTelephone) < 6 then strError = "yep there is one" end if intFax = replace(intFax," ","") if isnumeric(intFax) = false or len(intFax) < 6 then intFax = 0 end if if not strError <> "" then 'send email now Dim objSendMail Dim strBody strBodyEmail = strBodyEmail & "This message was sent on " & date() & " at " & time() & vbcrlf & vbcrlf strBodyEmail = strBodyEmail & "From the Carrtech web site" & vbcrlf & vbcrlf strBodyEmail = strBodyEmail & "*******************************************************************" & vbcrlf & vbcrlf strBodyEmail = strBodyEmail & "Name: "& strName & vbcrlf strBodyEmail = strBodyEmail & "Company: "& strCompany & vbcrlf strBodyEmail = strBodyEmail & "Address: "& strAddressa & vbcrlf strBodyEmail = strBodyEmail & "Address: "& strAddressb & vbcrlf strBodyEmail = strBodyEmail & "City_Town: "& strCity_Town & vbcrlf strBodyEmail = strBodyEmail & "County: "& strCounty & vbcrlf strBodyEmail = strBodyEmail & "Postcode: "& strPostcode & vbcrlf strBodyEmail = strBodyEmail & "Telephone: "& intTelephone & vbcrlf strBodyEmail = strBodyEmail & "Fax: "& intFax & vbcrlf strBodyEmail = strBodyEmail & "Email: "& strEmail & vbcrlf strBodyEmail = strBodyEmail & "Message: " & vbcrlf & strMessage & vbcrlf strBodyEmail = strBodyEmail & "*******************************************************************" & vbcrlf Set objSendMail = CreateObject("CDONTS.NewMail") With objSendMail .From = "support@rapport-design.com" .To = "support@rapport-design.com" .Bcc = "support@rapport-design.com" .Subject = "Carrtech web site form" .Importance = 2 .Body = strBodyEmail .Send End With Set objSendMail = Nothing strBodyEmail = "" strEBody = "" 'and clean up plus say thank you strError = "Thank you, Information Sent." strName = "" strCompany = "" strEmail = "" strAddressa = "" strAddressb = "" strCity_Town = "" strCounty = "" strPostcode = "" intTelephone = "" intFax = "" strMessage = "" else 'error detected strError = "PLEASE COMPLETE all Fields Hi-Lighted." end if end if %> Carrtech

  Maintenance & Finishing
Solutions for Industry		   Call 0121 683 2600 Email sales@carrtech.com

Home
Precision Paint Jigs
Total Solutions
Electroplating &
  Anodising Jigs

Jig & Rack Cleaning
  & Recalibration
Stillage's Manufacture
  & Maintenance
Engineering Products
Contact Us

Contact Us

   <% = strError %>

If you require any further information on Carrtech please call, email or fill out our enquiry form opposite:

Telephone 0121 683 2600
Fax 0121 683 2601
Email sales@carrtech.com

Carrtech
Crossfield Road,
Kitts Green,
Birmingham
B33 9HR

Company Number 2018213
Registered Office Address
Crossfield Rd
Kitts Green
Birmingham
B33 HP

  

© Carrtech 2007 Site Design by www.rapport-design.com