<% ' Esto es lo mismoi para todos
anoElegido = Request.QueryString("A")
If anoElegido = "" Then anoElegido = Year(Now) End If
unAnoMas = anoElegido + 1
strSQL = "SELECT tabla_autores.nombre_autor, tabla_notas.id_nota, tabla_notas.id_categoria, tabla_notas.pdf_file, tabla_notas.cd, tabla_notas.pd, tabla_notas.volanta, tabla_notas.titulo, tabla_notas.copete, tabla_notas.fecha, tabla_paises.pais, tabla_autores.id_autor, tabla_autores.tw, tabla_paises.id_pais, tabla_categorias.categoria FROM (tabla_paises INNER JOIN (tabla_autores INNER JOIN tabla_notas ON tabla_autores.id_autor = tabla_notas.id_autor) ON tabla_paises.id_pais = tabla_notas.id_pais) INNER JOIN tabla_categorias ON tabla_notas.id_categoria = tabla_categorias.id_categoria WHERE ((tabla_notas.id_categoria = 45) OR (tabla_notas.id_categoria = 44) OR (tabla_notas.id_categoria = 67)) AND (tabla_notas.estatu=1) AND (tabla_notas.fecha BETWEEN #"&anoElegido&"/01/01# AND #"&unAnoMas&"/01/01# ) ORDER BY tabla_notas.fecha DESC"
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
'################################################################################################################## paginacion
mostrar = 60
pagina_a_mostrar = Request.QueryString("page")
'========================================================================
If len(pagina_a_mostrar) > 2 Then
Response.Redirect "http://www.cadal.org?error=Verificar_Link"
Response.End()
End If
If Not isNumeric(pagina_a_mostrar) Then
Response.Redirect "http://www.cadal.org?error=Verificar_Link"
Response.End()
End If
'========================================================================
If pagina_a_mostrar = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(pagina_a_mostrar)
End If
'========================================================================
Set RS = Server.CreateObject("ADODB.Recordset")
RS.PageSize = mostrar
RS.CacheSize = mostrar
RS.Open strSQL, con,3,1
cant_paginas = RS.PageCount
total_de_articulos = RS.RecordCount
' Si el pedido de página cae afuera del rango,
' lo modificamos para que caiga adentro
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
'Response.Write "
"&total_de_articulos&"
"
If cant_paginas = 0 Then
Response.Write "No hay registros..."
Else
' Nos movemos a la página elegida
RS.AbsolutePage = pagina_actual
' Mostramos el dato de que página estamos...
'Response.Write "["&total_de_articulos&"]
"
registro_mostrado = 0
Do While registro_mostrado < mostrar And Not RS.EOF
If not RS.EOF Then
'la_categoria = RS.Fields("categoria")
'la_categoria = Replace(la_categoria,"Eventos / ","")
id_nota = RS.Fields("id_nota")
titulo = RS.Fields("titulo")
copete = RS.Fields("copete")
dates = RS.Fields("fecha")
volanta = RS.Fields("volanta")
cd = RS.Fields("cd")
pd = RS.Fields("pd")
tw= RS.Fields("tw")
id_categoria = RS.Fields("id_categoria")
pdf_file = RS.Fields("pdf_file")
End If
tituloTW = RS.Fields("titulo")
tituloTW = Replace(tituloTW,"á","a")
tituloTW = Replace(tituloTW,"é","e")
tituloTW = Replace(tituloTW,"í","i")
tituloTW = Replace(tituloTW,"ó","o")
tituloTW = Replace(tituloTW,"ú","u")
tituloTW = Replace(tituloTW,"´","-")
%><%
'#############################################################################################################################################
'###############################
'############################### ACA SE MUESRA TODO
'###############################
'#############################################################################################################################################
'If id_categoria <> 106 Then ' quiero que los videos de Instagram, se vean siempre en CADAL. NO: porque si hago eso, cuando un video se pretenda mostrar en CADAL y no este chequeado para el sitio CADAL, va a tirar error. Si dice pd=1, va a pd...
If cd = 1 Then
Ruta_CD_o_PD = "http://www.cadal.org/comunicados/"
url_target = ""
Else
Ruta_CD_o_PD = "http://www.cadal.org/comunicados/"
url_target = ""
End If
'End If
select_foto = "SELECT id_nota, file_name, foto_title FROM listado_140w WHERE listado_140w.id_nota = "& id_nota
Set rsFotito = Server.CreateObject("ADODB.Recordset")
rsFotito.Open select_foto, con,3,1
If Not rsFotito.EOF Then
DivTitulosVar = "2"
file_name = rsFotito.Fields("file_name")
foto_title = rsFotito.Fields("foto_title")
AcaFotoListado = "/fotos/"&file_name
Else
AcaFotoListado = "/logo/logoCADAL_380x250.jpg"
End If
rsFotito.Close
Set rsFotito = Nothing
%>
<%
'#############################################################################################################################################
'###############################
'############################### ACA SE MUESRA TODO
'###############################
'#############################################################################################################################################
AcaFotoListado = ""
registro_mostrado = registro_mostrado + 1
RS.MoveNext
Loop
End If
RS.Close
Set RS = Nothing
con.Close
Set con = Nothing
%>