paginacao de registo simples

Aqui vai uma maneira simples de paginar um numero de registos por pagina.

Espero que seja util.

abraço

<%
if npagnex="" then npagnex="0" end if
if npagnexmax="" then npagnexmax="15" end if

if IsNumeric(npagnex)=FALSE or isNumeric(npagnexmax)=FALSE then
response.redirect "site.asp"
end if

npagnex=Cint(npagnex)
npagnexmax=Cint(npagnexmax)
limcondit="LIMIT "&npagnex&","&npagnexmax

set checksite=conn.execute("select * from tabela "&limcondit&"")
set checksitetotal=conn.execute("select COUNT(id) AS total_reg from tabela")

total=0
do while not checksite.eof
%>

<!------mostra os registo do selec--->

<%
checksite.movenext
total=total+1
loop
%>

<div id="fundo_table">
<%total_record=checksitetotal("total_reg")

if Cint(npagnex) > 14 then%><a href="site.asp?varsubmenu=0Cj2P11?wzQ5&npagnex=<%=npagnex-15%>&npagnexmax=<%=npagnexmax-15%>"><< Previus 15</a><%end if

if Cint(total_record) > Cint(npagnexmax) then%><a href="site.asp?varsubmenu=0Cj2P11?wzQ5&npagnex=<%=npagnexmax%>&npagnexmax=<%=npagnexmax+15%>">Next 15 >></a><%end if%>

<a style="float:left;">Number of Sites Listed: <%response.write total%></a>
<br><a style="float:left;">Total number of record: <%response.write total_record%></a>

</div>