LutiSantoro

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx código da paginação: xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx <% DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=C:\Icone 9\Projetos icone\Locadora\Locadora\OK\dados\base_catalogo.mdb" sqlstmt = "SELECT Filme.*, Genero.NomeGenero, Distribuidora.NomeDistribuidora"&_ " FROM (Filme INNER JOIN Genero ON Filme.CodGenero = Genero.CodGenero)INNER JOIN"&_ " Distribuidora ON Filme.CodDistribuidora = Distribuidora.CodDistribuidora"&_ " Where Filme.CodGenero="&URL&_ " Order by Filme.CodFilme DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 totalrecs = rs.recordcount Mostrar = Request.Cookies("Mostrar") if Mostrar <> "" then rs.pagesize = Mostrar else rs.pagesize = 1 end if if (request("pagina")<>"") then pagina = cint(request("pagina")) else pagina = 1 end if rs.Absolutepage = pagina if not (rs.eof) then response.write "<table border='0' width='450' id='table6' cellspacing='0' cellpadding='0'><tr><td><p align='right'>Você está na página <b>" & pagina & "</b> de <b>" & rs.pagecount & "</b></p></td></tr></table>" x = 0 for x = 1 to rs.pagesize if rs.eof then exit for else %> <!-- inicio //--> <table border="0" width="463" id="table2" cellspacing="0" cellpadding="0" height="152"> <TR> <TD class=main vAlign=top width=130 height="132"> <p align="center"><A target="_parent" href="default.asp?Genero=<%=RS("NomeGenero")%>&CodFilme=<%=RS("CodFilme")%>"><IMG title=" <%=RS("NomeFilme")%> " alt="<%=RS("NomeFilme")%>" src="imagens_capa/mini/<%=RS("ImgMini")%>" border=0></A></TD> <TD class=main vAlign=top width="172" height="132"><B> <A class=z style="FONT-SIZE: 12px" target="_self" href="default.asp?Genero=<%=RS("NomeGenero")%>&CodFilme=<%=RS("CodFilme")%>"> <U> <%=RS("NomeFilme")%></U></A></B><p style="line-height: 150%; margin-top: 9px; margin-bottom: 9px"> <CLASS=D><b> <font color="#8C8C8C">Gênero:</font></b></SPAN><SPAN class=c> <%=RS("NomeGenero")%></SPAN></p> <p style="line-height: 150%; margin-top: 9px; margin-bottom: 9px"> <CLASS=D><B><font color="#565656"> Distribuidora:</font> &nbsp;</B><span class="d"><font color="#8C8C8C"><%=RS("NomeDistribuidora")%></font></span></p> <p style="line-height: 150%; margin-top: 9px; margin-bottom: 9px"> <font color="#565656"><b>Diretor</b></font><B><font color="#565656">:</font> &nbsp;</B><span class="d"><font color="#8C8C8C"><%=RS("Diretor")%></font></span></TD> <TD class=main vAlign=center align=right width="161" height="132"> <p align="center"> <A target="_self" href="default.asp?Genero=<%=RS("NomeGenero")%>&CodFilme=<%=RS("CodFilme")%>"><IMG title=" Ver Detalhes " height=17 alt="Ver Detalhes" src="catalogo_arquivos/button_in_cart.jpg" border=0></A></TD></TR> <TR> <TD class=main vAlign=top colspan="3" background="catalogo_arquivos/m54.jpg" height="5"> <span style="font-size: 4pt">&nbsp;</span></TD> </TR> <TR> <TD class=main vAlign=top colspan="3" height="15"> <span style="font-size: 5pt">&nbsp;</span></TD> </TR> </TBODY></TABLE> <!-- fim //--> <% rs.MoveNext %> <% end if next %> <div align="right"> <table border="0" width="60%" id="table4" cellspacing="0" cellpadding="0" align="right"> <tr> <td> </td> </tr> </table> </div> <table border="0" width="464" id="table5" cellspacing="0" cellpadding="0"> <tr> <td><tr> <td align="left" width="27%"> <p> <% if pagina <> 1 then %> <style="font-size: 8pt">&nbsp;&nbsp; <a href="<%=paginal%>?Genero=<%=RS("CodGenero")%>&pagina=<%=pagina-1%>"> <font color="#808080">página anterior</font></a><font color="#808080"> <% end if %></font> </td> <td align="center" width="46%"> <% j=1 do while j <= rs.Pagecount if pagina = j then %> <u><b><%=j%></b></u> <% else %> <a href="<%=paginal%>?Genero=<%=RS("CodGenero")%>&pagina=<%=j%>"><%=j%></a> <% end if j=j+1 loop %> </td> <td align="right" width="68%"> <p> <% if pagina <> rs.Pagecount then %> <style="font-size: 8pt"> <a href="<%=paginal%>?Genero=<%=RS("CodGenero")%>&pagina=<%=pagina+1%>">próxima página</a>&nbsp;&nbsp;&nbsp;&nbsp; <% end if end if %> </td> </tr></td> </tr> </table> </body> </html> <%SET rs = Nothing %> xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Erro ao clicar na última página... (para ir pra última página) xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx