<%=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
%>
- By <%=nombre_autor%>
- <%=en_fecha%>
<%If fotoAutorArt <> "" Then%>
<%End If%>
<%=titulo%>
<%=copete%>
<%
Else
%>
- By <%
If id_nota = 7831 Then coso_autor = ". . ." End If
nombre_autor = mid(nombre_autor,1,70)
Response.Write nombre_autor & coso_autor%>
- <%=en_fecha%>
<%
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
%>