<% return = countit(8, -1) %> <% 'If form sent, send mail if request.form("sending") ="1" then Dim objCDO Set objCDO = Server.CreateObject("Persits.MailSender") objCDO.Host = "mail.fluid2.co.uk;mail.fluid2.com;mail.xsuk.com;mail.allterrainautos.co.uk" objCDO.From = request.form("VisitorsEmail") objCDO.FromName = "All Terrain Autos Website" objCDO.Subject = "allterrainautos.co.uk enquiry" message = "Automated Message." & vbCrLf message = message & "This message is the result of a user submitted form from contact.asp via allterrainautos.co.uk" & vbCrLf & vbCrLf & vbCrLf message = message & "Name: " & request.form("VisitorsName") & vbCrLf message = message & "Email: " & request.form("VisitorsEmail") & vbCrLf & vbCrLf message = message & "Registration: " & request.form("VisitorsReg") & vbCrLf & vbCrLf message = message & "Make: " & request.form("manufacturer") & vbCrLf message = message & "Model: " & request.form("VisitorsModel") & vbCrLf message = message & "CC: " & request.form("VisitorsCC") & vbCrLf message = message & "VIN: " & request.form("VisitorsVIN") & vbCrLf message = message & "Company: " & request.form("CompanyName") & vbCrLf & vbCrLf message = message & "Message:" & vbCrLf message = message & request.form("comments") objCDO.AddAddress "info@allterrainautos.co.uk" objCDO.From = request.form("VisitorsEmail") objCDO.Body = message objCDO.Send If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If End If %> Welcome to Allterrain Autos
   
  All Terrain Autos
 

Unit 6
Warne Road
Weston-Super-Mare
BS23 3TP
 
Telephone
  01934 429999
 
Email
info@allterrainautos.co.uk

Please fill out as much information as possible
 
Credit Cards Accepted
Site Designed by Fluid2 New Media