<%
m=request("m")
if m=1 then
'recipient
mailto="quotes@cars2airports.com"
'mail string header
order = order & "Online Enquiry Details" & chr(13) & chr(10)
order = order & "======================" & chr(13) & chr(10)& chr(13) & chr(10)
'Pick up/arrival
details = details & "Pick up/arrival" & chr(13) & chr(10)
details = details & "---------------" & chr(13) & chr(10)
details = details & "Date : " & Request("date") & chr(13) & chr(10)
details = details & "Time : " & Request("time") & chr(13) & chr(10)
details = details & "Pick up Point : " & Request("start") & chr(13) & chr(10)
details = details & "Post Code : " & Request("pc") & chr(13) & chr(10) & chr(13) & chr(10)
details = details & "Alternative Arrival" & chr(13) & chr(10)
details = details & "-------------------" & chr(13) & chr(10)
details = details & "Date : " & Request("adate") & chr(13) & chr(10)
details = details & "Time : " & Request("atime") & chr(13) & chr(10)
details = details & "Arriving At : " & Request("arrive") & chr(13) & chr(10)
details = details & "Departing From : " & Request("departf") & chr(13) & chr(10)
details = details & "Flight/Ref No : " & Request("ref") & chr(13) & chr(10) & chr(13) & chr(10)
details = details & "UK Destination" & chr(13) & chr(10)
details = details & "--------------" & chr(13) & chr(10)
details = details & "Address : " & Request("dest") & chr(13) & chr(10)
details = details & "Post Code : " & Request("pc2") & chr(13) & chr(10) & chr(13) & chr(10)
details = details & "Alternative Departure" & chr(13) & chr(10)
details = details & "---------------------" & chr(13) & chr(10)
details = details & "Airport/Station : " & Request("dgo") & chr(13) & chr(10)
details = details & "Time : " & Request("dtime") & chr(13) & chr(10)
details = details & "Flight/Ref No : " & Request("dref") & chr(13) & chr(10) & chr(13) & chr(10)
'customer details
details = details & "Customer Details" & chr(13) & chr(10)
details = details & "----------------" & chr(13) & chr(10)
details = details & "Name : " & Request("contact") & chr(13) & chr(10)
details = details & "Primary Pass Name : " & Request("primary") & chr(13) & chr(10)
details = details & "E-Mail : " & "mailto:" & Request.Form("email")& chr(13) & chr(10)
details = details & "Telephone : " & Request("tel") & chr(13) & chr(10)
details = details & "Mobile : " & Request("mob") & chr(13) & chr(10)
details = details & "Fax : " & Request("fax") & chr(13) & chr(10)
details = details & "Country of Depart.: " & Request("depart") & chr(13) & chr(10)
details = details & "Passengers : " & Request("passengers") & chr(13) & chr(10) & chr(13) & chr(10)
'account customer details
details = details & "Account Customer Details" & chr(13) & chr(10)
details = details & "------------------------" & chr(13) & chr(10)
details = details & "Company Name : " & Request("company") & chr(13) & chr(10)
details = details & "Company E-Mail : " & "mailto:" & Request.Form("cemail") & chr(13) & chr(10)
details = details & "Company Telephone : " & Request("ctel") & chr(13) & chr(10)
details = details & "Company Fax : " & Request("cfax") & chr(13) & chr(10) & chr(13) & chr(10)
'Luggage
details = details & "Luggage" & chr(13) & chr(10)
details = details & "-------" & chr(13) & chr(10)
details = details & "No. of Large Bags : " & Request("bag") & chr(13) & chr(10)
details = details & "No. of Carry Bags : " & Request("bag2") & chr(13) & chr(10) & chr(13) & chr(10)
details = details & "Children" & chr(13) & chr(10)
details = details & "--------" & chr(13) & chr(10)
details = details & Request("kids") & chr(13) & chr(10) & chr(13) & chr(10)
details = details & "Disabilities" & chr(13) & chr(10)
details = details & "------------" & chr(13) & chr(10)
details = details & Request("dis") & chr(13) & chr(10) & chr(13) & chr(10)
details = details & "Other Details" & chr(13) & chr(10)
details = details & "-------------" & chr(13) & chr(10)
details = details & Request("other") & chr(13) & chr(10) & chr(13) & chr(10)
details = details & "Vehicle" & chr(13) & chr(10)
details = details & "-------" & chr(13) & chr(10)
details = details & Request("veh") & chr(13) & chr(10) & chr(13) & chr(10)
details = details & "How did you hear about us" & chr(13) & chr(10)
details = details & "-------------------------" & chr(13) & chr(10)
details = details & Request("hear") & chr(13) & chr(10) & chr(13) & chr(10)
'create mail object
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.bronco.co.uk"
Mail.IsHTML = false
'check validity of email
if Request.Form("email") <> "" then
Mail.From = Request.Form("email")
from = Request.Form("email")
else
Mail.From = "unknownuser@cars2airports.com"
from = "unknownuser@cars2airports.com"
end if
'build mail content from strings defined above
Mail.Fromname = Request.Form("cus_name")
Mail.Subject = "cars2airport - Online Enquiry"
Mail.Body = order & details
Mail.AddAddress + mailto
On error resume next
Mail.Send
response.write "
THANK YOU
We will try and get back to you as soon as possible
" & vbcrlf
else
response.write "
Enquiry Form
"
response.write "Please use the following form to send us your enquiry details or email
quotes@cars2airports.com >> we will respond with a quotation within 12 hours. All forms sent will be acknowledged by return e-mail or telephone.
In order to ensure that we quote the most competitive pricing, and allocate a suitable prestige vehicle of your choice, please give us as much information as possible regarding your journey and your contact details"
response.write "
" & vbcrlf
response.write "
Submit This Form" & vbcrlf
end if
%>