• 0
Sign in to follow this  
douglasdamame

Problemas Com Paginação

Question

Olá Pessoal,

Sei que existe dezenas de tópicos sobre esta asunto aqui no fórum e foi nestes que peguei o exemplo e estou tentando colocar para funcionar.

O caso é que esta mostrando no final da página o número de paginas corretamente, mas esta mostrando todos os ítens na primeira, ou seja, estou fazendo algo errado.. !!! rsrsrsrs.. Exemplo:

Tenho 12 itens cadastrados e estou paginando para mostrar 5 itens por página. O contador mostra: Página(s) 1, 2, 3 até ai esta certo, mas esta mostrando os 12 itens !!

Se alguém puder dar uma olhada e verificar onde estou errando, agradeceria muito.

<% 

  
 id_cat = request.querystring("id_cat") ' Recupero o ID do menu

' Endereço do Banco de Dados
strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database/mercadonautico.mdb")

' Pego o nome da categoria da tabela	
	Set rs1 = Server.CreateObject("adodb.recordset")
	sql1="select * from categoria where id_cat =" & id_cat & ""

	RS1.Open SQL1, strConnect, 1, 3
TotalRecs = rs1.recordcount

%>
            <table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
              <tr>
                <td>
                  <table width="100%" border="0" cellspacing="0" cellpadding="4">
                    <tr> 
                      <td bgcolor="#B4C6D6" valign="middle" height="20"> 
                        <div align="center"><font size="2" color="#003366"><b><%=rs1("categoria")%></b></font></div>
                      </td>
                    </tr>
                    <tr> 
                      <td bgcolor="#003366" height="1"></td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>
            <%


	Set rs = Server.CreateObject("adodb.recordset")
	sql="select * from classificados where id_cat =" & id_cat & " and  data_exp >= NOW() order by Destaque DESC"
      
RS.Open SQL, strConnect, 1, 3
TotalRecs = rs.recordcount
if rs.eof and rs.bof then

%>
            <table width="760" border="0" cellspacing="0" cellpadding="0" height="2%" align="center">
              <tr> 
                <td height="10">&nbsp; </td>
              </tr>
              <tr> 
                <td><font size="2"><b><font color="#003366">N&atilde;o h&aacute; 
                  an&uacute;ncios cadastrados nesta categoria.</font></b></font></td>
              </tr>
              <tr>
                <td>&nbsp;</td>
              </tr>
            </table>
  	
  	<% Else
'/////////////// Dados para Paginação //////////////  	
  regs = 5 'Aqui setamos quantos registros serão listados por página
  pag = request.querystring("pagina")

  rs.pagesize = regs
  if pag = "" Then
    	pag = 1
  end if



	rs.absolutepage = pag
    contador = 0
    do while not rs.eof and contador < rs.pagesize
      

    %>

            <table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
              <tr> 
                <td> 
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> </tr>
                  </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="8">
                    <tr> 
                      <td bgcolor="#FF0000" height="0"> 
                        <table width="100%" border="0" cellspacing="0" cellpadding="4">
                          <tr> 
                            <td width="60"><b><font color="#FFFFFF" size="1">Foto</font></b></td>
                            <td width="315"> 
                              <div align="left"><b><font color="#FFFFFF" size="1">An&uacute;ncio</font></b></div>
                            </td>
                            <td width="50"> 
                              <div align="center"><b><font color="#FFFFFF" size="1">Ano</font></b></div>
                            </td>
                            <td width="100"> 
                              <div align="center"><b><font color="#FFFFFF" size="1">Pre&ccedil;o</font></b></div>
                            </td>
                            <td width="35"> 
                              <div align="center"><b><font color="#FFFFFF" size="1">Visitas</font></b></div>
                            </td>
                            <td width="140"> 
                              <div align="center"><b><font color="#FFFFFF" size="1">Postado 
                                em</font></b></div>
                            </td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </table>

                  <%do until rs.eof
                  
  	If rs("destaque") = "Sim" then
'/////////////// Inicio do que será mostrado e paginado //////////////      
    %>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="2%">
                    <tr> 
                      <td> 
                        <table width="100%" border="0" cellspacing="0" cellpadding="4" bgcolor="#f0f0f0">
                          <tr> 
                            <td width="60" rowspan="2" valign="middle" align="center" height="60"> 
                              <table width="60" border="0" cellspacing="0" cellpadding="0" height="60">
                                <tr> 
                                  <%
Foto=rs("foto")
Foto1=rs("foto1")
Foto2=rs("foto2")
Foto3=rs("foto3")
Foto4=rs("foto4")
Foto5=rs("foto5")

If not foto = "" then
fotoinicial = foto
Else
If not foto1 = "" then
fotoinicial = foto1
else
If not foto2 = "" then
fotoinicial = foto2
Else
If not foto3 = "" then
fotoinicial = foto3
Else
If not foto4 = "" then
fotoinicial = foto4
Else
If not foto5 = "" then
fotoinicial = foto5
Else

End if
End if
End if
End if
End if
End if


	%>
                                  <%if not fotoinicial = "" then%>
                                  <td valign="middle" align="center"><b><font size="1" color="#003366"><a href="anuncio.asp?id_prod=<%=rs("id_prod")%>"><img src="fotos/ssmall_<%=fotoinicial%>" border="0" align="absmiddle"></a></font></b></td>
                                  <%Else%>
                                  <td valign="middle" align="center"><b><font size="1" color="#003366"><a href="anuncio.asp?id_prod=<%=rs("id_prod")%>"><img src="fotos/ssmall_semfoto.gif" border="0" align="absmiddle"></a></font></b></td>
                                  <%End if  %>
                                </tr>
                              </table>
                            </td>
                            <td valign="top" rowspan="2" width="315"><a href="anuncio.asp?id_prod=<%=rs("id_prod")%>"><font size="1"><%=rs("titulo")%></font></a></td>
                            <td width="50" valign="top"> 
                              <div align="center"><font size="1"><%=rs("ano")%> 
                                </font></div>
                            </td>
                            <td width="100" valign="top"> 
                              <div align="center"><font size="1"><font color="#FF0000">R$ 
                                <%=rs("preço")%></font> </font></div>
                            </td>
                            <td width="35" valign="top"> 
                              <div align="center"><font size="1"><%=rs("visitas")%> 
                                </font></div>
                            </td>
                            <td width="140" valign="top"> 
                              <div align="center"><font size="1"><%=rs("data_ent")%> 
                                </font></div>
                            </td>
                          </tr>
                          <tr> 
                            <td colspan="4" valign="middle"> 
                              <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
                                <tr> 
                                  <td> 
                                    <div align="right"><font size="1"><font face="Tahoma"><b><img src="imagens/telefone.gif" width="17" height="17" align="absmiddle"> 
                                      <%=rs("Telefone")%></b></font></font><b><font size="1"><font face="Tahoma">&nbsp;</font></font></b></div>
                                  </td>
                                </tr>
                              </table>
                            </td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                    <tr> 
                      <td height="1" bgcolor="#333333"></td>
                    </tr>
                  </table>
    <% Else  %>
    <table width="100%" border="0" cellspacing="0" cellpadding="0" height="2%">
  <tr> 
    <td> 
      <table width="100%" border="0" cellspacing="0" cellpadding="4" bgcolor="#FFFFFF">
        <tr> 
          <td width="60" valign="middle" align="center" height="3"> 
            <table width="30" border="0" cellspacing="0" cellpadding="0" height="30">
              <tr> 
                <%
Foto=rs("foto")
Foto1=rs("foto1")
Foto2=rs("foto2")
Foto3=rs("foto3")
Foto4=rs("foto4")
Foto5=rs("foto5")

If not foto = "" then
fotoinicial = foto
Else
If not foto1 = "" then
fotoinicial = foto1
else
If not foto2 = "" then
fotoinicial = foto2
Else
If not foto3 = "" then
fotoinicial = foto3
Else
If not foto4 = "" then
fotoinicial = foto4
Else
If not foto5 = "" then
fotoinicial = foto5
Else

End if
End if
End if
End if
End if
End if


	%>
                <%if not fotoinicial = "" then%>
                <td valign="middle" align="center"><b><font size="1" color="#003366"><a href="anuncio.asp?id_prod=<%=rs("id_prod")%>"><img src="fotos/ssmall_comfoto_30.gif" border="0" align="absmiddle" width="30" height="30"></a></font></b></td>
                <%Else%>
                <td valign="middle" align="center"><b><font size="1" color="#003366"><a href="anuncio.asp?id_prod=<%=rs("id_prod")%>"><img src="fotos/ssmall_semfoto_30.gif" border="0" align="absmiddle" width="30" height="30"></a></font></b></td>
                <%End if  %>
              </tr>
            </table>
          </td>
          <td valign="top" width="315" height="3"><a href="anuncio.asp?id_prod=<%=rs("id_prod")%>"><font size="1"><%=rs("titulo")%></font></a></td>
          <td width="50" valign="top" height="3"> 
            <div align="center"><font size="1"><%=rs("ano")%> </font></div>
          </td>
          <td width="100" valign="top" height="3"> 
            <div align="center"><font size="1"><font color="#FF0000">R$ <%=rs("preço")%></font> 
              </font></div>
          </td>
          <td width="35" valign="top" height="3"> 
            <div align="center"><font size="1"><%=rs("visitas")%> </font></div>
          </td>
          <td width="140" valign="top" height="3"> 
            <div align="center"><font size="1"><%=rs("data_ent")%> </font></div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td height="1" bgcolor="#333333"></td>
  </tr>
</table>

      
<% 
'/////////////// Fim do que foi mostrado e paginado //////////////
End If
Fotoinicial = ""
rs.movenext
loop
%>
                </td>
              </tr>
            </table>
  	
  	
<%  
  	
loop
end if 
contador = contador +1
   
 'Criando links para a navegação

response.write "<br><b>Página(s):</b> "

for i = 1 to rs.pagecount

if i = cint(pag) then
   response.write "<i><b>" & i & "</b></i> "
else
   response.write "<a href='" & request.servervariables("script_name") & "?pagina=" & i & "'>" & i & "</a> "
end if

next


rs.close
conn.close
set rs = nothing
set conn = nothing
%>

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

CARA AGORA EU ESTOU SEM TEMPO PARA PODER OLHAR SEU CODIGO... SE você QUIZER EU FIZ UM LIVRO DE VISITAS QUE CRIA UMA PAGINACAO... AI VAI O CODIGO ESTA TOTALMENTE CERTO SE você QUISER UTILIZAR PODE...

SE você não ENTENDER ALGUMA CCOISA PODE ME PEDIR AJUDA ESTOU MESMO PRONTO PARA AJUDAR.

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Vendo Mensagem do site</title>
</head>

<body>

<%if request.querystring("enviado") = "ok" then%>
<div align="center">
  <center>
<table border="0" width="500" cellpadding="0">
  <tr>
    <td width="100%" align="center" style="color:#FF0000">
    A sua mensagem foi postada com sucesso, por&eacute;m o administrador
    do site vai v&ecirc;-la primeiro antes de ela ir para o ar!
    </td>
  </tr>
</table>
  </center>
</div>
<%end if%>
<%
'--------------------------------------------------------------------------
'Aqui vem todos os dados da paginacao                                     #
'--------------------------------------------------------------------------
TamanhoDaPagina = 2
pagina = request.querystring("pagina")

if pagina = "" then
	pagina = CInt("1")
else
	pagina = CInt(request.querystring("pagina"))
end if
'--------------------------------------------------------------------------
vendo = "1"

Set rs = Server.CreateObject("ADODB.RecordSet")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("banco.mdb")
SQL = "SELECT * FROM mensagem WHERE ver = '"& vendo &"' ORDER BY id DESC"
rs.Open SQL, DSN, 3, 3

TotaldePaginas = CInt(rs.RecordCount/TamanhoDaPagina)
rs.PageSize= TamanhoDaPagina

if not rs.EOF then
	rs.AbsolutePage = pagina

for x = 1 to TamanhoDaPagina
if rs.EOF then exit for%>
<div align="center">
  <center>
<table border="0" width="500" cellspacing="1" cellpadding="0">
  <tr>
    <td width="116" valign="middle" align="right"><b>Nome:</b></td>
    <td width="368" valign="top" align="left"><%=rs("nome")%></td>
  </tr>
  <tr>
    <td width="116" valign="middle" align="right"><b>E-mail:</b></td>
    <td width="368" valign="top" align="left"><%=rs("email")%></td>
  </tr>
  <%if rs("site") = "0" or rs("site") = "" or rs("site") = "http://" then
  else%>
  <tr>
    <td width="116" valign="middle" align="right"><b>Site:</b></td>
    <td width="368" valign="top" align="left"><a href="http://<%=rs("site")%>" target="_blank"><%=rs("site")%></a></td>
  </tr>
  <%end if%>
  <tr>
    <td width="116" valign="top" align="right"><b>Mensagem:</b></td>
    <td width="368" valign="top" align="left"><%=rs("msg")%></td>
  </tr>
  <tr>
    <td width="484" valign="top" align="right" colspan="2">
      <table border="0" width="100%" cellspacing="1" cellpadding="0">
        <tr>
          <td width="25%" align="right"><b>Data</b>:</td>
          <td width="25%" align="left"><%=rs("data")%></td>
          <td width="25%" align="right"><b>Hora:</b></td>
          <td width="25%" align="left"><%=rs("hora")%></td>
        </tr>
        <tr>
          <td width="100%" align="right" colspan="4"><hr></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
  </center>
</div>
<%rs.MoveNext
Next
'end if do absolute page
end if%>
<br>
<div align="center">
  <center>
<table border="0" width="500" cellspacing="1" cellpadding="0">
  <tr>
    <td width="100" valign="middle" align="right">
    <%if pagina <> 1 then
    response.write "<a href=""ver_livro.asp?pagina="& pagina - 1 &""">P&aacute;gina Anterior</a>"
    end if%>
    </td>
    <td width="300" align="center">
    <div id="pagg0">
    <%for y = 1 to TotaldePaginas
	if pagina <> y then
  response.write " <a href=""ver_livro.asp?pagina=" & y & """>" & y & "</a>"
	else
  response.write " "& y &" "
	end if
next%></div>
    </td>
    <td width="100" valign="middle" align="left">
    <%if pagina < TotaldePaginas then
    response.write "<a href=""ver_livro.asp?pagina="& pagina + 1 &""">Pr&oacute;xima P&aacute;gina</a>"
    end if%></td>
  </tr>
</table>
  </center>
</div>

</body>

</html>

VEJA QUE REALMENTE ESTÁ FUNCIONANDO NO LINK:

http://i.1asphost.com/teajudo/livro/ver_livro.asp

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this