<% Response.Redirect "http://www.cadal.org/eventos/agenda/" Response.End() %> <% titulo_pagina = "ELEPE " %>

ELEPE - Agenda

<% variable_para_el_page_title = 1 titulo_pagina = "Actividades" fecha_hoy_es = date() fecha_hoy_ordenada_es = year(fecha_hoy_es)&"/"&month(fecha_hoy_es)&"/"&day(fecha_hoy_es) strSQL = "SELECT tabla_autores.nombre_autor, tabla_notas.id_nota, tabla_notas.id_categoria, tabla_notas.titulo, tabla_notas.copete, tabla_notas.volanta, tabla_notas.pdf_file, tabla_notas.fecha, tabla_paises.pais, tabla_autores.id_autor, tabla_paises.id_pais 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 WHERE (tabla_notas.id_categoria=57) AND (tabla_notas.estatu=1) AND (tabla_notas.cd=1) AND (tabla_notas.fecha>=#"&fecha_hoy_ordenada_es&"#) ORDER BY tabla_notas.fecha ASC" '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 "" 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 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 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" %>