<%@LANGUAGE="VBSCRIPT"%> <% 'Set the server locale Session.LCID = 1034 %> <% Dim ubicacion1 Dim ubicacion1_numRows Set ubicacion1 = Server.CreateObject("ADODB.Recordset") ubicacion1.ActiveConnection = MM_casa_STRING ubicacion1.Source = "SELECT * FROM Tarifas where ubicacion = 1" ubicacion1.CursorType = 0 ubicacion1.CursorLocation = 2 ubicacion1.LockType = 1 ubicacion1.Open() ubicacion1_numRows = 0 %> <% Dim ubicacion2 Dim ubicacion2_numRows Set ubicacion2 = Server.CreateObject("ADODB.Recordset") ubicacion2.ActiveConnection = MM_casa_STRING ubicacion2.Source = "SELECT * FROM Tarifas where ubicacion = 2" ubicacion2.CursorType = 0 ubicacion2.CursorLocation = 2 ubicacion2.LockType = 1 ubicacion2.Open() ubicacion2_numRows = 0 %> <% Dim ubicacion3 Dim ubicacion3_numRows Set ubicacion3 = Server.CreateObject("ADODB.Recordset") ubicacion3.ActiveConnection = MM_casa_STRING ubicacion3.Source = "SELECT * FROM Tarifas where ubicacion = 3" ubicacion3.CursorType = 0 ubicacion3.CursorLocation = 2 ubicacion3.LockType = 1 ubicacion3.Open() ubicacion3_numRows = 0 %> <% Dim ubicacion4 Dim ubicacion4_numRows Set ubicacion4 = Server.CreateObject("ADODB.Recordset") ubicacion4.ActiveConnection = MM_casa_STRING ubicacion4.Source = "SELECT * FROM Tarifas where ubicacion = 4" ubicacion4.CursorType = 0 ubicacion4.CursorLocation = 2 ubicacion4.LockType = 1 ubicacion4.Open() ubicacion4_numRows = 0 %> <% Dim ubicacion5 Dim ubicacion5_numRows Set ubicacion5 = Server.CreateObject("ADODB.Recordset") ubicacion5.ActiveConnection = MM_casa_STRING ubicacion5.Source = "SELECT * FROM Tarifas where ubicacion = 5" ubicacion5.CursorType = 0 ubicacion5.CursorLocation = 2 ubicacion5.LockType = 1 ubicacion5.Open() ubicacion5_numRows = 0 %> <% Dim ubicacion6 Dim ubicacion6_numRows Set ubicacion6 = Server.CreateObject("ADODB.Recordset") ubicacion6.ActiveConnection = MM_casa_STRING ubicacion6.Source = "SELECT * FROM Tarifas where ubicacion = 6" ubicacion6.CursorType = 0 ubicacion6.CursorLocation = 2 ubicacion6.LockType = 1 ubicacion6.Open() ubicacion6_numRows = 0 %> <% Dim ubicacion7 Dim ubicacion7_numRows Set ubicacion7 = Server.CreateObject("ADODB.Recordset") ubicacion7.ActiveConnection = MM_casa_STRING ubicacion7.Source = "SELECT * FROM Tarifas where ubicacion = 7" ubicacion7.CursorType = 0 ubicacion7.CursorLocation = 2 ubicacion7.LockType = 1 ubicacion7.Open() ubicacion7_numRows = 0 %> <% Dim packs Dim packs_numRows Set packs = Server.CreateObject("ADODB.Recordset") packs.ActiveConnection = MM_casa_STRING packs.Source = "SELECT * FROM Packs ORDER BY fecha_carga DESC" packs.CursorType = 0 packs.CursorLocation = 2 packs.LockType = 1 packs.Open() packs_numRows = 0 %> <% Dim ofertas Dim ofertas_numRows Set ofertas = Server.CreateObject("ADODB.Recordset") ofertas.ActiveConnection = MM_casa_STRING ofertas.Source = "SELECT * FROM Ofertas" ofertas.CursorType = 0 ofertas.CursorLocation = 2 ofertas.LockType = 1 ofertas.Open() ofertas_numRows = 0 %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_casa_STRING Recordset1.Source = "SELECT * FROM suplementos ORDER BY idsuplemento ASC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 ofertas_numRows = ofertas_numRows + Repeat2__numRows %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 3 Repeat1__index = 0 packs_numRows = packs_numRows + Repeat1__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 2 Repeat3__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat3__numRows %> Hotel Casablanca
 

Aquí encontrará las tarifas para ambos hoteles. Para cualquier pregunta o para realizar sus reservas contacte con nosotros en casablancaplaya@ctv.es o bien en los teléfonos +34 977 380 107 (H. Casablanca) ó +34 977 350 174 (H. Rotonda).

Tarifas

<% If Not ofertas.EOF Or Not ofertas.BOF Then %> <% End If ' end Not ofertas.EOF Or NOT ofertas.BOF %>
Habitación
PC
MP
AD
<%=(ubicacion1.Fields.Item("fecha_temporada_es").Value)%>
Habitación
PC
MP
AD

Suplementos & Referencias
<% While ((Repeat2__numRows <> 0) AND (NOT ofertas.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 ofertas.MoveNext() Wend %>
<%=(ofertas.Fields.Item("texto_es").Value)%>

<% If Not packs.EOF Or Not packs.BOF Then %>
Disfrute el fin de semana por...
<% Function DoWhiteSpace(str) DoWhiteSpace = (Replace(str, vbCrlf, "
")) End Function %> <% While ((Repeat1__numRows <> 0) AND (NOT packs.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 packs.MoveNext() Wend %>
" border="1"> <%=(packs.Fields.Item("titulo_es").Value)%>
<%=DoWhiteSpace(packs.Fields.Item("texto_es").Value)%>
 
<% End If ' end Not packs.EOF Or NOT packs.BOF %>
 
<% ubicacion1.Close() Set ubicacion1 = Nothing %> <% ubicacion2.Close() Set ubicacion2 = Nothing %> <% ubicacion3.Close() Set ubicacion3 = Nothing %> <% ubicacion4.Close() Set ubicacion4 = Nothing %> <% ubicacion5.Close() Set ubicacion5 = Nothing %> <% ubicacion6.Close() Set ubicacion6 = Nothing %> <% ubicacion7.Close() Set ubicacion7 = Nothing %> <% packs.Close() Set packs = Nothing %> <% ofertas.Close() Set ofertas = Nothing %> <% Recordset1.Close() Set Recordset1 = Nothing %>