Meet our Catamaran Fleet!

CYOA is committed to providing you with top-quality boats from some of the best names in the business. In addition to tempting you with a few new boats each year, we ensure that every boat in the fleet is maintained to the high standards you've come to expect from CYOA.

<% dim adoConnect 'ADO Connection Object dim rsReport 'ADO Recordset Object kept for the prices and dates for specific vessel types dim rsTypes 'ADO Recorset Object kept for the types of vessels dim rsFees 'ADO Recordset Object kept for holding additional fees information dim rsMisc dim strSQL 'String to Hold SQL statement dim strType 'Stores the type of vessel that it is trying to retrieve dim bSeasonB dim bSeasonC dim strCapacity dim bSeasonD 'Boolean value to tell whether the vessel type has a season D dim strVesselLink 'Stores the generated link to the vessel details on the website Set adoConnect = Server.CreateObject("ADODB.Connection") adoConnect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("cgi-bin\cyoa.mdb") Set rsTypes = Server.CreateObject("ADODB.Recordset") rsTypes.CursorType = 2 Set rsReport = Server.CreateObject("ADODB.Recordset") rsReport.CursorType = 2 Set rsMisc = Server.CreateObject("ADODB.Recordset") rsMisc.CursorType = 2 rsMisc.open "select * from misc_data", adoConnect 'Response.Write ("Effective " & rsMisc("Field2") & " for all new bookings") strSQL = "select * from tbl_vessel where [Left FLeet] = False AND [Type] = 'Catamaran' order by [sortorder]" GenerateNewFleet Sub GenerateNewFleet rsReport.open strSQL, adoConnect Dim strVessel, i, strHasAir, strThumbnail i = 1 while NOT rsReport.EOF if i Mod 3 = 1 then Response.Write("") end if strCapacity = rsReport("Max Pax") strHasAir = rsReport("Has Air Con") if strHasAir = "True" then strHasAir = "A/C" else strHasAir = "" end if strThumbnail = rsReport("Fleet Page Image URL") if len(strThumbnail) > 5 then strThumbnail = rsReport("Fleet Page Image URL") else strThumbnail = "boat_images/new.jpg" end if strVessel = Replace(rsReport("url"),"www.cyoacharters.com/","") strThumbnail = Replace(strThumbnail, "www.cyoacharters.com/","") strVesselLink = "VesselDetail.asp?vessel=" & strVessel Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("
") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("
") Response.Write("" & rsReport("Vesselyear") & " " & rsReport("Vesselname") & " | ") Response.Write(rsReport("Cabins") & " cabins | " & rsReport("Heads") & " heads | sleeps " & strCapacity &" | " & strHasAir & "
") Response.Write("
") Response.Write("
SEASON ASEASON BSEASON CSEASON D
" & rsReport("DateRangeA1") & "
" & rsReport("DateRangeA2") & "
" & rsReport("DateRangeB1") & "
" & rsReport("DateRangeB2") & "
" & rsReport("DateRangeC1") & "
" & rsReport("DateRangeC2") & "
" & rsReport("DateRangeD1") & "
" & rsReport("DateRangeD2") & "
" & rsReport("RateA") & "" & rsReport("RateB") & "" & rsReport("RateC") & "" & rsReport("RateD") & "
 
") Response.Write("
") Response.Write("
") rsReport.MoveNext wend rsReport.close End Sub Set rsReport = Nothing Set rsTypes = Nothing Set adoConnect = nothing %>