CYOA 's Newest Additions to the Fleet!

CYOA is constantly adding new yachts to our fleet. Check out our most recent additions, shown below, and consider adding your own special yacht to the fleet! Explore the benefits and privileges of investing in CYOA's yacht ownership program -- click on the 'Ownership' link to the left for details.

        <% 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 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 [New Fleet Page] = True order by [length]" GenerateNewFleet Sub GenerateNewFleet rsReport.open strSQL, adoConnect Response.Write("") 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("") if i Mod 3 = 0 then Response.Write("") end if i = i + 1 rsReport.MoveNext wend 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("

 

") Response.Write("

 

") Response.Write("

 

") Response.Write("

 



") rsReport.close End Sub Set rsReport = Nothing Set rsTypes = Nothing Set adoConnect = nothing %>