<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim area_rs Dim area_rs_numRows Set area_rs = Server.CreateObject("ADODB.Recordset") area_rs.ActiveConnection = MM_ConnCruise_STRING area_rs.Source = "SELECT * FROM area_table" area_rs.CursorType = 0 area_rs.CursorLocation = 2 area_rs.LockType = 1 area_rs.Open() area_rs_numRows = 0 %> <% Dim time_rs Dim time_rs_numRows Set time_rs = Server.CreateObject("ADODB.Recordset") time_rs.ActiveConnection = MM_ConnCruise_STRING time_rs.Source = "SELECT * FROM time_period_table" time_rs.CursorType = 0 time_rs.CursorLocation = 2 time_rs.LockType = 1 time_rs.Open() time_rs_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 %> Disabled Cruising Holidays by Cruisingholiday.co.uk - Find a Cruise
 
 


Find A Cruise

Where would you like to sail?
How long would you like to go for?
Earliest Departure Date:
Latest Departure Date:
Do you require wheelchair access?



Do you require haemodialysis?



Are you prepared to fly?



 


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