<% On Error Resume Next %> CYOA Yacht Charters | US Virgin Islands | St. Thomas

WEEKLY RATES AT A GLANCE


CATAMARANS AND MONOHULLS

<% 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") rsTypes.open "select distinct type from tbl_vessel ", adoConnect while not rsTypes.EOF strType = rsTypes("type") strSQL = "select * from tbl_vessel ORDER BY sortorder" GenerateType rsTypes.MoveNext Wend Sub GenerateType rsReport.open strSQL, adoConnect if Not rsReport("RateB") = "" then bSeasonB = true else bSeasonB = false end if if Not rsReport("RateC") = "" then bSeasonC = true else bSeasonC = false end if if Not rsReport("RateD") = "" then bSeasonD = true else bSeasonD = false end if Response.Write("") Response.Write("") Response.Write("") if bSeasonB = true then Response.Write("") end if if bSeasonC = true then Response.Write("") end if if bSeasonD = true then Response.Write("") end if Response.Write("") Response.Write("") Response.Write("") if bSeasonB = true then Response.Write("") end if if bSeasonC = true then Response.Write("") end if if bSeasonD = true then Response.Write("") end if Response.Write("") Dim strVessel while NOT rsReport.EOF strVessel = Replace(rsReport("url"),"www.cyoacharters.com/","") strVesselLink = "" & rsReport("VesselYear") & " " & rsReport("VesselName") & "" Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") if Not rsReport("RateD") = "" then Response.Write("") end if Response.Write("") rsReport.MoveNext wend Response.Write("
 
SEASON ASEASON BSEASON CSEASON D
" & rsReport("DateRangeA1") & "
" & rsReport("DateRangeA2") & "
" & Replace(rsReport("DateRangeB1"),"&","&
") & "
" & rsReport("DateRangeB2") & "
" & rsReport("DateRangeC1") & "
" & rsReport("DateRangeC2") & "
" & rsReport("DateRangeD1") & "
" & rsReport("DateRangeD2") & "
" & strVesselLink & "
" & rsReport("RateA") & "
" & rsReport("RateB") & "
" & rsReport("RateC") & "
" & rsReport("RateD") & "

") Response.Write("

 

") Response.Write("

 

") Response.Write("

 

") Response.Write("

 

") Response.Write("

 



") rsReport.close End Sub Set rsReport = Nothing Set rsTypes = Nothing Set rsFees = Server.CreateObject("ADODB.Recordset") rsFees.open "select * from misc_fees", adoConnect %>

a/c =  Boats that have air conditioning

Notes on these rates:

All rates are effective as of <% Response.Write (rsMisc("Field2")) %>.

All rates are for 7 nights, fuel is extra. The minimum charter period is 4 nights; charters of 4 or 5 nights add 10% to daily rate.  Charters start and end at noon – an Early Check-In may available for purchase; please ask your Charter Consultant for details.  Sleepaboards, if available, are one half the daily rate ­minimum of $150 ­and only offered in conjunction with charters of 7 nights or longer; Sleepaboard boarding is at 4PM. There is a 5% premium for all charters over Christmas & New Years ­ please call for exact dates.


<% while not rsFees.EOF Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") rsFees.MoveNext wend Set rsFees = nothing Set rsMisc = nothing Set adoConnect = nothing %>
DEDUCTIBLE REDUCTION AGREEMENT Nightly Rate Base Damage Deposit and Below the
Waterline Deductible**
" & rsFees("type") & "
" & rsFees("cdw_amount") & "
" & rsFees("dep_amount") & "

*All Base Damage Deposits are paid at the time of boarding in Cash or Traveler's Checks. The Below The Waterline Deposit is taken by Credit Card Authorization (VISA or MasterCard ONLY with Photo ID to match contract name) prior to Boarding. The Base Damage Deposit is returned at the end of the Charter and the Credit Card Authorization is allowed to expire after the Dive Check is completed.

Discounts:

Returning Clients are rewarded with a 10% discount. Long Term Discounts: Sailboats: 10 days or more in Season B & C take off 10%; 10 days or more in Season D ­ Catamarans take 15% off and Monohulls receive 10 nights for the price of 7 (equal to 30%).

Charter two boats at the same time and take an additional 5% off both boats, Charter three or more boats at the same time and take 10% off all boats. These multi boat discounts must be earned. A reduction in the number of boats chartered after quote is given may result in a loss of some or all of the multi boat discount.

Discounts cannot be combined, all discounts are subject to restrictions, contact us for specific written quotations.

Click here to download our rate guide. The PDF form requires that you have Adobe Acrobat Reader. If you need to download Acrobat Reader, click on the logo to get Acrobat Reader, for free.