Paginação está com problema

[natalia 0]

Oi pessoal, estou com um problema com paginação, eu peguei esse código aqui mesmo no forum, mas ele apresenta alguns problemas na navegação.Eu testei em uma página e aconteceu o seguinte, os links apareceram assim:1 2 3 última páginaMas se eu clicar em última página, lá mostra assim:primeira página 3 4 5 Mas como pode se na primeira mostrou até o 3?Se eu clicar no 2, desaparece o 3.O que pode estar acontecendo?Tem mais uma coisa, alguns produtos se repetem p/ outras páginas. Será que isso tudo acontece pque estou mostrando os produtos em fileiras de 4. Assim:produto1 produto2 produto3 produto4produto5 produto6 produto7 produto8e assim por diante...O código é esse abaixoregistros = 20pagina = Request.QueryString("pagina")If pagina = "" Thenpagina = 1End IfstrSel = " Select ....<%rsResult.PageSize = registrosIf rsResult.EOF ThenResponse.Write "<div align='center'><p><font size='2' face='Verdana, Arial, Helvetica, sans-serif' color='#333333'>Nenhum registro encontrado</font></p><p> </p></div>"ElsersResult.AbsolutePage = pagina%><table width="658" height="159" border="0" cellpadding="0" cellspacing="0"><%While Not rsNovo.EOF AND x < rsNovo.PageSizex = x + 1 Response.Write "<tr>"For M = 1 To 4 'aqui define qtos produtos mostrar por linhaIf rsNovo.EOF = True Then Exit ForResponse.Write "<td>"Response.Write "<table align='center' border='0' width='100%' cellpadding='1' cellspacing='0'>"Response.Write "<tr>"<tr><td><%= rsResult("Nome_Prod")%></td></tr><%Response.Write "</tr>"Response.Write "</table>"Response.Write "</td>"rsNovo.MoveNextNext%> <tr> <td colspan="4"><img src="<%=application("path")%>images/faixa-grande.jpg" width="654" height="7"></td></tr> <%Response.Write "</tr>"Wend%><%anterior = pagina - 1proxima = pagina + 1ultima = rsResult.PageCountprimeira = 1ultm2 = FormatNumber(rsResult.PageCount - 1,0)If pagina <> 1 ThenResponse.Write "<b>« <a href=resultado2.asp?pagina="&primeira&" class='menu'>Primeira Página</a></b> "End IfIf pagina > 1 AND pagina <> 2 ThenResponse.Write "<b> <a href=resultado2.asp?pagina="&anterior - 1&" class='menu'>"&anterior - 1&"</a> </b> "End IfIf pagina > 1 ThenResponse.Write "<b> <a href=resultado2.asp?pagina="&anterior&" class='menu'>"&anterior&"</a> </b> "End IfResponse.Write "<b> "&pagina&" </b> "If Not rsResult.EOF ThenResponse.Write "<b> <a href=resultado2.asp?pagina="&proxima&" class='menu'>"&proxima&"</a> </b> "End IfIf Not rsResult.EOF AND pagina <> ultima AND pagina <> ultm2 ThenResponse.Write "<b> <a href=resultado2.asp?pagina="&proxima + 1&" class='menu'>"&proxima + 1&"</a> </b> "End IfIf Not rsResult.EOF ThenResponse.Write "<b><a href=resultado2.asp?pagina="&ultima&" class='menu'>Última Página</a> »</b> "End IfEnd If%>

[natalia 0]

Os recordset estão c/ nomes diferentes é pque copiei de duas páginas, mas meu código está correto.rsNovo, rsResult