Paginação com GetRows

[DackAle]

Paginação com GetRows

Hoje como não fui trabalhar por estar doente, resolvi tentar fazer uma paginação com getrows sozinho e ae está =)

Qualquer duvida fiquem a vontade para perguntar =)

<%
pagina = request("pagina")
if pagina = "" then
pagina = 1
else
pagina = cint(pagina)
end if

SQL="SELECT * FROM nomes ORDER by nome ASC"
SET RS = Server.CreateObject("Adodb.recordset")
RS.Open SQL,Conexao,3,3
if not rs.eof then
nomes = rs.getrows()
end if
rs.close 
set rs = nothing

total = ubound(nomes,2) 
registros = 10
paginas = total / 10

if cint(paginas) * registros < total then
paginas = cint(paginas) + 1
end if

if pagina = 1 then
inicio = 0
else
inicio = cint(registros) * (pagina) - 10 
end if

fim = cint(inicio) + 9
if cint(fim) > cint(total) then
fim = cint(total) 
end if
%>

Abaixo é aonde mostra os dados

<% 
FOR I=inicio TO fim
response.write nomes(1,i) & "<br>"
next
%>

e aqui cria a navegação, que inclusive mostra diferente o link se voc~e estiver em tal pagina

<%
FOR I = 1 TO cint(paginas)
if cint(pagina) = i then
mostra = "[" & i & "]"
else
mostra = i
end if
response.write "<a href=index.asp?pagina=" & I & ">" & mostra & "</a> "
next
%>

Espero que sirva para alguém =)

Abraços