<%@LANGUAGE="VBSCRIPT"%>
<%
Dim Recordset2__selDate
Recordset2__selDate = ""
if (Request("selDate") <> "") then Recordset2__selDate = Request("selDate")
%>
<%
Dim Recordset2__Day
Recordset2__Day = ""
if (Request("Day") <> "") then Recordset2__Day = Request("Day")
%>
<%
Dim Recordset2__Month
Recordset2__Month = ""
if (Request("Month") <> "") then Recordset2__Month = Request("Month")
%>
<%
Dim Recordset2__Year
Recordset2__Year = ""
if (Request("Year") <> "") then Recordset2__Year = "20"&Request("Year")
%>
<%
Dim Recordset2__selCruiseline
Recordset2__selCruiseline = ""
if (Request("selCruiseline") <> "") then Recordset2__selCruiseline = Request("selCruiseline")
%>
<%
Dim Recordset2__selItinary
Recordset2__selItinary = ""
if (Request("selItinary") <> "") then Recordset2__selItinary = Request("selItinary")
%>
<%
Dim Recordset2__show
Recordset2__show = ""
if (Request("show") <> "") then Recordset2__show = Request("show")
%>
<%
set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_connsecond_STRING
Recordset2.Source = "SELECT * FROM cruise,cruiseline,cruiseship WHERE ( 1=1 "
if (Request("selCruiseline") <> "") then Recordset2.Source = Recordset2.Source + " AND cruiseline.clname = '" + Replace(Recordset2__selCruiseline, "'", "''") + "'"
if (Request("selItinary") <> "") then Recordset2.Source = Recordset2.Source + " AND cruise.destination_site = '" + Replace(Recordset2__selItinary, "'", "''") + "'"
if (Request("show") <> "") then Recordset2.Source = Recordset2.Source + " AND cruise.show = '" + Replace(Recordset2__show, "'", "''") + "'"
if (Request("day") <> "") then
if (Request("Month") <> "") then
if (Request("Year") <> "") then
Recordset2.Source = Recordset2.Source + " AND day(cruise.date) =" + Replace(Recordset2__Day, "'", "''")
Recordset2.Source = Recordset2.Source + " AND month(cruise.date) =" + Replace(Recordset2__Month, "'", "''")
Recordset2.Source = Recordset2.Source + " AND year(cruise.date) =" + Replace(Recordset2__Year, "'", "''")
else
Recordset2.Source = Recordset2.Source + " AND day(cruise.date) =" + Replace(Recordset2__Day, "'", "''")
Recordset2.Source = Recordset2.Source + " AND month(cruise.date) =" + Replace(Recordset2__Month, "'", "''")
end if
else
if (Request("Year") <> "") then
Recordset2.Source = Recordset2.Source + " AND year(cruise.date) =" + Replace(Recordset2__Year, "'", "''")
Recordset2.Source = Recordset2.Source + " AND day(cruise.date) =" + Replace(Recordset2__Day, "'", "''")
else
Recordset2.Source = Recordset2.Source + " AND day(cruise.date) =" + Replace(Recordset2__Day, "'", "''")
end if
end if
else
if (Request("Month") <> "") then
if (Request("Year") <> "") then
Recordset2.Source = Recordset2.Source + " AND month(cruise.date) =" + Replace(Recordset2__Month, "'", "''")
Recordset2.Source = Recordset2.Source + " AND year(cruise.date) =" + Replace(Recordset2__Year, "'", "''")
else
Recordset2.Source = Recordset2.Source + " AND month(cruise.date) =" + Replace(Recordset2__Month, "'", "''")
end if
else
if (Request("Year") <> "") then
Recordset2.Source = Recordset2.Source + " AND year(cruise.date) =" + Replace(Recordset2__Year, "'", "''")
end if
end if
end if
Recordset2.Source = Recordset2.Source + ") and cruise.cruiseline_id=cruiseline.cruiseline_id and cruise.cruiseship_id=cruiseship.cruiseship_id and cruiseline.cruiseline_id=cruiseship.cruiseline_id "
Recordset2.Source = Recordset2.Source + "and deadline>now() order by date, destination_site "
%>
<%Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 3
Recordset2.Open()
Recordset2_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = Recordset2.recordcount
Dim Repeat1__index
Repeat1__index = 0
Recordset2_numRows = Recordset2_numRows + Repeat1__numRows
%>
Untitled Document
SEARCH RESULTS
<% If Not Recordset2.EOF Or Not Recordset2.BOF Then %>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset2.EOF))
%>
<%=(Recordset2.Fields.Item("title").Value)%>
<% if Recordset2.Fields.Item("show").Value = "y" then %>
<% end if %>
|
|
|
|
| Departure Date:(ddmmyy) <%=(Recordset2.Fields.Item("date").Value)%> |
| Departing from: <%=(Recordset2.Fields.Item("departure_city").Value)%> |
| Returning to: <%=(Recordset2.Fields.Item("return_city").Value)%> |
|
Suggested Prices from |
| Cruise Line: "><%=(Recordset2.Fields.Item("clname").Value)%> |
$US <%=(Recordset2.Fields.Item("US_price").Value)%> |
| Cruise Ship: "><%=(Recordset2.Fields.Item("csname").Value)%> |
$CDN <%=(Recordset2.Fields.Item("CAD_price").Value)%> |
|
 ">
|
<%=(Recordset2.Fields.Item("freeflow_text").Value)%> |
|
|
|
|
|
|
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset2.MoveNext()
Wend
%>
<% Else %>
Sorry,
we currently have no specials posted for your specific request.
However there may be unadvertised cruise specials available.
Please call us and a cruise consultant will be happy to assist you.
Click here for our online request form or in North
America call
toll free 1.877.325.7522.
Thank You!
<% End If ' end Not Recordset2.EOF Or NOT Recordset2.BOF %>
<%
Recordset2.Close()
%>