%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% '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 = -1 Repeat3__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat3__numRows %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||