<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim specialoffers__MMColParam specialoffers__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then specialoffers__MMColParam = Request("MM_EmptyValue") End If %> <% Dim specialoffers Dim specialoffers_numRows Set specialoffers = Server.CreateObject("ADODB.Recordset") specialoffers.ActiveConnection = MM_ConnCruise_STRING specialoffers.Source = "SELECT * FROM cruise_table WHERE special_offer = '" + Replace(specialoffers__MMColParam, "'", "''") + "' ORDER BY departure_date ASC" specialoffers.CursorType = 0 specialoffers.CursorLocation = 2 specialoffers.LockType = 1 specialoffers.Open() specialoffers_numRows = 0 %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_ConnCruise_STRING Recordset1.Source = "SELECT * FROM area_table" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 specialoffers_numRows = specialoffers_numRows + Repeat1__numRows %> Disabled Cruising Holidays by Cruisingholiday.co.uk - Special Offers
 
 


Special Offers

<% While ((Repeat1__numRows <> 0) AND (NOT specialoffers.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 specialoffers.MoveNext() Wend %>

<%=(specialoffers.Fields.Item("destinations").Value)%><% if (specialoffers.Fields.Item("flight_involved").Value) = "1" then %> Flight Involved <% else %> <% end if %>
<%=(specialoffers.Fields.Item("departure_date").Value)%>    
<%=(specialoffers.Fields.Item("number_nights").Value)%> nights
Brochure Price: <%= FormatCurrency((specialoffers.Fields.Item("brochure_price").Value), 2, -2, -2, -2) %>
Our Price: <%= FormatCurrency((specialoffers.Fields.Item("our_price").Value), 2, -2, -2, -2) %>
Reference Number: <%=(specialoffers.Fields.Item("cruise_reference").Value)%>
Haemodialysis Onboard? - <% if (specialoffers.Fields.Item("dialysis_support").Value) = "1" then %> Yes <% else %> No <% end if %>
Wheelchair Accessible? - <% if (specialoffers.Fields.Item("wheelchair_support").Value) = "1" then %> Yes <% else %> No <% end if %>
Departing from <%=(specialoffers.Fields.Item("departure_port").Value)%>
">Enquire

Cruising Holiday.co.uk © <%= Response.Write(date) %> admin
<% specialoffers.Close() Set specialoffers = Nothing %> <% Recordset1.Close() Set Recordset1 = Nothing %>