<%@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"
%>
<%
dominio = Replace(Request.ServerVariables("HTTP_HOST"),"www.","")
llamadaAbsoluta = "https://www." & dominio
%>
Informes y documentos
Tienda virtual
Compra tu informe en la TIENDA VIRTUAL de CEPREDE.
<%if mantenimientoTienda then%>
Estamos realizando tareas de mantenimiento, por favor intente acceder de nuevo más tarde.
Disculpe las molestias.
<%end if%>
<%
rsInformes.Close()
Set rsInformes = Nothing
%>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
dominio = Replace(Request.ServerVariables("HTTP_HOST"),"www.","")
llamadaAbsoluta = "https://www." & dominio
%>