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

Paginando

Espartaco

Perguntado por Espartaco,

 Share

Pergunta

Espartaco

Espartaco

Postado
Postado

Olá Pessoal,

cá estou novamente peidndo ajuda...

Gostaria que alguém criasse paginação para o esquema abaixo.

Não é pedir nada de mão beijada como sei que vão falar.

Já segui milhões de tutoriais (inclusive esse aí do fórum), li umas 5 apostilas sobre paginação, esmiucei códigos prontos, enfim, fiz de tudo, mas cada hora dá um erro diferente. Já li artigos dos principais sites sobre asp, imprimir uma apostila e NADA...

O problema é que não entendo direito a lógica do ASP, meu conhecimento limita-se a adaptar (com muito esforço) alguns scripts prontos.

Se me ajudassem, eu ficaria muito agradecido, poderia até colocar os créditos no site. Se acharem que o trabalho é extendo, posso pagar pelo serviço.

Agradeço a boa vontade em ler minha postagem, pois esse fórum já me ajudou muito...

Espero um dia estar podendo ajudar os outros tb...

Obrigado...

<!--#include file="conectar.asp"-->
<!--#include file="cima.asp"-->
<body topmargin="0" leftmargin="0">

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
  <tr>
    <td width="11%" valign="top" background="imagens/fun_cel.jpg">
    <p align="center">
    <!--#include file="menu_left.asp"--></p>
    </td>
    <td width="89%" valign="top">
    <table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
      <tr>
        <td width="100%">
        <p align="center"><img border="0" src="imagens/espaco.jpg"></td>
      </tr>
      <tr>
        <td width="100%">
        <p align="center"><% AbreConexao
idcat=request.querystring("idcat")
id=request.querystring("id")
cat=request.querystring("cat")
If id = "" Then
Response.Write "<BR><p align=""left""><font face=""verdana"" size=2><B>"&cat&"&nbsp;- Relação Lojas</font></B><BR><BR>"
Set rsAlbum = Conexao.Execute("SELECT * FROM download WHERE idcat="&idcat&" ORDER BY id asc")
If rsAlbum.EOF Then
Response.Write "<p align=""center""><img border=""0"" src=""imagens/nem.jpg""><BR><font face=""verdana"" size=""2"">Nenhuma loja encontrada neste departamento!"
Else
nome_fantasia = rsAlbum ("nome_FANTASIA")
While not rsAlbum.EOF%>
<script language="JavaScript">
function abrejanela(sURL){
newwindow=open(sURL,"votar","scrollbars=yes,toolbar=no,directories=no,menubar=no,resizable=yes,status=no,width=300,height=170");
}
function novajanela(sURL){
newwindow=open(sURL,"imprimir","scrollbars=yes,toolbar=no,directories=no,menubar=no,resizable=yes,status=no,width=400,height=500");
}
//
        </script>
                <table border="0" cellpadding="0" cellspacing="0" width="99%" style="border-collapse: collapse" bordercolor="#D0D0D0">
          <tr>
            <font face="Verdana">
            <td>
            <table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
              <tr>
                <td width="100%">
                <table border="1" cellpadding="0" cellspacing="0" style="border-width:0; border-collapse: collapse; " bordercolor="#111111" width="100%" id="AutoNumber3">
                  <tr>
                    <td width="15%" bgcolor="#FFFFFF" style="border-style: none; border-width: medium">
                    <img border="0" src="imagens/abas/<%=rsAlbum("aba")%>"></td>
                    <td width="85%" bgcolor="#FFFFFF" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top: medium none #111111; border-bottom-style: none; border-bottom-width: medium" background="imagens/fun.jpg">&nbsp;</td>
                  </tr>
                  <tr>
                    <td width="15%" bgcolor="#D0D0D0" style="border-left-color: #111111; border-left-width: 1; border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium">
                    <p align="center"><font face="verdana" size="1">
                    <img border="0" src="imagens/logomarcas_monitor/<%=rsAlbum("logomarca")%>" alt="<%=rsAlbum("nome_loja")%> "></font></p>
                    </td>
                    <td width="85%" bgcolor="#D0D0D0" style="border-left-style: none; border-left-width: medium; border-right-color: #111111; border-right-width: 1; border-top: medium none #111111">
                    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" height="95">
                      <tr>
                        <td width="100%" height="12">
                        <font face="verdana" size="1">&nbsp;-<b> Nome Comercial:</b>
                        <%=rsAlbum("nome_comercial")%></font></td>
                      </tr>
                      <tr>
                        <td width="100%" height="1">
                        <font face="verdana" size="1">&nbsp;<b>- Nome Fantasia:</b>
                        <%=rsAlbum("nome_loja")%></font></td>
                      </tr>
                      <tr>
                        <td width="100%" height="12">
                        <font face="verdana" size="1"><b>&nbsp;- Fundação:</b> <%=rsAlbum("fundacao")%></font></td>
                      </tr>
                      <tr>
                        <td width="100%" height="12">
                        <font face="verdana" size="1">&nbsp;<b>- Endereço:</b> <%=rsAlbum("endereco")%>, 
                        Nº <%=rsAlbum("numero")%>, <%=rsAlbum("bairro")%> - <%=rsAlbum("cep")%></font></td>
                      </tr>
                      <tr>
                        <td width="100%" height="12">
                        <font face="verdana" size="1" face="Verdana">&nbsp;<b>- 
                        Complemento: </b><%=rsAlbum("complemento")%></font></td>
                      </tr>
                      <tr>
                        <td width="100%" height="12">
                        <font face="verdana" size="1"><b>&nbsp;- Cidade:</b> <%=rsAlbum("cidade")%>,
                        <%=rsAlbum("estado")%></font></td>
                      </tr>
                      <tr>
                        <td width="100%" height="12">
                        <font face="verdana" size="1"><b>&nbsp;- Telefone/Fax:</b>
                        <%=rsAlbum("telefone_fax")%></font></td>
                      </tr>
                      <tr>
                        <td width="100%" height="12">
                        <font face="verdana" size="1">&nbsp;<b>- Gerente:</b> <%=rsAlbum("gerente")%></font></td>
                      </tr>
                      <tr>
                        <td width="100%" height="12">
                        <font face="verdana" size="1">&nbsp;<b>- Site na Internet:</b>
                        <a target="_blank" href="<%=rsAlbum("site")%>"><%=rsAlbum("site")%></a></font></td>
                      </tr>
                      <tr>
                        <td width="100%" height="10">
                        <font face="verdana" size="1"><b>&nbsp;- E-mail:</b>
                        <a href="mailto:<%=rsAlbum("email")%>?subject=Contato via ShopFacil União">
                        <%=rsAlbum("email")%></a></font></td>
                      </tr>
                    </table>
                    </td>
                  </tr>
                  <tr>
                    <td width="100%" colspan="2" bgcolor="#F4F4F4" style="border-left-color: #111111; border-left-width: 1; border-right-color: #111111; border-right-width: 1; border-bottom-style: none; border-bottom-width: medium">
                    <table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5">
                      <tr>
                        <td width="100%"><font face="verdana" size="1"><b>O que 
                        vende:</b> <%=rsAlbum("vende")%></font></td>
                      </tr>
                    </table>
                    </td>
                  </tr>
                  <tr>
                    <td width="100%" colspan="2" bgcolor="#F4F4F4" style="border-left-color: #111111; border-left-width: 1; border-right-color: #111111; border-right-width: 1; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
                    <table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber6">
                      <tr>
                        <td width="100%"><font face="verdana" size="1"><b>Descrição:</b>
                        <%=rsAlbum("descricao")%></font></td>
                      </tr>
                    </table>
                    </td>
                  </tr>
                  <tr>
                    <td width="100%" colspan="2" bgcolor="#F4F4F4" style="border-left-color: #111111; border-left-width: 1; border-right-color: #111111; border-right-width: 1; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
                    <font face="verdana" size="1">&nbsp;<font color="#000080"><img border="0" src="imagens/marcador01.gif">
                    <%If rsAlbum("expoe") = "n" Then Response.Write "Esta loja não disponibiliza suas ofertas no site" Else Response.Write  "&nbsp;<a href=""pr.asp?idcat=" & idcat & "&cat=" & cat & "&loja_id=" & rsAlbum("id")& "&nome=" & rsAlbum("nome_loja") & """>Ver Ofertas desta loja&nbsp;</a>(" & rsAlbum("cliques") & "&nbsp;cliques desde&nbsp;" & rsAlbum("adicionado") & ")</font>"  End If%>
                    </font></font></td>
                  </tr>
                  <tr>
                    <td width="100%" colspan="2" bgcolor="#F4F4F4" style="border-left-color: #111111; border-left-width: 1; border-right-color: #111111; border-right-width: 1; border-top-style: none; border-top-width: medium; border-bottom-style:none; border-bottom-width:medium">
                    <font face="verdana" size="1" color="#111111">&nbsp;Média de 
                    votos por avaliação de visitantes: <b>
                    <font face="verdana" size="1"><%=rsAlbum("media")%></font></b>
                    </font></font>
                    <a href="javascript:abrejanela('voto.asp?id=<%=rsAlbum("id")%>')">
                    <font color="#111111" face="verdana" size="1">
                    <img src="imagens/avalie.gif" border="0" alt="Dê sua nota para <%=rsAlbum("nome_LOJA")%>"></font></a><font color="#111111" face="verdana" size="1">
                    </font></td>
                  </tr>
                  <tr>
                    <td width="100%" colspan="2" style="border-left:medium none #111111; border-right:medium none #111111; border-top-style: none; border-top-width: medium; border-bottom-style:none; border-bottom-width:medium">
                    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber7">
                      <tr>
                        <td width="1%">
            <font face="Verdana">
                        <img border="0" src="imagens/inicio_imprimir_dados.gif"></font></td>
                        <td width="88%" background="imagens/fundo_imprimir_dados.gif">&nbsp;</td>
                        <td width="11%">
                        <p align="right"><a href="javascript:novajanela('print_lojas.asp?id=<%=rsAlbum("id")%>&idcat=<%=idcat%>&cat=<%=cat%>&nome=<%=rsAlbum("nome_loja")%>')">
                    <font color="#111111" face="verdana" size="1">
                    <img src="imagens/imprimir_dados.gif" border="0" alt="Imprimir dados da loja <%=rsAlbum("nome_LOJA")%>"></font></a></td>
                      </tr>
                    </table>
                    </td>
                  </tr>
                </table>
                </td>
              </tr>
            </table>
            </td>
          </tr>
        </table>
        </font><%rsAlbum.Movenext
Wend
End If
End If%><p align="center"><br>
        <a href="javascript:self.history.go(-1)"><img src="imagens/voltar.jpg" border="0" alt="Voltar à página anterior"></a><br>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<!--#include file="footer.asp"-->

</body>

Link para o comentário
Compartilhar em outros sites

10 respostass a esta questão

Posts Recomendados

  • 0
Espartaco

Espartaco

Postado
  • Autor
Postado

O erro que dá e que se mando exibir 5 registros por página, e, digamos, eu tenha 10 do BD, ele mostra os 10 na primeira página, habilita o link para próxima e mostra novamente os 10 na próxima....

Não tenho mais o código de erro, pois apaguei-o....

Link para o comentário
Compartilhar em outros sites
  • 0
pgmador

pgmador

Postado
Postado

Muito chato fazer isso.. Se não der certo este código aí, que eu nem testei nem nada, coloca aí o seu que está dando o erro. É bem mais fácil pra consertar do que ficar montando a paginação no seu código..

<!--#include file="conectar.asp"-->
<!--#include file="cima.asp"-->
<body topmargin="0" leftmargin="0">

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
 <tr>
   <td width="11%" valign="top" background="imagens/fun_cel.jpg">
   <p align="center">
   <!--#include file="menu_left.asp"--></p>
   </td>
   <td width="89%" valign="top">
   <table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
     <tr>
       <td width="100%">
       <p align="center"><img border="0" src="imagens/espaco.jpg"></td>
     </tr>
     <tr>
       <td width="100%">
       <p align="center"><% AbreConexao
idcat=request.querystring("idcat")
id=request.querystring("id")
cat=request.querystring("cat")
If id = "" Then
Response.Write "<BR><p align=""left""><font face=""verdana"" size=2><B>"&cat&"&nbsp;- Relação Lojas</font></B><BR><BR>"
Set rsAlbum = Server.CreateObject("ADODB.RecordSet")
rs.PageSize=5
rsAlbum.Open "SELECT * FROM download WHERE idcat="&idcat&" ORDER BY id asc", Conexao
If rsAlbum.EOF Then
Response.Write "<p align=""center""><img border=""0"" src=""imagens/nem.jpg""><BR><font face=""verdana"" size=""2"">Nenhuma loja encontrada neste departamento!"
Response.End
Else
	'Definindo em qual pagina o visitante está
	IF Request.QueryString("pagina")="" then
  intpagina=1
	ELSE
  IF CInt(Request.QueryString("pagina"))<1 then
  	intpagina=1
  ELSE
  	IF CInt(Request.QueryString("pagina"))>rsAlbum.PageCount then
    intpagina=rsAlbum.PageCount
  	ELSE
    intpagina=Request.QueryString("pagina")
  	END IF
  END IF
	END IF
END IF
'Fim das verificações de exceções

'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta 
rsAlbum.AbsolutePage=intpagina

' Inicia o contador que vai controlar os registros mostrados
intrec=0

'Enquanto o contador for menor que a quantidade de registros mostrados ou
' não for o final do arquivo 

While intrec < rsAlbum.PageSize and not rsAlbum.EOF

nome_fantasia = rsAlbum ("nome_FANTASIA")
<script language="JavaScript">
function abrejanela(sURL){
newwindow=open(sURL,"votar","scrollbars=yes,toolbar=no,directories=no,menubar=no,resizable=yes,status=no,width=300,height=170");
}
function novajanela(sURL){
newwindow=open(sURL,"imprimir","scrollbars=yes,toolbar=no,directories=no,menubar=no,resizable=yes,status=no,width=400,height=500");
}
//
       </script>
               <table border="0" cellpadding="0" cellspacing="0" width="99%" style="border-collapse: collapse" bordercolor="#D0D0D0">
         <tr>
           <font face="Verdana">
           <td>
           <table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
             <tr>
               <td width="100%">
               <table border="1" cellpadding="0" cellspacing="0" style="border-width:0; border-collapse: collapse; " bordercolor="#111111" width="100%" id="AutoNumber3">
                 <tr>
                   <td width="15%" bgcolor="#FFFFFF" style="border-style: none; border-width: medium">
                   <img border="0" src="imagens/abas/<%=rsAlbum("aba")%>"></td>
                   <td width="85%" bgcolor="#FFFFFF" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top: medium none #111111; border-bottom-style: none; border-bottom-width: medium" background="imagens/fun.jpg">&nbsp;</td>
                 </tr>
                 <tr>
                   <td width="15%" bgcolor="#D0D0D0" style="border-left-color: #111111; border-left-width: 1; border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium">
                   <p align="center"><font face="verdana" size="1">
                   <img border="0" src="imagens/logomarcas_monitor/<%=rsAlbum("logomarca")%>" alt="<%=rsAlbum("nome_loja")%> "></font></p>
                   </td>
                   <td width="85%" bgcolor="#D0D0D0" style="border-left-style: none; border-left-width: medium; border-right-color: #111111; border-right-width: 1; border-top: medium none #111111">
                   <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" height="95">
                     <tr>
                       <td width="100%" height="12">
                       <font face="verdana" size="1">&nbsp;-<b> Nome Comercial:</b>
                       <%=rsAlbum("nome_comercial")%></font></td>
                     </tr>
                     <tr>
                       <td width="100%" height="1">
                       <font face="verdana" size="1">&nbsp;<b>- Nome Fantasia:</b>
                       <%=rsAlbum("nome_loja")%></font></td>
                     </tr>
                     <tr>
                       <td width="100%" height="12">
                       <font face="verdana" size="1"><b>&nbsp;- Fundação:</b> <%=rsAlbum("fundacao")%></font></td>
                     </tr>
                     <tr>
                       <td width="100%" height="12">
                       <font face="verdana" size="1">&nbsp;<b>- Endereço:</b> <%=rsAlbum("endereco")%>, 
                       Nº <%=rsAlbum("numero")%>, <%=rsAlbum("bairro")%> - <%=rsAlbum("cep")%></font></td>
                     </tr>
                     <tr>
                       <td width="100%" height="12">
                       <font face="verdana" size="1" face="Verdana">&nbsp;<b>- 
                       Complemento: </b><%=rsAlbum("complemento")%></font></td>
                     </tr>
                     <tr>
                       <td width="100%" height="12">
                       <font face="verdana" size="1"><b>&nbsp;- Cidade:</b> <%=rsAlbum("cidade")%>,
                       <%=rsAlbum("estado")%></font></td>
                     </tr>
                     <tr>
                       <td width="100%" height="12">
                       <font face="verdana" size="1"><b>&nbsp;- Telefone/Fax:</b>
                       <%=rsAlbum("telefone_fax")%></font></td>
                     </tr>
                     <tr>
                       <td width="100%" height="12">
                       <font face="verdana" size="1">&nbsp;<b>- Gerente:</b> <%=rsAlbum("gerente")%></font></td>
                     </tr>
                     <tr>
                       <td width="100%" height="12">
                       <font face="verdana" size="1">&nbsp;<b>- Site na Internet:</b>
                       <a target="_blank" href="<%=rsAlbum("site")%>"><%=rsAlbum("site")%></a></font></td>
                     </tr>
                     <tr>
                       <td width="100%" height="10">
                       <font face="verdana" size="1"><b>&nbsp;- E-mail:</b>
                       <a href="mailto:<%=rsAlbum("email")%>?subject=Contato via ShopFacil União">
                       <%=rsAlbum("email")%></a></font></td>
                     </tr>
                   </table>
                   </td>
                 </tr>
                 <tr>
                   <td width="100%" colspan="2" bgcolor="#F4F4F4" style="border-left-color: #111111; border-left-width: 1; border-right-color: #111111; border-right-width: 1; border-bottom-style: none; border-bottom-width: medium">
                   <table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5">
                     <tr>
                       <td width="100%"><font face="verdana" size="1"><b>O que 
                       vende:</b> <%=rsAlbum("vende")%></font></td>
                     </tr>
                   </table>
                   </td>
                 </tr>
                 <tr>
                   <td width="100%" colspan="2" bgcolor="#F4F4F4" style="border-left-color: #111111; border-left-width: 1; border-right-color: #111111; border-right-width: 1; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
                   <table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber6">
                     <tr>
                       <td width="100%"><font face="verdana" size="1"><b>Descrição:</b>
                       <%=rsAlbum("descricao")%></font></td>
                     </tr>
                   </table>
                   </td>
                 </tr>
                 <tr>
                   <td width="100%" colspan="2" bgcolor="#F4F4F4" style="border-left-color: #111111; border-left-width: 1; border-right-color: #111111; border-right-width: 1; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
                   <font face="verdana" size="1">&nbsp;<font color="#000080"><img border="0" src="imagens/marcador01.gif">
                   <%If rsAlbum("expoe") = "n" Then Response.Write "Esta loja não disponibiliza suas ofertas no site" Else Response.Write  "&nbsp;<a href=""pr.asp?idcat=" & idcat & "&cat=" & cat & "&loja_id=" & rsAlbum("id")& "&nome=" & rsAlbum("nome_loja") & """>Ver Ofertas desta loja&nbsp;</a>(" & rsAlbum("cliques") & "&nbsp;cliques desde&nbsp;" & rsAlbum("adicionado") & ")</font>"  End If%>
                   </font></font></td>
                 </tr>
                 <tr>
                   <td width="100%" colspan="2" bgcolor="#F4F4F4" style="border-left-color: #111111; border-left-width: 1; border-right-color: #111111; border-right-width: 1; border-top-style: none; border-top-width: medium; border-bottom-style:none; border-bottom-width:medium">
                   <font face="verdana" size="1" color="#111111">&nbsp;Média de 
                   votos por avaliação de visitantes: <b>
                   <font face="verdana" size="1"><%=rsAlbum("media")%></font></b>
                   </font></font>
                   <a href="javascript:abrejanela('voto.asp?id=<%=rsAlbum("id")%>')">
                   <font color="#111111" face="verdana" size="1">
                   <img src="imagens/avalie.gif" border="0" alt="Dê sua nota para <%=rsAlbum("nome_LOJA")%>"></font></a><font color="#111111" face="verdana" size="1">&nbsp; 
            </font></td>
                 </tr>
                 <tr>
                   <td width="100%" colspan="2" style="border-left:medium none #111111; border-right:medium none #111111; border-top-style: none; border-top-width: medium; border-bottom-style:none; border-bottom-width:medium">
                   <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber7">
                     <tr>
                       <td width="1%">
           <font face="Verdana">
                       <img border="0" src="imagens/inicio_imprimir_dados.gif"></font></td>
                       <td width="88%" background="imagens/fundo_imprimir_dados.gif">&nbsp;</td>
                       <td width="11%">
                       <p align="right"><a href="javascript:novajanela('print_lojas.asp?id=<%=rsAlbum("id")%>&idcat=<%=idcat%>&cat=<%=cat%>&nome=<%=rsAlbum("nome_loja")%>')">
                   <font color="#111111" face="verdana" size="1">
                   <img src="imagens/imprimir_dados.gif" border="0" alt="Imprimir dados da loja <%=rsAlbum("nome_LOJA")%>"></font></a></td>
                     </tr>
                   </table>
                   </td>
                 </tr>
               </table>
               </td>
             </tr>
           </table>
           </td>
         </tr>
       </table>
       </font><%rsAlbum.Movenext
    ' Acrescenta +1 ao contador
   intrec=intrec+1 
   'Se for EOF (fim de arquivo), imprimir branco na tela
   IF rsAlbum.EOF then 
      response.write " " 
   END IF
Wend
End If
End If%>
<p align="center"><br>
       <a href="javascript:self.history.go(-1)"><img src="imagens/voltar.jpg" border="0" alt="Voltar à página anterior"></a><br></td> </tr> </table> </td> </tr> </table> 
  <%
'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. 
IF intpagina > 1 then 
%>
  <a href="procurar.asp?pagina=<%=intpagina-1%>&sexo=<%=sexo%>&estado=<%=estado%>&idade_minima=<%=idade_minima%>&idade_maxima=<%=idade_maxima%>"">Anterior</a> 
  <% 
END IF

'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página 
IF strcomp(intpagina,RS.PageCount) <> 0 then 
%>
  <a href="procurar.asp?pagina=<%=intpagina + 1%>&sexo=<%=sexo%>&estado=<%=estado%>&idade_minima=<%=idade_minima%>&idade_maxima=<%=idade_maxima%>">Próxima</a> 
  <% 
END IF
%>
  <!--#include file="footer.asp"-->
</body>

Link para o comentário
Compartilhar em outros sites
  • 0
ursolouco

ursolouco

Postado
Postado

Brother!!

Eu também, tenho mó dificuldade para paginar dados....

Complicado!!

Mas vamos, estamos aki, para judar, um aos outros....

Todos os direitos e creditos deste código são de: 'Bicicleta' do forum Imasters!!

Este código foi retirado do POST - Paginação!!!

Veja o código que esta rodando no site: http://www20.brinkster.com/ursolouco/Brink...amples/site.asp

<%
 cBanco = Server.MapPath("\ursolouco\db\BrinksterExampleDatabase.mdb")
 Set Conn = Server.CreateObject("adodb.connection")
 strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source ="& cBanco &";"
 Conn.Open(strConn)
%>
<% 
	registros = 20
	pagina = Request.QueryString("pagina")

	If pagina = "" Then
  pagina = 1
	End If

	Set rs = Server.Createobject("ADODB.RECORDSET")
'	set rs.ActiveConnection = Conn
'	rs.CursorType = 3
	rs.PageSize = registros

	sql = "SELECT ProductName, QuantityPerUnit, UnitPrice, UnitsInStock FROM Products"
	rs.Open sql, Conn, 3, 3

	If rs.EOF Then
  Response.Write "Nenhum registro encontrado"
	Else
  rs.AbsolutePage = pagina
  While Not rs.EOF AND x < rs.PageSize
  	x = x + 1 %>
  	<b><%=rs("ProductName")%></b><br>
  	<% rs.MoveNext
  Wend

  anterior = pagina - 1
  proxima = pagina + 1
  ultima = rs.PageCount
  primeira = 1
  ultm2 = FormatNumber(rs.PageCount - 1,0)
  If pagina <> 1 Then
  	Response.Write "<b>&laquo; <a href=site.asp?pagina="&primeira&">Primeira Página</a></b> "
  End If

  If pagina > 1 AND pagina <> 2 Then
  	Response.Write "<b>[ <a href=site.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "
  End If

  If pagina > 1 Then
  	Response.Write "<b>[ <a href=site.asp?pagina="&anterior&">"&anterior&"</a> ]</b> "
  End If

  Response.Write "<b>[ "&pagina&" ]</b> "

  If Not rs.EOF Then
  	Response.Write "<b>[ <a href=site.asp?pagina="&proxima&">"&proxima&"</a> ]</b> "
  End If

  If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then
  	Response.Write "<b>[ <a href=site.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> "
  End If

  If Not rs.EOF Then
  	Response.Write "<b><a href=site.asp?pagina="&ultima&">Última Página</a> &raquo;</b> "
  End If
	End If
	rs.Close
	Set rs = Nothing
%>

Espero que lhe ajude...

Até +

[ursolouco]

Link para o comentário
Compartilhar em outros sites
  • 0
Espartaco

Espartaco

Postado
  • Autor
Postado

Olá pessoal, não gostaria de parecer inconveniente e insistente, nem de querer o trabalho feito, mastigadinho, mas realmente apelei para o fórum quando já estava prestes a chutar computador, cadeira, esposa, cachorro....Devo ter perdido metade da minha capacidade de pensar, de tanto que me embrenhei nesse monte de letras aí....

Pois é, usei o código que o "pgmador" me passou, e deu um erro.

Estou postando o código asp com a paginação montada, e logo abaixo o erro que o IIS acusa.

O código parece longo, mas o ASP mesmo é bem pequeno, o resto é HTML (formatações e tabelas)

Drixo aqui minha solicitação para quem se dispor a analisar e mostrar o erro.

Na oportunidade, agradeço ao urso.louco e ao pgmador pela disposição e boa vontade.

Até breve...

ESPÁRTACO VETTORAZZI

PAGINAÇÃO

<!--#include file="conectar.asp"-->
<!--#include file="cima.asp"-->
<body topmargin="0" leftmargin="0">

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
  <tr>
    <td width="11%" valign="top" background="imagens/fun_cel.jpg">
    <p align="center">
    <!--#include file="menu_left.asp"--></p>
    </td>
    <td width="89%" valign="top">
    <table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
      <tr>
        <td width="100%">
        <p align="center"><img border="0" src="imagens/espaco.jpg"></td>
      </tr>
      <tr>
        <td width="100%">
        <p align="center">                                     <IFRAME class=box 
            style="BORDER-RIGHT: 0px solid; BORDER-TOP: 0px solid; BORDER-LEFT: 0px solid; BORDER-BOTTOM: 0px solid" 
            marginWidth=1 marginHeight=1 src=banner_fotos.asp 
            frameBorder=0 width=455 height=62 name=I1 target=_blank scrolling=no></IFRAME>                     
        </td>
      </tr>
      <tr>
        <td width="100%">
        <p align="center"><% AbreConexao
idcat=request.querystring("idcat")
id=request.querystring("id")
cat=request.querystring("cat")
If id = "" Then
Response.Write "<BR><p align=""left""><font face=""verdana"" size=2><B>"&cat&"&nbsp;- Relação Lojas</font></B><BR><BR>"
Set rsAlbum = Conexao.Execute("SELECT * FROM download WHERE idcat="&idcat&" ORDER BY id desc")
If rsAlbum.EOF Then
Response.Write "<p align=""center""><img border=""0"" src=""imagens/nem.jpg""><BR><font face=""verdana"" size=""2"">Nenhuma loja encontrada neste departamento!"
Response.End

Else
'Definindo em qual pagina o visitante está
IF Request.QueryString("pagina")="" then
 intpagina=1
ELSE
 IF CInt(Request.QueryString("pagina"))<1 then
  intpagina=1
 ELSE
  IF CInt(Request.QueryString("pagina"))>rsAlbum.PageCount then
   intpagina=rsAlbum.PageCount
  ELSE
   intpagina=Request.QueryString("pagina")
  END IF
 END IF
END IF
END IF
'Fim das verificações de exceções

'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta 
COLOR=red]rsAlbum.AbsolutePage=intpagina[/COLOR]

' Inicia o contador que vai controlar os registros mostrados
intrec=0

'Enquanto o contador for menor que a quantidade de registros mostrados ou
' não for o final do arquivo 

While intrec < rsAlbum.PageSize and not rsAlbum.EOF

nome_fantasia = rsAlbum ("nome_FANTASIA")%>

<script language="JavaScript">
function abrejanela(sURL){
newwindow=open(sURL,"votar","scrollbars=yes,toolbar=no,directories=no,menubar=no,resizable=yes,status=no,width=300,height=170");
}
function novajanela(sURL){
newwindow=open(sURL,"imprimir","scrollbars=yes,toolbar=no,directories=no,menubar=no,resizable=yes,status=no,width=400,height=500");
}
//
        </script>
                <table border="0" cellpadding="0" cellspacing="0" width="99%" style="border-collapse: collapse" bordercolor="#D0D0D0">
          <tr>
            <font face="Verdana">
            <td>
            <table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
              <tr>
                <td width="100%">
                <table border="1" cellpadding="0" cellspacing="0" style="border-width:0; border-collapse: collapse; " bordercolor="#111111" width="100%" id="AutoNumber3">
                  <tr>
                    <td width="15%" bgcolor="#FFFFFF" style="border-style: none; border-width: medium">
                    <img border="0" src="imagens/abas/<%=rsAlbum("aba")%>"></td>
                    <td width="85%" bgcolor="#FFFFFF" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top: medium none #111111; border-bottom-style: none; border-bottom-width: medium" background="imagens/fun.jpg">&nbsp;</td>
                  </tr>
                  <tr>
                    <td width="15%" bgcolor="#D0D0D0" style="border-left-color: #111111; border-left-width: 1; border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium">
                    <p align="center"><font face="verdana" size="1">
                    <img border="0" src="imagens/logomarcas_monitor/<%=rsAlbum("logomarca")%>" alt="<%=rsAlbum("nome_loja")%> "></font></p>
                    </td>
                    <td width="85%" bgcolor="#D0D0D0" style="border-left-style: none; border-left-width: medium; border-right-color: #111111; border-right-width: 1; border-top: medium none #111111">
                    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" height="95">
                      <tr>
                        <td width="100%" height="12">
                        <font face="verdana" size="1">&nbsp;-<b> Nome Comercial:</b>
                        <%=rsAlbum("nome_comercial")%></font></td>
                      </tr>
                      <tr>
                        <td width="100%" height="1">
                        <font face="verdana" size="1">&nbsp;<b>- Nome Fantasia:</b>
                        <%=rsAlbum("nome_loja")%></font></td>
                      </tr>
                      <tr>
                        <td width="100%" height="12">
                        <font face="verdana" size="1"><b>&nbsp;- Fundação:</b> <%=rsAlbum("fundacao")%></font></td>
                      </tr>
                      <tr>
                        <td width="100%" height="12">
                        <font face="verdana" size="1">&nbsp;<b>- Endereço:</b> <%=rsAlbum("endereco")%>, 
                        Nº <%=rsAlbum("numero")%>, <%=rsAlbum("bairro")%> - <%=rsAlbum("cep")%></font></td>
                      </tr>
                      <tr>
                        <td width="100%" height="12">
                        <font face="verdana" size="1" face="Verdana">&nbsp;<b>- 
                        Complemento: </b><%=rsAlbum("complemento")%></font></td>
                      </tr>
                      <tr>
                        <td width="100%" height="12">
                        <font face="verdana" size="1"><b>&nbsp;- Cidade:</b> <%=rsAlbum("cidade")%>,
                        <%=rsAlbum("estado")%></font></td>
                      </tr>
                      <tr>
                        <td width="100%" height="12">
                        <font face="verdana" size="1"><b>&nbsp;- Telefone/Fax:</b>
                        <%=rsAlbum("telefone_fax")%></font></td>
                      </tr>
                      <tr>
                        <td width="100%" height="12">
                        <font face="verdana" size="1">&nbsp;<b>- Gerente:</b> <%=rsAlbum("gerente")%></font></td>
                      </tr>
                      <tr>
                        <td width="100%" height="12">
                        <font face="verdana" size="1">&nbsp;<b>- Site na Internet:</b>
                        <a target="_blank" href="<%=rsAlbum("site")%>"><%=rsAlbum("site")%></a></font></td>
                      </tr>
                      <tr>
                        <td width="100%" height="10">
                        <font face="verdana" size="1"><b>&nbsp;- E-mail:</b>
                        <a href="mailto:<%=rsAlbum("email")%>?subject=Contato via ShopFacil União">
                        <%=rsAlbum("email")%></a></font></td>
                      </tr>
                    </table>
                    </td>
                  </tr>
                  <tr>
                    <td width="100%" colspan="2" bgcolor="#F4F4F4" style="border-left-color: #111111; border-left-width: 1; border-right-color: #111111; border-right-width: 1; border-bottom-style: none; border-bottom-width: medium">
                    <table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5">
                      <tr>
                        <td width="100%"><font face="verdana" size="1"><b>O que 
                        vende:</b> <%=rsAlbum("vende")%></font></td>
                      </tr>
                    </table>
                    </td>
                  </tr>
                  <tr>
                    <td width="100%" colspan="2" bgcolor="#F4F4F4" style="border-left-color: #111111; border-left-width: 1; border-right-color: #111111; border-right-width: 1; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
                    <table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber6">
                      <tr>
                        <td width="100%"><font face="verdana" size="1"><b>Descrição:</b>
                        <%=rsAlbum("descricao")%></font></td>
                      </tr>
                    </table>
                    </td>
                  </tr>
                  <tr>
                    <td width="100%" colspan="2" bgcolor="#F4F4F4" style="border-left-color: #111111; border-left-width: 1; border-right-color: #111111; border-right-width: 1; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
                    <font face="verdana" size="1">&nbsp;<font color="#000080"><img border="0" src="imagens/marcador01.gif">
                    <%If rsAlbum("expoe") = "n" Then Response.Write "Esta loja não disponibiliza suas ofertas no site" Else Response.Write  "&nbsp;<a href=""pr.asp?idcat=" & idcat & "&cat=" & cat & "&loja_id=" & rsAlbum("id")& "&nome=" & rsAlbum("nome_loja") & """>Ver Ofertas desta loja&nbsp;</a>(" & rsAlbum("cliques") & "&nbsp;cliques desde&nbsp;" & rsAlbum("adicionado") & ")</font>"  End If%>
                    </font></font></td>
                  </tr>
                  <tr>
                    <td width="100%" colspan="2" bgcolor="#F4F4F4" style="border-left-color: #111111; border-left-width: 1; border-right-color: #111111; border-right-width: 1; border-top-style: none; border-top-width: medium; border-bottom-style:none; border-bottom-width:medium">
                    <font face="verdana" size="1" color="#111111">&nbsp;Média de 
                    votos por avaliação de visitantes: <b>
                    <font face="verdana" size="1"><%=rsAlbum("media")%></font></b>
                    </font></font>
                    <a href="javascript:abrejanela('voto.asp?id=<%=rsAlbum("id")%>')">
                    <font color="#111111" face="verdana" size="1">
                    <img src="imagens/avalie.gif" border="0" alt="Dê sua nota para <%=rsAlbum("nome_LOJA")%>"></font></a><font color="#111111" face="verdana" size="1">
                    </font></td>
                  </tr>
                  <tr>
                    <td width="100%" colspan="2" style="border-left:medium none #111111; border-right:medium none #111111; border-top-style: none; border-top-width: medium; border-bottom-style:none; border-bottom-width:medium">
                    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber7">
                      <tr>
                        <td width="1%">
            <font face="Verdana">
                        <img border="0" src="imagens/inicio_imprimir_dados.gif"></font></td>
                        <td width="88%" background="imagens/fundo_imprimir_dados.gif">&nbsp;</td>
                        <td width="11%">
                        <p align="right"><a href="javascript:novajanela('print_lojas.asp?id=<%=rsAlbum("id")%>&idcat=<%=idcat%>&cat=<%=cat%>&nome=<%=rsAlbum("nome_loja")%>')">
                    <font color="#111111" face="verdana" size="1">
                    <img src="imagens/imprimir_dados.gif" border="0" alt="Imprimir dados da loja <%=rsAlbum("nome_LOJA")%>"></font></a></td>
                      </tr>
                    </table>
                    </td>
                  </tr>
                </table>
                </td>
              </tr>
            </table>
            </td>
          </tr>
        </table>
        </font><%rsAlbum.Movenext
' Acrescenta +1 ao contador
  intrec=intrec+1 
  'Se for EOF (fim de arquivo), imprimir branco na tela
  IF rsAlbum.EOF then 
     response.write " " 
  END IF
Wend
End If
%><p align="center"> <b><font size="2" face="Verdana"> <%
'Vamos verificar se não é a página 1, para podermos colocar o link ?anterior?. 
IF intpagina > 1 then 
%>
 <a href="lojas_a.asp?idcat=<%=idcat%>&cat=<%=cat%>&pagina=<%=intpagina - 1%>">Anterior</a> 
 <% 
END IF

'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página 
IF strcomp(intpagina,RS.PageCount) <> 0 then 
%>
 <a href="lojas_a.asp?idcat=<%=idcat%>&cat=<%=cat%>&pagina=<%=intpagina + 1%>">Próxima</a> 
 <% 
END IF
%><br></font></b><br>
        <a href="javascript:self.history.go(-1)"><img src="imagens/voltar.jpg" border="0" alt="Voltar à página anterior"></a><br>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<!--#include file="footer.asp"-->

</body>
MENSAGEM DE ERRO 
HTTP 500.100 - Servidor interno Erro - erro do ASP
Internet Information Services

--------------------------------------------------------------------------------

Informações técnicas (para a equipe de suporte)

Tipo de erro:
ADODB.Recordset (0x800A0BB9)
Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.
/shopfacil/lojas_a.asp, [COLOR=red]line 57[/COLOR]

Link para o comentário
Compartilhar em outros sites
  • 0
Espartaco

Espartaco

Postado
  • Autor
Postado
Deixa a linha 57 assim

rsAlbum.AbsolutePage=intpagina

E veja o q acontece.

O cõdigo estã assim como você disse

Ele aparecu COLOR=red]rsAlbum.AbsolutePage=intpagina por que tentei formatar com vermelho na postagem do tópico....

Foi mal rolleyes.gif

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,5k
    • Posts
      652,4k
×
×
  • Criar Novo...