<% @ Language = VBScript %>
<%
if Request.QueryString("Submit") = "True" then
FirstName = Request.Form("FirstName")
LastName = Request.Form("LastName")
Address = Request.Form("Address")
City = Request.Form("City")
State = Request.Form("State")
Zip = Request.Form("Zip")
HArea = Request.Form("HArea")
hphone = Request.Form("hphone")
wphone = Request.Form("wphone")
WArea = Request.Form("WArea")
email = Request.Form("email")
besttime = Request.Form("best")
cruiseline = Request.Form("cruiseline")
cruiseship2 = Request.Form("cruiseship2")
destination = Request.Form("destination")
days = Request.Form("days")
month1 = Request.Form("month1")
day1 = Request.Form("day1")
year1 = Request.Form("year1")
month2 = Request.Form("month2")
day2 = Request.Form("day2")
year2 = Request.Form("year2")
stateroom = Request.Form("stateroom")
pass = Request.Form("pass")
depcity = Request.Form("depcity")
hear = Request.Form("hear")
cruisebefore = Request.Form("cruisebefore")
cruise = Request.Form("cruise")
cruiselist = Request.Form("cruiselist")
additionalinfo = Request.Form("additional")
CruiseSpecialist = Request.Form("optCruiseSpecialist")
if trim(CruiseSpecialist) = "jw@blueseacruises.com" then CruiseSpecialistName = "John West"
if trim(CruiseSpecialist) = "rb@blueseacruises.com" then CruiseSpecialistName = "Rhoda Berger"
if trim(CruiseSpecialist) = "bm@blueseacruises.com" then CruiseSpecialistName = "Bijousa Esther Morales"
Info = ""
Info = ":: -- REQUEST A QUOTE -- ::"& vbcrlf & vbcrlf
Info = Info &"First Name : "& FirstName & vbCrlf
Info = Info &"Last Name : "& LastName & vbCrlf
Info = Info &"Address : "& Address & vbCrlf
Info = Info &"City : "& City & vbCrlf
Info = Info &"State : "& State & vbCrlf
Info = Info &"Zip Code : "& Zip & vbCrlf
Info = Info &"Home Phopne : "& HArea & " - "& hphone & vbCrlf
Info = Info &"Work Phone : "& WArea & " - "& wphone & vbCrlf
Info = Info &"Email ID : "& email & vbCrlf
Info = Info &"Best Time To Call : "& besttime & vbCrlf
Info = Info &"Cruise Line : "& cruiseline & vbCrlf
Info = Info &"Cruise Ship : "& cruiseship2 & vbCrlf
Info = Info &"Destination : "& destination & vbCrlf
Info = Info &"No. of Days : "& days & vbCrlf
Info = Info &"Dep. Date Ist Choice : "& month1 &"/"& day1 &"/"& year1 & vbCrlf
Info = Info &"Dep. Date IInd Choice : "& month2 &"/"& day2 &"/"& year2 & vbCrlf
Info = Info &"State Room : "& stateroom & vbCrlf
Info = Info &"No. of Passengers : "& pass & vbCrlf
Info = Info &"Air Dep. City : "& depcity & vbCrlf
Info = Info &"Where did you hear about us : "& hear & vbCrlf
Info = Info &"Have you cruised before? : "& cruisebefore & vbCrlf
Info = Info &"Cruise Online : "& cruise & vbCrlf
Info = Info &"Would you like to receive our cruise mailing? : "& cruiselist & vbCrlf
Info = Info &"Additional Information : "& additionalinfo & vbCrlf
Info = Info &"Selected Cruise Specialist Name: "& CruiseSpecialistName & vbCrlf
'TO SEND A MAIL
set mymail=server.createobject("CDONTS.NewMail")
mymail.to = "as@continentaltraveler.com"
mymail.from = email &" ( "& FirstName &" "& LastName & " )"
mymail.cc = CruiseSpecialist
mymail.Bcc = email
mymail.subject="Request For A Quote - BlueSeaCruises"
mymail.body=Info
on error resume next
mymail.send
set mymail=nothing
Response.Redirect "index.htm"
end if
%>
Blueseacruises.com - Cruises - a new kind of Cruise Company
