Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

luizsnpjr

Problema com Paginção

Por , em ASP Clássico

Recommended Posts

luizsnpjr    0

luizsnpjr
Postado

Eu tenho este código e precisor fazer uma paginação.

quero 6 produtos por página...vamos dizer que tenho cadastrados 30 produtos, então seriam 5 páginas.

O que esta acontecendo é o seguinte, estão aparecendo os números no rodapé do site - (1 2 3 4 5) referente as páginas que tem - corretamente, só que se clico ná pagina 1

ela vai me dar um resultado e se eu clicar na página 2 ou 3 ou qualquer uma....vai me apresentar o mesmo resultado.

Alguém poderia me ajudar....preciso disso com o máximo de urgência...tenho que finalizar o site ainda esta semana e está faltando mais uma parte que ainda não tirei minha dúvida...mas farei um novo post só com esta outra dúvida.

 

agradeço desde já.

 

ASP
<%

Dim ident

PR = Request.QueryString("pr")

PAGE = Request.QueryString("pagina")

 

If PR = "" Then

 

If PAGE > 1 Then

 

        SQL = "SELECT * FROM PRODUTO WHERE Empresa = 2"

        Rs.Open SQL, Cn, 3, 1

 

        Z = True

        If Rs.Eof = False Then

                For I = 1 to PROD         ' o valor de PROD é 6...está em uma outra página....página de configuração padrão

                        If Rs.Eof = True Then Exit For

                        If Z = True Then

        %>

          <tr>

                <td width="10%" valign="top">

                <img border="0" src="encaixe/<%=Rs.Fields("Ref")%>.jpg" width="95" height="130"></td>

                <td width="40%" valign="top"><b>REF.: <i><%=Rs.Fields("Ref")%></i> </b>

                <p><%=Rs.Fields("Texto")%><br>

                <br>

                <b>                              <a href="default.asp?m=2&cat=2&pr=<%=Rs.Fields("Id")%>">veja +</a></b></td>

        <%

                        Else

        %>

                <td width="10%" valign="top">

                <img border="0" src="encaixe/<%=Rs.Fields("Ref")%>.jpg" width="95" height="130"></td>

                <td width="40%" valign="top"><b>REF.: <i><%=Rs.Fields("Ref")%></i> </b>

                <p><%=Rs.Fields("Texto")%><br>

                <br>

                <b>                              <a href="default.asp?m=2&cat=2&pr=<%=Rs.Fields("Id")%>">veja +</a></b></td>

          </tr>

        <%

                ident = Rs.Fields("Id")

                End If

                Z = Not Z

                Rs.MoveNext

                Next

 

        End If

       

        Rs.Close

 

Else

 

        SQL = "SELECT * FROM PRODUTO WHERE Empresa = 2"

        Rs.Open SQL, Cn, 3, 1

 

       

        Z = True

        If Rs.Eof = False Then

                For I = 1 to PROD

                If Rs.Eof = True Then Exit For

                If Z = True Then

        %>

          <tr>

                <td width="10%" valign="top">

                <img border="0" src="encaixe/<%=Rs.Fields("Ref")%>.jpg" width="95" height="130"></td>

                <td width="40%" valign="top"><b>REF.: <i><%=Rs.Fields("Ref")%></i> </b>

                <p><%=Rs.Fields("Texto")%><br>

                <br>

                <b>                              <a href="default.asp?m=2&cat=2&pr=<%=Rs.Fields("Id")%>">veja +</a></b></td>

        <%

                        Else

        %>

                <td width="10%" valign="top">

                <img border="0" src="encaixe/<%=Rs.Fields("Ref")%>.jpg" width="95" height="130"></td>

                <td width="40%" valign="top"><b>REF.: <i><%=Rs.Fields("Ref")%></i> </b>

                <p><%=Rs.Fields("Texto")%><br>

                <br>

                <b>                              <a href="default.asp?m=2&cat=2&pr=<%=Rs.Fields("Id")%>">veja +</a></b></td>

          </tr>

        <%

                ident = Rs.Fields("Id")

                End If

                Z = Not Z

                Rs.MoveNext

                Next

 

        End If

 

        Rs.Close

End If

 

End If

%>

</table>

Páginas:

<style>

<!--

a {text-decoration:none}

a:hover {text-decoration:underline; color:black}

a:active {text-decoration:none; color:black}

a:visited {text-decoration:underline; color:black}

-->

</style>

<%

'StringDeConexao = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("clientes.mdb")

'Set Conexao = Server.CreateObject("AdoDb.Connection")

'Conexao.Open StringDeConexao

 

'Set RS = Server.CreateObject("AdoDb.RecordSet")

nomepagina = "default.asp?"&LINK ' este LINK já está configurado em uma página principal pois é sempre chamada

registros = PROD

 

RS.CacheSize = registros

RS.PageSize = registros

 

SQL = "SELECT * FROM PRODUTO WHERE Empresa = 2 ORDER BY Id"

 

RS.Open SQl,Cn,3,3

 

If RS.Eof then

Response.Write("Nenhum registro encontrado.")

 

else

 

if Request.QueryString("pagina")="" then

pagina = 1

elseif cint(Request.QueryString("pagina"))<1 then

pagina = 1

elseif cint(Request.QueryString("pagina"))>RS.PageCount then

pagina = RS.PageCount

else pagina=Request.QueryString("pagina")

end if

end if

 

RS.AbsolutePage = pagina

 

contador = 0

 

While contador<registros and not RS.eof

 

response.Write Rs.Fields("Id") &"-"& Rs.Fields("Ref") &" / "

 

RS.MoveNext

 

contador = contador + 1

 

If RS.eof then

Response.Write("")

end if

 

Wend

 

for i=1 to RS.PageCount

 

response.Write("<a href="&nomepagina&"&pagina="&i&"&ident="&ident&">"&replace(i,pagina,"<font color=blue><b>"&i&"</b>")&"</a>  ")

 

Next

 

response.write ident

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

imediatamente antes desta parte

 

ASP
if Request.QueryString("pagina")="" then

pagina = 1

elseif cint(Request.QueryString("pagina"))<1 then

pagina = 1

elseif cint(Request.QueryString("pagina"))>RS.PageCount then

pagina = RS.PageCount

else pagina=Request.QueryString("pagina")

end if

end if

 

verifique o valor da Request.QueryString("pagina")

 

veja se esta vindo corretamente

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

acho que ele quis dizer que esta linha esta comentada

 

'Set RS = Server.CreateObject("AdoDb.RecordSet")

Compartilhar este post

Link para o post
Compartilhar em outros sites

luizsnpjr    0

luizsnpjr
Postado

Só uma pergunta....o meu código (o que vai mostrar os produtos) não deveria estar entre o código da paginação?

Por exe: após este trecho:

 

ASP
SQL = "SELECT * FROM PRODUTO WHERE Empresa = 2 ORDER BY Id"

 

RS.Open SQl,Cn,3,3

 

If RS.Eof then

Response.Write("Nenhum registro encontrado.")

 

else

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

voce nao pode deixar coxexoes ficarem abertas sem necessidade pois diminui a eficiencia do codigo alem de oder provocar erro de muitas conexoes sem na verdade ter este erro

Compartilhar este post

Link para o post
Compartilhar em outros sites

luizsnpjr    0

luizsnpjr
Postado

marioufpa....

você saberia me indicar uma outra paginação ou me explicar a lógica da paginação para quem sabe eu tentar fazer uma?

Eu peguei este código aqui no imasters mesmo e realmente funcionou, mas sei que tem algo errado, ele não retorna erro nenhum mas indiferente se estou na página 1 ou 2 ou 3 ou qualquer uma....os dados são os mesmos...

você reparou que eu tenho uma consulta acima do código da paginação? Pode ser isso?

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito