<% 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) AND (tabla_notas.estatu=1)) ORDER BY tabla_notas.fecha DESC" Set con = Server.CreateObject("ADODB.Connection") con.Open data_source '################################################################################################################## paginacion mostrar = 250 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 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... 'End If Response.Write "" '############################################################################################################################################# '############################### '############################### 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 %>