<%@LANGUAGE="VBSCRIPT"%> <% Dim detalle__dzona detalle__dzona = "%" If (Request.QueryString("myzona") <> "") Then detalle__dzona = Request.QueryString("myzona") End If %> <% Dim detalle Dim detalle_numRows Set detalle = Server.CreateObject("ADODB.Recordset") detalle.ActiveConnection = MM_dvd_STRING detalle.Source = "SELECT * FROM zona_detalle WHERE zona LIKE '" + Replace(detalle__dzona, "'", "''") + "' ORDER BY local" detalle.CursorType = 0 detalle.CursorLocation = 2 detalle.LockType = 1 detalle.Open() detalle_numRows = 0 %> <% Dim zonas Dim zonas_numRows Set zonas = Server.CreateObject("ADODB.Recordset") zonas.ActiveConnection = MM_dvd_STRING zonas.Source = "SELECT * FROM zona" zonas.CursorType = 0 zonas.CursorLocation = 2 zonas.LockType = 1 zonas.Open() zonas_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 detalle_numRows = detalle_numRows + Repeat1__numRows %> Cardnet Recargable Monedero Electrónico
Sitios Web:
 






Logo Actual
<% detalle.Close() Set detalle = Nothing %> <% zonas.Close() Set zonas = Nothing %>