<% If id_nota <> "" Then %> <% Else %>

<%=nombre_cate_proyecto%>

<%=titulo_proyecto%>

<% If pagina_consulta = "en_Observatorio_Publicaciones" Then strSQL = "SELECT tabla_notas.titulo, tabla_notas.id_autor, tabla_notas.id_nota, tabla_notas.copete, tabla_notas.volanta, tabla_notas.id_categoria, tabla_notas.cd, tabla_notas.pd, tabla_notas.fecha, tabla_autores.nombre_autor, tabla_autores.foto200x200, tabla_categorias.categoria, tabla_categorias.carpeta, listado_140w.foto_title, listado_140w.file_name, tabla_notas.id_Proye FROM ((tabla_notas INNER JOIN tabla_categorias ON tabla_notas.id_categoria = tabla_categorias.id_categoria) INNER JOIN tabla_autores ON tabla_notas.id_autor = tabla_autores.id_autor) INNER JOIN listado_140w ON tabla_notas.id_nota = listado_140w.id_nota WHERE ((tabla_notas.id_Proye=3) AND (tabla_notas.id_categoria=38 or tabla_notas.id_categoria=40)) ORDER BY tabla_notas.fecha DESC" ElseIf pagina_consulta = "en_Freemuse_Publicaciones" Then strSQL = "SELECT tabla_notas.titulo, tabla_notas.id_autor, tabla_notas.id_nota, tabla_notas.copete, tabla_notas.volanta, tabla_notas.id_categoria, tabla_notas.cd, tabla_notas.pd, tabla_notas.fecha, tabla_autores.nombre_autor, tabla_autores.foto200x200, tabla_categorias.categoria, tabla_categorias.carpeta, listado_140w.foto_title, listado_140w.file_name, tabla_notas.id_Proye FROM ((tabla_notas INNER JOIN tabla_categorias ON tabla_notas.id_categoria = tabla_categorias.id_categoria) INNER JOIN tabla_autores ON tabla_notas.id_autor = tabla_autores.id_autor) INNER JOIN listado_140w ON tabla_notas.id_nota = listado_140w.id_nota WHERE ((tabla_notas.id_Proye=1) AND (tabla_notas.id_categoria=38 or tabla_notas.id_categoria=40)) ORDER BY tabla_notas.fecha DESC" ElseIf pagina_consulta = "en_Cuba_Publicaciones" Then strSQL = "SELECT tabla_notas.titulo, tabla_notas.id_autor, tabla_notas.id_nota, tabla_notas.copete, tabla_notas.volanta, tabla_notas.id_categoria, tabla_notas.cd, tabla_notas.pd, tabla_notas.fecha, tabla_autores.nombre_autor, tabla_autores.foto200x200, tabla_categorias.categoria, tabla_categorias.carpeta, listado_140w.foto_title, listado_140w.file_name, tabla_notas.id_Proye FROM ((tabla_notas INNER JOIN tabla_categorias ON tabla_notas.id_categoria = tabla_categorias.id_categoria) INNER JOIN tabla_autores ON tabla_notas.id_autor = tabla_autores.id_autor) INNER JOIN listado_140w ON tabla_notas.id_nota = listado_140w.id_nota WHERE ((tabla_notas.id_Proye=4) AND (tabla_notas.id_categoria=38 or tabla_notas.id_categoria=40)) ORDER BY tabla_notas.fecha DESC" ElseIf pagina_consulta = "en_IVH_Publicaciones" Then strSQL = "SELECT tabla_notas.titulo, tabla_notas.id_autor, tabla_notas.id_nota, tabla_notas.copete, tabla_notas.volanta, tabla_notas.id_categoria, tabla_notas.cd, tabla_notas.pd, tabla_notas.fecha, tabla_autores.nombre_autor, tabla_autores.foto200x200, tabla_categorias.categoria, tabla_categorias.carpeta, listado_140w.foto_title, listado_140w.file_name, tabla_notas.id_Proye FROM ((tabla_notas INNER JOIN tabla_categorias ON tabla_notas.id_categoria = tabla_categorias.id_categoria) INNER JOIN tabla_autores ON tabla_notas.id_autor = tabla_autores.id_autor) INNER JOIN listado_140w ON tabla_notas.id_nota = listado_140w.id_nota WHERE ((tabla_notas.id_Proye=5) AND (tabla_notas.id_categoria=38 or tabla_notas.id_categoria=40)) ORDER BY tabla_notas.fecha DESC" Else strSQL = "SELECT tabla_notas.titulo, tabla_notas.copete, tabla_notas.volanta, tabla_notas.pdf_file, tabla_notas.fecha, tabla_notas.pd, tabla_notas.estatu, tabla_categorias.categoria, tabla_categorias.carpeta, tabla_autores.nombre_autor, tabla_autores.id_autor, tabla_autores.tw, tabla_autores.foto200x200, tabla_notas.id_nota, tabla_notas.id_categoria FROM (tabla_notas INNER JOIN tabla_categorias ON tabla_notas.id_categoria = tabla_categorias.id_categoria) INNER JOIN tabla_autores ON tabla_notas.id_autor = tabla_autores.id_autor "&_ "WHERE ((tabla_notas.id_categoria=38 OR tabla_notas.id_categoria=40 OR tabla_notas.id_categoria=46) AND (tabla_notas.cd=1 OR tabla_notas.pd=1) AND (tabla_notas.estatu=1)) ORDER BY tabla_notas.fecha DESC" End If '"WHERE (((tabla_notas.id_categoria=1) OR (tabla_notas.id_categoria=78) OR (tabla_notas.id_categoria=3) OR (tabla_notas.id_categoria=4)) AND ((tabla_notas.cd=1) OR (tabla_notas.pd=1)) AND (tabla_notas.estatu=1) AND (tabla_notas.id_Proye=1) AND ( tabla_notas.fecha BETWEEN #"&anoElegido&"/01/01# AND #"&unAnoMas&"/01/01#)) ORDER BY tabla_notas.fecha DESC" '"WHERE ((tabla_notas.id_categoria=1) or (tabla_notas.id_categoria=2) OR (tabla_notas.id_categoria=3) OR (tabla_notas.id_categoria=4) OR (tabla_notas.id_categoria=24) OR (tabla_notas.id_categoria=61) OR (tabla_notas.id_categoria=94) OR (tabla_notas.id_categoria=52) OR (tabla_notas.id_categoria=56) OR (tabla_notas.id_categoria=79) OR (tabla_notas.id_categoria=101) OR (tabla_notas.id_categoria=72) OR (tabla_notas.id_categoria=84) AND ((tabla_notas.cd=1) OR (tabla_notas.pd=1))) AND (tabla_notas.estatu=1) AND (tabla_notas.cd=1 or tabla_notas.pd=1) AND ( tabla_notas.fecha BETWEEN #"&anoElegido&"/01/01# AND #"&unAnoMas&"/01/01# ) ORDER BY tabla_notas.fecha DESC" '2 Documentos '3 Informes '4 Libros '24 Barómetro Legislativo '52 Desarrollo Global '56 Tendencias Latinoamericanas '61 EPU '72 Lucha contra el antisem '84 Monitoreo de comentarios '79 Indicadores de period. y demo. '94 Democr. en las Amer. '101 Indice de compr. con los dd hh mostrar = 60 Set con = Server.CreateObject("ADODB.Connection") con.Open data_source Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSQL, con,3,3 %> <% '#################################################################################################################### paginacion Dim mostrar 'cantidad de registros a mostrar por página Dim cant_paginas 'cantidad de páginas que recibimos Dim pagina_actual 'La página que mostramos Dim registro_mostrado 'Contador utilizado para mostrar las páginas Dim I 'Variable Loop Dim otras 'variable para pasar numero de pagina If Request.QueryString("page") = "" Then pagina_actual = 1 Else pagina_actual = CInt(Request.QueryString("page")) End If rs.PageSize = mostrar rs.CacheSize = mostrar cant_paginas = rs.PageCount If pagina_actual > cant_paginas Then pagina_actual = cant_paginas If pagina_actual < 1 Then pagina_actual = 1 If cant_paginas = 0 Then Response.Write " " Else rs.AbsolutePage = pagina_actual 'Response.Write "
["&rsAr.RecordCount&"]
" %> <% Do While registro_mostrado < mostrar And Not rs.EOF '################################################################################### '################################################################################### '############################### ACA SE MUESRA TODO '################################################################################### '################################################################################### If not rs.EOF Then id_nota = rs.Fields("id_nota") id_categoria = rs.Fields("id_categoria") categoria = rs.Fields("categoria") volanta = rs.Fields("volanta") titulo = rs.Fields("titulo") copete = rs.Fields("copete") nombre_autor = rs.Fields("nombre_autor") 'tw = rs.Fields("tw") fotoAutorArt = rs.Fields("foto200x200") id_autor = rs.Fields("id_autor") dates = rs.Fields("fecha") 'pdf_file = RS.Fields("pdf_file") carpeta = rs.Fields("carpeta") 'fte = RS.Fields("fte_lk") End If %><% If id_categoria = 2 Then seccion_pdf = "documentos" Else seccion_pdf = "informes/pdf" End If ruta_pdf = "https://www.cadal.org/includes/pdf_stats.asp?id_nota="&id_nota&"&seccion="&seccion_pdf&"&pdf_file="&pdf_file '--------------- TAPAS TAPAS TAPAS TAPAS TAPAS TAPAS TAPAS TAPAS TAPAS --------------------------------- sql_busco_pic = "SELECT tapa_file, id_nota FROM tapas_125w WHERE id_nota = "& id_nota Set rs2 = Server.CreateObject("ADODB.Recordset") rs2.open sql_busco_pic, data_source If Not rs2.EOF Then taponga = "https://www.cadal.org/tapas/"& rs2.Fields("tapa_file") End If rs2.Close Set rs2 = Nothing If id_categoria = 38 Then %>
<%If fotoAutorArt <> "" Then%> <%End If%>

<%=titulo%>

<%=copete%>

<% Else %>

<%=titulo%>

Read
<% End If ' articulos o el resto de las publicaciones taponga = "" registro_mostrado = registro_mostrado + 1 rs.MoveNext Loop End If rs.Close Set rs = Nothing %>
 
<% con.Close Set con = Nothing %>