[Resolvido] Problemas como numero de registro paginação

[okil 0]

Ola a todo peguei uma paginação na net mais to tendo problemas para listar 5 produtos .... ele esta listando todos os produtos do banco de uma fez

pesso a ajuda de voces muito obrigado

 

 

Codigo abaixo:

' Select para obter o total de registros da tabela
Set rs = Conexao.Execute("SELECT COUNT(ProdutosID) As ProdutosID FROM Produtos")
total_registros = rs("ProdutosID")
rs.Close
Set rs = Nothing

' Variával com o total de registros listados por página.
registros_pg=5

' Variável com o número de colunas a ser mostrado.
numero_colunas = 2
response.Write(total_registros)
' Obtem o número total de paginas.
total_paginas = total_registros / registros_pg
response.Write(total_paginas)
If (Instr(total_paginas, ",") > 0) Then total_paginas = Int(total_paginas + 1)

' Verifica a página atual
pagina = Request.QueryString("pagina")
If (Not IsNumeric(pagina)) Then
pagina = 1
ElseIf IsEmpty(pagina) Or pagina < 1 Then
pagina = 1
ElseIf Int(pagina) > Int(total_paginas) Then
pagina = Int(total_paginas)
End If

' Pega o número do primeiro registro a obter na sql
reg_inicio = pagina * registros_pg - registros_pg

Response.Write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
' SQL para pegar os registros.
'SQL = "SELECT *  FROM Produtos ORDER BY RND(INT(NOW*ProdutosID)-NOW*ProdutosID)"
SQL = "SELECT *  FROM Produtos"
Set rs = Conexao.Execute(SQL)
If rs.EOF Then
Response.Write "Nenhum registros encontrado"
Else
While Not rs.EOF
  Response.Write "<tr>" & VbCrLf
  For i = 1 To numero_colunas
   Response.Write "<td>"
   If Not rs.EOF Then
	Response.Write "<a href='exibe_produtos.asp?ID="& rs("ProdutosID") &"' border='0'><center><img src='"& rs("urlimag") &"' border='0'/></center><br/><center><span id='txt_destaque'>"& rs("Nome") &"</span></center><center><span id='preco'>"& rs("Preco") &"</span></center></a>"  & VbCrLf
	rs.MoveNext
   Else
	Response.Write " "
   End If
   Response.Write "</td>"
  Next
  Response.Write "</tr>" & VbCrLf
Wend
End If
rs.Close
Set rs = Nothing

Response.Write "</table>"

Response.Write "<hr>"

' Fecha a conexão com o banco de dados
Conexao.Close
Set Conexao = Nothing

'INÍCIO DOS LINKS DA PAGINAÇÃO.
If Int(total_paginas) > 1 Then
Response.Write "<b>Páginas:</b> "

' Aqui você define quantos links mostrará antes e depois da pagina atual.
links = 3

' Aqui é criado os links antes da página atual.
For i = (pagina - links) To (pagina - 1)
  If i > 0 Then
   Response.Write " <a href='cat.asp?pagina="& i &"'>"& i &"</a> "
  End If
Next

'Imprime o número da página atual
Response.Write " <b>"& pagina &"</b> "

' Aqui é criado os links após a página atual.
For i = (pagina + 1) To (pagina + links)
  If i > total_paginas Then Exit For
  Response.Write " <a href='cat.asp?pagina="& i &"'>"& i &"</a> "
Next
End If
%>

[Mário Monteiro 179]

No While

 

While Not rs.EOF

Tem qeu informar a quantidade de registros que ja foi exibido para controle

[okil 0]

tipo

 

intrec = 0

While intrec<rs.PageSize and not rs.eof

[Mário Monteiro 179]

sim

 

ja te isso no seu codigo? nao vi

[okil 0]

Obrigado pela ajuda

[Mário Monteiro 179]

De nada

 

Abraços