<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Tipo4 Dim Tipo4_numRows Set Tipo4 = Server.CreateObject("ADODB.Recordset") Tipo4.ActiveConnection = MM_Sirius_STRING Tipo4.Source = "SELECT Tipo FROM Tipo WHERE TipoID = 4" Tipo4.CursorType = 0 Tipo4.CursorLocation = 2 Tipo4.LockType = 1 Tipo4.Open() Tipo4_numRows = 0 %> <% Dim Prices4 Dim Prices4_numRows Set Prices4 = Server.CreateObject("ADODB.Recordset") Prices4.ActiveConnection = MM_Sirius_STRING Prices4.Source = "SELECT Articulos, Precio FROM DivPrices WHERE TipoID = 4" Prices4.CursorType = 0 Prices4.CursorLocation = 2 Prices4.LockType = 1 Prices4.Open() Prices4_numRows = 0 %> <% Dim Tipo5 Dim Tipo5_numRows Set Tipo5 = Server.CreateObject("ADODB.Recordset") Tipo5.ActiveConnection = MM_Sirius_STRING Tipo5.Source = "SELECT Tipo FROM Tipo WHERE TipoID = 5" Tipo5.CursorType = 0 Tipo5.CursorLocation = 2 Tipo5.LockType = 1 Tipo5.Open() Tipo5_numRows = 0 %> <% Dim Prices5 Dim Prices5_numRows Set Prices5 = Server.CreateObject("ADODB.Recordset") Prices5.ActiveConnection = MM_Sirius_STRING Prices5.Source = "SELECT Articulos, Precio FROM DivPrices WHERE TipoID = 5" Prices5.CursorType = 0 Prices5.CursorLocation = 2 Prices5.LockType = 1 Prices5.Open() Prices5_numRows = 0 %> <% Dim Tipo6 Dim Tipo6_numRows Set Tipo6 = Server.CreateObject("ADODB.Recordset") Tipo6.ActiveConnection = MM_Sirius_STRING Tipo6.Source = "SELECT Tipo FROM Tipo WHERE TipoID = 6" Tipo6.CursorType = 0 Tipo6.CursorLocation = 2 Tipo6.LockType = 1 Tipo6.Open() Tipo6_numRows = 0 %> <% Dim Tipo7 Dim Tipo7_numRows Set Tipo7 = Server.CreateObject("ADODB.Recordset") Tipo7.ActiveConnection = MM_Sirius_STRING Tipo7.Source = "SELECT Tipo FROM Tipo WHERE TipoID = 7" Tipo7.CursorType = 0 Tipo7.CursorLocation = 2 Tipo7.LockType = 1 Tipo7.Open() Tipo7_numRows = 0 %> <% Dim Prices6 Dim Prices6_numRows Set Prices6 = Server.CreateObject("ADODB.Recordset") Prices6.ActiveConnection = MM_Sirius_STRING Prices6.Source = "SELECT Articulos, Precio FROM DivPrices WHERE TipoID = 6" Prices6.CursorType = 0 Prices6.CursorLocation = 2 Prices6.LockType = 1 Prices6.Open() Prices6_numRows = 0 %> <% Dim Prices7 Dim Prices7_numRows Set Prices7 = Server.CreateObject("ADODB.Recordset") Prices7.ActiveConnection = MM_Sirius_STRING Prices7.Source = "SELECT Articulos, Precio FROM DivPrices WHERE TipoID = 7" Prices7.CursorType = 0 Prices7.CursorLocation = 2 Prices7.LockType = 1 Prices7.Open() Prices7_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Prices4_numRows = Prices4_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 Prices5_numRows = Prices5_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 Prices6_numRows = Prices6_numRows + Repeat3__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = -1 Repeat4__index = 0 Prices7_numRows = Prices7_numRows + Repeat4__numRows %> Sirius Hotel Precios
Prices Diving Prices in USD
<% While ((Repeat1__numRows <> 0) AND (NOT Prices4.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Prices4.MoveNext() Wend %>
Experience in Diving
Discover Snorkeling Experience
$20,00
Scuba Review
$50,00
Discovery Scuba Diving
$70,00
BubbleMaker
$70,00
Certification Courses
Skin Diver
$75,00
PADI Scuba Diver (module 1,2,3)
$225,00
Open Water Diver PADI
$275,00
Course Referal. PADI / NAUI
$225,00
Adventure Diver
$140,00
Advanced PADI / NAUI
$300,00
First Aid Course , MFA
$200,00
Oxygen Provider DAN Course
$100,00
Rescue Diver
$325,00
DiveMaster PADI / NAUI
$990,00
Prices of Immersions (It doesn't include Equipment)
Single Dive
$55,00
Double Dive
$60,00
Night Dive
$50,00
4 Dives Package
$160,00
6 Dive Package
$220,00
8 Dive Package
$280,00
10 Dive Pakage
$320,00
Equipment Rental
Chaleco
$10,00
Regulator
$10,00
Neoprene Dive Suit
$10,00
Fins, Mask and Snorkel
$10,00
Lantern
$12,00
Compass and other accessories
$10,00
<% Tipo4.Close() Set Tipo4 = Nothing %> <% Prices4.Close() Set Prices4 = Nothing %> <% Tipo5.Close() Set Tipo5 = Nothing %> <% Prices5.Close() Set Prices5 = Nothing %> <% Tipo6.Close() Set Tipo6 = Nothing %> <% Tipo7.Close() Set Tipo7 = Nothing %> <% Prices6.Close() Set Prices6 = Nothing %> <% Prices7.Close() Set Prices7 = Nothing %>