Paginacao Com 2 Registros Por Linha

hermoso007 · Dezembro 9, 2004

Ola p todos... gostaria de paginar 2 itens por linha de uma mesma tabela que esta dentro do while/wend. só que quando mando para o server o arquivo.asp duplica os registros. Segue o codigo caso alguém queira ajudar.. valeuu

www.dynamus.economicojp.com/produtos/shop/paginacao.asp

<!-- #include file="../include/top.asp" -->
<%
pagina = Request.QueryString("p")
if pagina = "" then
pagina = 1
end if
'Seta a variavel pagina como a página em questão na paginação

registros = 5
'Seta o número de registros por pagina

set RS = Server.Createobject("AdoDB.RecordSet")
set RS.ActiveConnection = conn
RS.cursortype = 3
RS.pagesize = registros

StrSQL = "select * from Items where tipo=""calca"""
RS.Open StrSQL

if RS.EOF then
%><font face="Arial" size="2">Sua pesquisa não retornou nenhum resultado</font><%
else
RS.absolutepage = pagina
if RS.EOF then
%><font face="Arial" size="2">Sua pesquisa não retornou nenhum resultado</font><%
fim = -1
end if
xx = 0
while NOT RS.EOF AND xx < RS.pagesize
xx = xx + 1
%>

<table width="776" height="55">
      <tr> 
        <td height="86" width="384"> 
          <form method=get action=DETALHES.ASP>
            <table width="26%" height="86" border="0">
              <tr> 
                <td width="30%" height="82" valign="middle"> 
                  <div align="center"><img src="http://www.dynamus.economicojp.com/produtos/shop/uploads/<%=rs("ImageDesc")%>" width="75" height="130" border="0"></div>
                </td>
                <td width="70%" height="82"> 
                    <table width="195" border="1" align="left" cellpadding="2" cellspacing="0" bordercolor="#FFFFFF">
                      <tr> 
                        <td bgcolor="#FFFFFF" height="10" width="187"><span class="style16"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs("ItemName")%></font></span></td>
                      </tr>
                      <tr> 
                        <td bgcolor="#ffffff" height="18" width="187"> 
                          <p align="LEFT" class="style17"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><span class="style20"><strong><span class="style19"> 
                            <input type="HIDDEN" name="NOME" value="<%=rs("ItemName")%>">
                            <input type="HIDDEN" name="desc" value="<%=rs("Itemdesc")%>">
                            <input type="HIDDEN" name="image" value="<%=rs("ImageDesc")%>">
                            <input type="HIDDEN" name="color" value="<%=rs("cores")%>">
                            <input type="HIDDEN" name="tamam" value="<%=rs("tamanho")%>">
                            <input type="HIDDEN" name="refe" value="<%=rs("ref")%>">
                            <input type="submit" name="Submit" value="Ver Detalhes">
                            </span></strong></span> </font>
                        </td>
                      </tr>
                    </table>
                </td>
              </tr>
            </table>
          </form>
        </td>
        <td height="86" width="380"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="http://www.dynamus.economicojp.com/"> 
          </a> </font> 
<%
    rs.movenext
  %><form method=get action=DETALHES.ASP>
            <table width="26%" height="86" border="0">
              <tr> 
                <td width="30%" height="82" valign="middle"> 
                  <div align="center"><img src="http://www.dynamus.economicojp.com/produtos/shop/uploads/<%=rs("ImageDesc")%>" width="75" height="130" border="0"></div>
                </td>
                <td width="70%" height="82"> 
                    <table width="195" border="1" align="left" cellpadding="2" cellspacing="0" bordercolor="#FFFFFF">
                      <tr> 
                        <td bgcolor="#FFFFFF" height="10" width="187"><span class="style16"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs("ItemName")%></font></span></td>
                      </tr>
                      <tr> 
                        <td bgcolor="#ffffff" height="18" width="187"> 
                          <p align="LEFT" class="style17"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><span class="style20"><strong><span class="style19"> 
                            <input type="HIDDEN" name="NOME" value="<%=rs("ItemName")%>">
                            <input type="HIDDEN" name="desc" value="<%=rs("Itemdesc")%>">
                            <input type="HIDDEN" name="image" value="<%=rs("ImageDesc")%>">
                            <input type="HIDDEN" name="color" value="<%=rs("cores")%>">
                            <input type="HIDDEN" name="tamam" value="<%=rs("tamanho")%>">
                            <input type="HIDDEN" name="refe" value="<%=rs("ref")%>">
                            <input type="submit" name="Submit" value="Ver Detalhes">
                            </span></strong></span> </font>
                        </td>
                      </tr>
                    </table>
                </td>
              </tr>
            </table>
          </form></td></tr></table>
              <%

rs.cachesize = 1
wend
end if

if fim = "" then

anterior = pagina - 1
proxima = pagina + 1

if anterior <> 0 then
%><%

end if

RS.Close
Conn.Close

%><a href="<%=request.servervariables("script_name")%>?p=<%=anterior%>">Página Anterior</a> - <%
end if

%><a href="<%=request.servervariables("script_name")%>?p=<%=proxima%>">Próxima Página</a>

Editado Dezembro 9, 2004 por cyberalexxx

cyberalexxx · Dezembro 9, 2004

Dei uma olhada rapida no código e acho q só esta faltando um Rs.MoveNext antes do wend.

Uma outra observação é que quando voce da um Rs.MoveNext para ir para o segundo registro da linha, voce não faz nenhum tipo de comparação se não é o fim do arquivo e já vai direto para a exibição dos dados e isso pode trazer problemas.

[]'s

hermoso007 · Dezembro 9, 2004

mudei e o codigo ficou perfeito na 1 pagina, porem, na segunda ela repete os ultimos 5 registros da primeira...

cyberalexxx · Dezembro 9, 2004

Voce esta exibindo 10 registros na pagina e o seu PageSize esta igual a 5 que é valor da variavel registros, altere o valor desta variavel para 10.

hermoso007 · Dezembro 9, 2004

Se eu coloco pagesize = 10, são exibidos 20 registros por pagina. O codigo pelo visto esta interpretando cada linha como um registro

cyberalexxx · Dezembro 9, 2004

quando voce usa o Rs.MoveNext para ir para a segunda coluna voce deve somar + 1 no contador xx e não esquece de verificar se esta no fim do arquivo.

[]'s

hermoso007 · Dezembro 9, 2004

me desculpe, mas não entendi... veja se é isso

</table>

</form>

</td>

</a> </font>

<% rs.movenext

xx = xx + 2%>

<tr>

cyberalexxx · Dezembro 9, 2004

O correto seria xx = xx + 1

Na verdade a lógica que voce esta usando para exibição de duas colunas não é a mais recomendada pois tem muito código desnecessário no seu código, tenta isso aki:

<!-- #include file="../include/top.asp" -->
<%
pagina = Request.QueryString("p")
if pagina = "" then
pagina = 1
end if
'Seta a variavel pagina como a página em questão na paginação

registros = 10
'Seta o número de registros por pagina

set RS = Server.Createobject("AdoDB.RecordSet")
set RS.ActiveConnection = conn
RS.cursortype = 3
RS.pagesize = registros

StrSQL = "select * from Items where tipo=""calca"""
RS.Open StrSQL

if RS.EOF then
%><font face="Arial" size="2">Sua pesquisa não retornou nenhum resultado</font><%
else
RS.absolutepage = pagina
if RS.EOF then
%><font face="Arial" size="2">Sua pesquisa não retornou nenhum resultado</font><%
fim = -1
end if
xx = 0%>

<table width="776" height="55">
     <tr> 
<%
while NOT RS.EOF AND xx < RS.pagesize
xx = xx + 1
%>


       <td height="86" width="384"> 
         <form method=get action=DETALHES.ASP>
           <table width="26%" height="86" border="0">
             <tr> 
               <td width="30%" height="82" valign="middle"> 
                 <div align="center"><img src="http://www.dynamus.economicojp.com/produtos/shop/uploads/<%=rs("ImageDesc")%>" width="75" height="130" border="0"></div>
               </td>
               <td width="70%" height="82"> 
                   <table width="195" border="1" align="left" cellpadding="2" cellspacing="0" bordercolor="#FFFFFF">
                     <tr> 
                       <td bgcolor="#FFFFFF" height="10" width="187"><span class="style16"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs("ItemName")%></font></span></td>
                     </tr>
                     <tr> 
                       <td bgcolor="#ffffff" height="18" width="187"> 
                         <p align="LEFT" class="style17"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><span class="style20"><strong><span class="style19"> 
                           <input type="HIDDEN" name="NOME" value="<%=rs("ItemName")%>">
                           <input type="HIDDEN" name="desc" value="<%=rs("Itemdesc")%>">
                           <input type="HIDDEN" name="image" value="<%=rs("ImageDesc")%>">
                           <input type="HIDDEN" name="color" value="<%=rs("cores")%>">
                           <input type="HIDDEN" name="tamam" value="<%=rs("tamanho")%>">
                           <input type="HIDDEN" name="refe" value="<%=rs("ref")%>">
                           <input type="submit" name="Submit" value="Ver Detalhes">
                           </span></strong></span> </font>
                       </td>
                     </tr>
                   </table>
               </td>
             </tr>
           </table>
         </form>
       </td>
     
<%
if xx mod 2 = 0 then%>
   </tr></table><table width="776" height="55">
     <tr>
<%end if%>
   
rs.movenext
rs.cachesize = 1
wend %>
</table>
<%end if

if fim = "" then

anterior = pagina - 1
proxima = pagina + 1

if anterior <> 0 then
%><%

end if

RS.Close
Conn.Close

%><a href="<%=request.servervariables("script_name")%>?p=<%=anterior%>">Página Anterior</a> - <%
end if

%><a href="<%=request.servervariables("script_name")%>?p=<%=proxima%>">Próxima Página</a>

OBS: fiz meio na pressa talvez precise de alguns ajustes da uma olhada.

hermoso007 · Dezembro 9, 2004

valeueuuuuuuuuu brother... agora estah funcionando perfeitamente.... brigadu mesmo hein....

cyberalexxx · Dezembro 9, 2004

beleza!!

To fechando o tópico!!

Caso precise mande PM para alguém da moderação que o tópico é reaberto.

[]'s

Cyberalexxx

Entrar

Paginacao Com 2 Registros Por Linha

Pergunta

hermoso007

Link para o comentário

Compartilhar em outros sites

9 respostass a esta questão

Posts Recomendados

cyberalexxx

Link para o comentário

Compartilhar em outros sites

hermoso007

Link para o comentário

Compartilhar em outros sites

cyberalexxx

Link para o comentário

Compartilhar em outros sites

hermoso007

Link para o comentário

Compartilhar em outros sites

cyberalexxx

Link para o comentário

Compartilhar em outros sites

hermoso007

Link para o comentário

Compartilhar em outros sites

cyberalexxx

Link para o comentário

Compartilhar em outros sites

hermoso007

Link para o comentário

Compartilhar em outros sites

cyberalexxx

Link para o comentário

Compartilhar em outros sites

Estatísticas dos Fóruns

Navegação

Atividades