<%
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) 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 ""
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 "