<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsInformes__MMColParam rsInformes__MMColParam = "false" If (Request("MM_EmptyValue") <> "") Then rsInformes__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsInformes Dim rsInformes_cmd Dim rsInformes_numRows Set rsInformes_cmd = Server.CreateObject ("ADODB.Command") rsInformes_cmd.ActiveConnection = MM_ConnCepredeComunicacion_STRING rsInformes_cmd.CommandText = "SELECT * FROM Tienda ORDER BY DashBoard ASC, Forest Desc, Prioridad*-1 DESC" rsInformes_cmd.Prepared = true rsInformes_cmd.Parameters.Append rsInformes_cmd.CreateParameter("param1", 11, 1, -1, rsInformes__MMColParam) ' adBoolean Set rsInformes = rsInformes_cmd.Execute rsInformes_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsInformes_numRows = rsInformes_numRows + Repeat1__numRows %> <% seccion="informes" subseccion="12" %>