|
CHARTER Overview
: Fleet : Request
Quote
REQUEST QUOTE
<%if request.Form("submit") = "" then %>
To obtain a quick charter quote, just fill out this short
form, or call us at 1-888-359-7600
Bold = required field
<% end if %>
<%
' if the form is not submiting then run the form
newform = Request.Form("submit")
if newform <> "Submit" then
%>
<%
' else send the email
else
response.Write("
")
if request.Form("name") = "" then
response.Write("Please provide your name.")
elseif request.Form("phone") = "" then
response.Write("Please provide a phone number.")
elseif request.Form("email") = "" then
response.Write("Please provide an email address.")
elseif request.Form("departuredate") = "" then
response.Write("Please provide a departure date.")
elseif request.Form("departurelocation") = "" then
response.Write("Please provide a departure location.")
elseif request.Form("destination") = "" then
response.Write("Please provide a destination.")
elseif request.Form("passengers") = "" then
response.Write("Please provide the number of passengers.")
else
Message = "Name: " & Request.Form("name") & chr(13) & _
"Phone: " & Request.Form("phone") & chr(13) & _
"Email: " & Request.Form("email") & chr(13) & _
"Street: " & Request.Form("street") & chr(13) & _
"City: " & Request.Form("city") & chr(13) & _
"State: " & Request.Form("state") & chr(13) & _
"Zip: " & Request.Form("zip") & chr(13) & _
"Departure Date: " & Request.Form("departuredate") & chr(13) & _
"Departure Location: " & Request.Form("departurelocation") & chr(13) & _
"Destination: " & Request.Form("destination") & chr(13) & _
"Passengers: " & Request.Form("passengers") & chr(13) & _
"Additional Destinations: " & Request.Form("addestinations") & chr(13) & _
"Additional Dates: " & Request.Form("addestdates")& chr(13) & _
"Return: " & Request.Form("return") & chr(13) & _
"Return Date: " & Request.Form("returndate") & chr(13) & _
"Contact: " & Request.Form("contact") & chr(13) & _
"Comments: " & Request.Form("comments")
Set Mailer = Server.CreateObject ("SMTPsvg.Mailer")
Mailer.FromName=Request.Form("name")
Mailer.FromAddress = Request.Form("email")
Mailer.Subject = "Quote Request"
Mailer.BodyText = Message
'Modifying RemoteHost due to internal network changes. Should just be mail-fwd now.
'Mailer.RemoteHost = ""
' Mailer.RemoteHost = "me3.com"
Mailer.RemoteHost = "outbound-relay.biz.rr.com" ' CHANGE ME!!!!
' Mailer.AddRecipient "Sharon Pieniak","sharon@bluecatmedia.com"
Mailer.AddRecipient "AirJet Charter","charter@airjetcharter.com" ' CHANGE ME!!!!
if Mailer.SendMail then
' Message sent sucessfully
' response.write "Your message was sent to " & mailTo
response.write "Thank you! Your message was sent successfully. Someone will be in in touch shortly."
else
' Message send failure
response.write "Your message was not sent.
"
response.write "The error was: " & Mailer.Response & "
"
end if
Set Mailer = Nothing
end if
response.Write(" ")
end if
%>
|
|
