[Resolvido] paginação com erro

[wills 0]

encontrei um fonte de uma paginação aqui e tentei incrementar ao meu fonte, porém não rolou muito bem não.

 

 

poderiam me ajudar?

 

<%
	dim codigo,nome,msg

	msg= "Nenhum registro encontrado!"
	msg1= "Erro no servidor, contate o suporte!"
	

set pes = bd.execute("select * from tableCliente ORDER BY codCliente")


pes.PageSize =2

if pes.eof then
   Mensagem = "Nenhum Registro Encontrado"
   Response.End
else
   if Request.QueryString("pagina")="" then
	  intpagina = 1
   else
	  if cint(Request.QueryString("pagina"))<1 then
intpagina = 1
	  else
if cint(Request.QueryString("pagina"))>pes.PageCount then  
	intpagina = pes.PageCount
		 else
	intpagina = Request.QueryString("pagina")
end if
	  end if   
   end if   
		end if

	pes.MoveNext
	intrec = intrec + 1
	if pes.eof then
	   response.write " "
	end if   

		set pes = bd.execute("select * from tableCliente ORDER BY codCliente")
			if not pes.eof then
				Response.Write("<table border='0' cellspacing='2' cellpadding='2' width='770'><tr>")
				response.Write("<td bgcolor='#eeeeee' align='center' width='3%' height='22'><strong>ID</strong></td>")
				response.Write("<td bgcolor='#eeeeee' align='center'><strong>Nome</strong></td>")
				response.Write("<td bgcolor='#eeeeee' align='center'><strong>Endereço</strong></td>")
				response.Write("<td bgcolor='#eeeeee' align='center'><strong>Bairro</strong></td>")
				response.Write("<td bgcolor='#eeeeee' align='center'><strong>Cidade</strong></td>")
				response.Write("<td bgcolor='#eeeeee' align='center'><strong>Telefone(Res)</strong></td>")
				response.Write("<td bgcolor='#eeeeee' align='center'><strong>E-mail</strong></td>")
				response.Write("</tr>")
				response.Write("<tr>")
				response.Write("<td style='height:0.01em'> ")
				response.Write("</td>")
				response.Write("</tr>")
			do while not pes.eof
				cod = pes("codCliente")
	%>

e o código para fazer a paginação

 

<%
	if intpagina>1 then
	%>
	<a href="CpesDados.asp?pagina=<%=intpagina-1%>">Anterior</a>
	<%
	end if
	if StrComp(intpagina,pes.PageCount)<>0 then  
	%>
	<a href="CpesDados.asp?pagina=<%=intpagina + 1%>">Próximo</a>  
	<%
	end if
	pes.close
	Set pes = Nothing
	%>

ele cria, mas está exibindo todos os dados.

[wills 0]

consegui pessoal!

 

valeu à todos!