Ir para conteúdo
Fórum Script Brasil
  • 0

Problemas Com Paginação

douglasdamame

Perguntado por douglasdamame,

 Share

Pergunta

douglasdamame

douglasdamame

Postado
Postado

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
%>

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
marcos_804

marcos_804

Postado
Postado

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,5k
×
×
  • Criar Novo...