USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  ASP - Active Server Page
Voltar
Autor Assunto:  Novas dúvidas sobre tabela

SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 21/02/2005 12:23 hs            
Oi,
 
com o exemplo que recebi um tópico anterior, eu consegui implementar a mudança de página.
A questão é a seguinte, quando volto para a página 1, ele mostra os 5 primeiros registros conforme solicitado.
Mas quando avanço, ao invés de ser exibido apenas os próximos registros, ele adiciona aos registros já exibidos os novos registros que deveriam ser mostrados.
 
Alguém pode me dar uma dica do que está errado?
 
Grata
 
   
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
ENUNCIADA !
Postada em 21/02/2005 13:15 hs         

coloquei os comentários ...

 

<!--#include file="Conexao_bd.asp" -->
<%
  Dim SQL, rst, Contador, i, Pagina, Origem, Categoria
 Categoria = Request("Categoria") 'valor do parâmetro
 Pagina = trim(Request("Pag"))    'página a ser exibida
 SQL = "SELECT Filmes.[Codigo do filme], Filmes.[Codigo da categoria], Filmes.[Tipo produto], Categorias.[Nome da categoria], Filmes.[Nome do filme] FROM Categorias INNER JOIN Filmes ON Categorias.[Codigo da categoria] = Filmes.[Codigo da categoria] WHERE Filmes.[Codigo da categoria] = " & Categoria & " ORDER BY Categorias.[Nome da categoria], Filmes.[Nome do filme];"
 Set rst = server.createobject("adodb.recordset")
 rst.open SQL, vgdb, 1, 1
 if rst.eof then
   Response.Redirect("Default.asp")
 end if  
 if Pagina = "" then Pagina = 1 'se a página vier em branco mostra a primeira
 Contador = ((Pagina - 1) * 42 ) + 1 'registro inicial (exemplo página2: (2 -1) * 42 + 1 = 42 + 1 = 43 -> registro inicial = 43 )
 rst.pagesize = 42 'número de registros por página
 rst.absolutepage = Pagina 'página a ser motrada
%>

...

        <%
     while not rst.eof And Contador <= (rst.PageSize * Pagina)'enquanto não chegar no fim da tabela
    %>
        <tr>
          <td width="70%"><a href="Lista_Filme_Detalhes.asp?Codigo=<% = rst("Codigo do filme") %>" class="LinkPadraoLista">
            <% = rst("Nome do filme") %></td>
          <td width="30%"><font class="TextoPadraoPreto">
            <% = rst("Nome da categoria") %>
            </font></td>
        </tr>
        <%
      Contador = Contador + 1
      rst.movenext
     wend 
    %>

...

     <% 
      if rst.PageCount > 1 then 'se tiver mais de 1 página
       if Pagina = 1 then 'se for a página 1, mostra somente o link para a próxima
        Response.Write("<div align=" & "right" & "><a href="& "Consulta_Filme_Categoria_Resultado.asp?Pag=" & (Pagina + 1) & "&Categoria=" & Categoria & " class=" & "'LinkPadraoLista'" & "><strong>Próxima</strong></a></div>")
       else 'se não
        If (Pagina  + 1) > rst.pagecount then 'se a próxima página for maior que o número de página, mostra somente o link para a anterior
         Response.Write("<div align=" & "right" & "><a href="& "Consulta_Filme_Categoria_Resultado.asp?Pag=" & (Pagina - 1) & "&Categoria=" & Categoria & " class=" & "'LinkPadraoLista'" & "><strong>Anterior</strong></a></div>")
        elseif (Pagina  - 1) < 1 then 'se a página anterior for menor que 1 (estamos na pa´gina 1) mostra somente o link para a próxima
         Response.Write("<div align=" & "right" & "><a href="& "Consulta_Filme_Categoria_Resultado.asp?Pag=" & (Pagina + 1) & "&Categoria=" & Categoria & " class=" & "'LinkPadraoLista'" & "><strong>Próxima</strong></a></div>")
        else 'se não, mostra o link para a página anterior e para a próxima página
         Response.Write("<a href="& "Consulta_Filme_Categoria_Resultado.asp?Pag=" & (Pagina - 1) & "&Categoria=" & Categoria & " class=" & "'LinkPadraoLista'" & "><strong>Anterior - </strong></a>" & "<a href="& "Consulta_Filme_Categoria_Resultado.asp?Pag=" & (Pagina + 1) & "&Categoria=" & Categoria & " class=" & "'LinkPadraoLista'" & "><strong>Próxima</strong></a>")
        end if
       end if
      end if
      rst.close
      set rst = nothing
     %>

 
   

SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 22/02/2005 11:23 hs            
Mais uma vez obrigada
 
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página