% 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 %>
| Estás en: inicio » noticias de actualidad sobre consumo responsable, página <%=pagina%> de <%=paginas%> |
|