<% On error resume next TamPagina=10 'numero de resultados por pagina numpag=10 'numero de enlaces de paginas gets="" 'si tiene algun parametro por get extra como en un buscador clase="" 'la clase si es que tiene cada enlace del paginado SQL=" SELECT * from "&tabla&" ORDER BY id DESC; " 'la consulta mensaje="Aún no hemos recibido ningun mensaje." 'Esta es una frase en caso que no haya ningun resultado %> <% totalComment = prs.RecordCount numInicio = totalComment - ( (cint(PaginaActual)-1) * TamPagina ) do while not prs.EOF and CuantosRegistros < TamPagina %> <% CuantosRegistros=CuantosRegistros+1 numInicio=numInicio-1 prs.MoveNext Loop %>