PaginaÇÃo Em Asp

[TIBONE]

Pessoal, estou com uma dificuldade enorme para fazer a minha pagina com paginação de Banco de dados.

Tenho este ex: abaixo mas quando irei acessar, dá um erro interno 500

alguém pode me ajudar.

Agradeço

Marcos Jackson

_________________________________________________________________________________________

Exemplo na internet

<%

Set Conn = Server.CreateObject("AdoDb.Connection")

Conn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data

Conn.connectionstring=Server.Mappath("C:InetpubSitesiotecnologiaweb este.mdb")

'Vamos criar o objeto Record Set -> neste caso é necessário declará-lo,

'pois vamos utilizar algumas funções deste objeto

Set RS = Server.CreateObject("adodb.recordset")

RS.PageSize = 5 'quantidade de registros por página. Você pode alterar sem conforme precise.

'Vamos fazer a busca na tabela contatos

SQL = "select * from contatos"

RS.Open SQL,Conn,3,3

'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor

'que zero, se é maior que o número total de páginas, etc.

IF RS.EOF then

Response.Write "nenhum registro encontrado"

Response.End 'paramos o programa

ELSE

'Definindo em qual pagina o visitante está

IF Request.QueryString("pagina")="" then

intpagina=1

ELSE

IF cint(Request.QueryString("pagina"))<1 then

intpagina=1

ELSE

IF cint(Request.QueryString("pagina"))> RS.PageCount then

intpagina=RS.PageCount

ELSE

intpagina=Request.QueryString("pagina")

END IF

END IF

END IF

END IF

'Fim das verificações de exceções

'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta

RS.AbsolutePage=intpagina

' Inicia o contador que vai controlar os registros mostrados

intrec=0

'Enquanto o contador for menor que a quantidade de registros mostrados ou

' não for o final do arquivo

While intrec < RS.PageSize and not RS.EOF

'------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO ----------------------------------------

response.write RS("nome") & " - " & RS("telefone") & " - " & RS("email") & "<BR>"

'---------------------------------------------------------------------------------------------

RS.MoveNext

' Acrescenta +1 ao contador

intrec=intrec+1

'Se for EOF (fim de arquivo), imprimir branco na tela

IF RS.EOF then

response.write " "

END IF

Wend 'fim do loop

'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.

IF intpagina > 1 then

%>

<a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a>

<%

END IF

'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página

IF strcomp(intpagina,RS.PageCount) <> 0 then

%>

<a href="paginacao.asp?pagina=<%=intpagina + 1%>">Próxima</a>

<%

END IF

%>

_______________________________________________________________________________________

[bareta]

procure no forum por paginação no nome de membro alexct