<% Response.Redirect "http://www.cadal.org/" Response.End() %> <% variable_para_el_page_title = 1 titulo_pagina = "Actividades" %> <% strSQL = "SELECT tabla_autores.nombre_autor, tabla_notas.id_nota, tabla_notas.volanta, tabla_notas.titulo, tabla_notas.copete, tabla_notas.fecha, tabla_paises.pais, tabla_autores.id_autor, 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) INNER JOIN actv_LP ON tabla_notas.id_nota = actv_LP.id_nota WHERE ((tabla_notas.estatu)=1) ORDER BY tabla_notas.fecha DESC" 'and tabla_notas.fecha > #1/1/2006# Set con = Server.CreateObject("ADODB.Connection") con.Open data_source '################################################################################################################## paginacion mostrar = 15 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... variable_para_el_page_title = 1 %>

ELEPE - <% Response.Write titulo_pagina %>

<% registro_mostrado = 0 Do While registro_mostrado < mostrar And Not RS.EOF dates = rs.Fields("fecha") dia = Day(dates) If dia = 1 Then dia = dia&"ro" End If mes = Month(dates) 'If mes < 10 Then 'mes = "0"&mes 'End If anio = Year(dates) Select case mes case 1: mes = "enero" case 2: mes = "febrero" case 3: mes = "marzo" case 4: mes = "abril" case 5: mes = "mayo" case 6: mes = "junio" case 7: mes = "julio" case 8: mes = "agosto" case 9: mes = "septiembre" case 10: mes = "octubre" case 11: mes = "noviembre" case 12: mes = "diciembre" End Select la_fecha = dia & " de " & mes & " de " & anio 'la_fecha = dia & "/" & mes & "/" & anio 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") '###################################################################################################################################################### '###################################################################################################################################################### '############################### ############################################### '############################### ACA SE MUESRA TODO ############################################### '############################### ############################################### '###################################################################################################################################################### '###################################################################################################################################################### Response.Write "" If RS.Fields("volanta") <> "" Then muestro_volanta = ""&RS.Fields("volanta")&"
" Else muestro_volanta = "" End If select_foto = "SELECT id_nota, file_name, foto_title FROM listado_140w WHERE listado_140w.id_nota = "& RS.Fields("id_nota") Set rsFotito = Server.CreateObject("ADODB.Recordset") rsFotito.Open select_foto, con,3,1 If Not rsFotito.EOF Then file_name = rsFotito.Fields("file_name") foto_title = rsFotito.Fields("foto_title") muestra_fotito = "" Else muestra_fotito = "" End If rsFotito.Close Set rsFotito = Nothing Response.Write "" registro_mostrado = registro_mostrado + 1 Response.Write "

" Response.Write muestra_fotito & ":: "& la_fecha &"
"& muestro_volanta & ""& RS.Fields("titulo") &"
" Response.Write RS.Fields("copete") &"

" Response.Write "

" RS.MoveNext Loop End If RS.Close Set RS = Nothing con.Close Set con = Nothing %> <% 'esta variable la declaro para decirle a la estadistica por donde entro el visitante, ok? por_donde = "ELEPE" %>