<% On error resume next if request("pagina")="" OR request("pagina")="1" then pagina=1 else pagina = Cint(request("pagina")) paginas = Cint(request("paginas")) end if conexion_ecodes Set rs = server.CreateObject("adodb.recordset") rs.Open "SELECT Id_evento, fecha, titulo, subtitulo, url, interno FROM FED_eventos WHERE Id_seccion = 4 and Id_area =8 ORDER BY fecha DESC, id_evento DESC", cne if rs.eof then no_hay = 0 else no_hay = 1 n=10 listado = rs.getrows paginas=(Ubound(listado,2)\n)+1 inicio = 10 * (pagina-1) final = inicio + 9 if final>Ubound(listado,2) then final=Ubound(listado,2) end if rs.close set rs=nothing cn.close Set cne = nothing %> Consumo Responsable : noticias de actualidad sobre Consumo Responsable, página <%=pagina%> de <%=paginas%>

    Estás en: inicio » noticias de actualidad sobre consumo responsable, página <%=pagina%> de <%=paginas%>  
 
 

Noticias de actualidad sobre Consumo Responsable

<% for i=inicio to final%>
<%=listado(1,i)%>
<%=listado(2,i)%>

<%=Truncate((listado(3,i)),250,250)%>
<%if not isnull(listado(4,i)) AND listado(4,i)<>"" then%> [ target="_new" <%end if%> title="Leer más de <%=replace(listado(2,i),"""","'")%>">ampliar] <%else%> [">ampliar] <%end if%>
<%next%>



RSS Noticias de actualidad sobre consumo responsable
(fuente:www.ecodes.org)


 
 
Ecología y desarrollo