<% 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 "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf for i=0 to 6 bag_options = bag_options & "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "

Pick-up / Arrival

Date
Time
Address for Pick up
Post Code

Alternatively, for arrival at an airport, station, etc

Date of Arrival
Arriving at
Flight/Ref No.
Departing From
Scheduled Arrival Time

Destination in UK

Address
Post Code

Alternatively, for departure from an airport, station, etc

Airport/Station
Flight/Ref No.
Scheduled Departure Time

Your Details

Name
Primary Passenger
E-mail
Telephone
Mobile
Fax
Country of Departure
No of Passengers

For Account Customers

Company Name
Company Email
Company Telephone
Company Fax

Luggage

Cases/Large Bags
Carry On Bags

Special Requirements

Please state if you need a child
seat and ages of any children
Please also state if any facilities
for disabled passengers will be required
Any other relevant details
Please indicate if your mobile no.
above will operate in UK
(Please switch on at arrival!)

Vehicle

Please state if you require a
larger Vehicle:- MPV or Limousine
(at extra charge)

Feedback

Where did you hear about
Cars 2 Airports?
" & vbcrlf response.write "
" & vbcrlf response.write "Submit This Form" & vbcrlf end if %>