<%
strSQL = "SELECT tabla_notas.id_nota, tabla_notas.pdf_file, tapas_125w.tapa_file, tabla_notas.titulo, tabla_notas.fecha, tabla_notas.id_categoria FROM (tabla_categorias INNER JOIN tabla_notas ON tabla_categorias.id_categoria = tabla_notas.id_categoria) INNER JOIN tapas_125w ON tabla_notas.id_nota = tapas_125w.id_nota "&_
"WHERE (tabla_notas.id_categoria=115) ORDER BY tabla_notas.fecha DESC"
'2 Documentos
'24 Barómetro Legislativo
'52 Desarrollo Global
'56 Tendencias Latinoamericanas
'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 "
<%
'####################################################################
'####################################################################
'############################### ACA SE MOSTRÓ TODO
'####################################################################
'####################################################################
taponga = ""
registro_mostrado = registro_mostrado + 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
%>
["&rs.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")
titulo = rs.Fields("titulo")
pdf_file = RS.Fields("pdf_file")
tapa_file = rs.Fields("tapa_file")
End If
seccion_pdf = "reports/pdf"
%><%
ruta_pdf = "https://www.cadal.org/includes/pdf_stats.asp?id_nota="&id_nota&"&seccion="&seccion_pdf&"&pdf_file="&pdf_file
%>