<% function extrae_pdf(id) dim pdf(268) pdf(211)="GOBIERNO YUCATÁN 01 06.PDF" pdf(212)="GOBIERNO GUANAJUATO 02 06.PDF" pdf(213)="ANIERM 03 06.PDF" pdf(214)="SECRETARÍA ECONOMÍA 04 06.pdf" pdf(215)="CNA 2006 05 06.PDF" pdf(216)="GOBIERNO OAXACA 06 06.PDF" pdf(217)="EN RED CONSULTORES 08 06.PDF" pdf(218)="ADENDUM GOB GUANAJUATO 09 06.PDF" pdf(219)="GOBIERNO CHIHUAHUA 10 06.PDF" pdf(220)="GOBIERNO AGUASCALIENTES 11 06.PDF" pdf(221)="HRS QUALITY TECH 12 06.PDF" pdf(222)="GOBIERNO CHIAPAS 13 06.PDF" pdf(223)="LOGÍSTICA 2006 14 06.PDF" pdf(224)="CONACCA 15 06.PDF" pdf(225)="GOBIERNO TAMAULIPAS 16 06.PDF" pdf(226)="CENTRO DE INVESTIGACIÓN OMI 17 06.PDF" pdf(227)="CONVENIO UNAM 2006 18 06.PDF" pdf(228)="UNIVERSIDAD AUTÓNOMA DE GUADALAJARA 19 06.PDF" pdf(229)="GOBIERNO SONORA 20 06.PDF" pdf(230)="SECRETARÍA ECONOMÍA APEC 2006 21 06.PDF" pdf(231)="SECRETARÍA ECONOMÍA 3er FORO PYME 22 06.PDF" pdf(232)="SECRETARÍA ECONOMÍA PLANES DE NEGOCIOS 23 06.PDF" pdf(233)="AYUNTAMIENTO CONSTITUCIONAL DE MORELIA 24 06.PDF" pdf(234)="PIAPYME 2006 25 06.PDF" pdf(235)="GOBIERNO DE DURANGO 26 06.pdf" pdf(236)="SECRETARÍA DE ECONOMÍA IBERPYME 27 06.PDF" pdf(237)="DET NORSKE VERITAS MÉXICO 28 06.PDF" pdf(238)="Convenio Yucatán 2007.pdf" pdf(240)="Convenio Quintana Roo 02 07.pdf" pdf(241)="Convenio Cámara Ind. Jalisco 03 07.pdf" pdf(242)="Convenio IPN 04 07.pdf" pdf(243)="Convenio Coahuila 05 07.pdf" pdf(244)="Convenio SE 2007.pdf" pdf(245)="Convenio Gto 07 07.pdf" pdf(246)="Convenio Veracruz 08 07.pdf" pdf(247)="Convenio Ayuntamiento Morelia 09 07.pdf" pdf(248)="Contrato Tabasco 10 07.pdf" pdf(249)="Convenio Municipio Hermosillo 11 07.pdf" pdf(250)="Aguscalientes 14 07.pdf" pdf(251)="PIAPYME 2007 13 07.pdf" pdf(252)="Aenor México 2007 12 07.pdf" pdf(253)="Convenio BCS 15 07.pdf" pdf(254)="COPARMEX EDO MËXICO 16 07.pdf" pdf(255)="CANACINTRA LEON 17 07.pdf" pdf(256)="Convenio Sonora 18 07.pdf" pdf(257)="Convenio Logística 19 07.pdf" pdf(258)="Convenio Oaxaca 20 07.pdf" pdf(259)="Convenio Hidalgo 21 07.pdf" pdf(260)="Convenio Morelos 22 07.pdf" pdf(262)="Convenio Baja Calif Sur 24 07.pdf" pdf(263)="Convenio Estado de México 25 07.pdf" pdf(264)="Canacintra Los Cabos BSC 26 07.pdf" pdf(265)="Convenio UNAM 2007 28 07.pdf" pdf(266)="Adendum Baja California Sur 29 07.pdf" pdf(267)="Convenio Tlaxcala 30 07.pdf" pdf(268)="Convenio con Sinaloa 31 07.pdf" '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> id=RS("id") if id<>"" then extrae_pdf=pdf(id) end if end function %>
Contacto | Mapa de Sitio | Consultores  


Estado: Año: Status:

<% dim valorEdo dim valorAno dim valorStatus valorEdo=Request("show") valorAno=Request("anio") valorStatus=Request("estatus") Set Conexion = Server.CreateObject( "ADODB.Connection" ) Conexion.Open "julio2" Set RS = Server.CreateObject("ADODB.Recordset") set RS2 = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = Conexion RS2.ActiveConnection = Conexion Response.Write ("
Año
Instrumento
Organismo
Medio
Objeto
Status
") if valorEdo = "(Todos...)" Then if valorAno = "(Todos...)" Then if valorStatus = "(Todos...)" Then RS.Open "SELECT * FROM Convenios ORDER BY id desc" desplegar else RS.Open "SELECT * FROM Convenios WHERE Status = '" & valorStatus & "' ORDER BY id desc" desplegar end if else if valorStatus = "(Todos...)" Then RS.Open "SELECT * FROM Convenios WHERE Ano = '"& valorAno & "' ORDER BY id desc" desplegar else RS.Open "SELECT * FROM Convenios WHERE Ano = '" & valorAno & "' AND Status = '" & valorStatus & "' ORDER BY id desc" desplegar end if end if else if valorAno = "(Todos...)" Then if valorStatus = "(Todos...)" Then RS.Open "SELECT * FROM Convenios WHERE Estado = '" & valorEdo & "' ORDER BY id desc" desplegar else RS.Open "SELECT * FROM Convenios WHERE Estado = '" & valorEdo & "' AND Status = '"& valorStatus & "' ORDER BY id desc" desplegar end if else if valorStatus = "(Todos...)" Then RS.Open "SELECT * FROM Convenios WHERE Estado = '" & valorEdo & "' AND Ano = '" & valorAno & "' ORDER BY id desc" desplegar else RS.Open "SELECT * FROM Convenios WHERE Estado = '" & valorEdo & "' AND Ano = '" & valorAno & "' AND Status = '" & valorStatus & "' ORDER BY id desc" desplegar end if end if end if Sub desplegar() WHILE NOT RS.EOF '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> inst=RS("instrumento") id=RS("id") ano=RS("ano") archivo_pdf=extrae_pdf(id) sql2="select * from convenios where instrumento='"&inst&"' " RS2.open sql2,conexion if rs2.eof then enlace=inst else if(ano>=2006) then enlace=""&inst&"" else enlace= inst end if end if RS2.close '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Response.Write ("
") & RS("Ano") Response.Write ("
") & enlace Response.Write ("
") & RS("Organismo") Response.Write ("
") & RS("Medio") Response.Write ("
") & RS("Objeto") Response.Write ("
") & RS("Status") Response.Write ("
") RS.MoveNext WEND End sub %>
Manuel Ma. Contreras #133 7o. Piso, Col. Cuauhtémoc, C.P. 06500, México, D.F.
buzon@compite.org.mx