Jump to content
Fórum Script Brasil
  • 0

paginacao de produtos


claytonprog

Question

Pessoal! Tenho esse código aqui tá funcionando belza mais preciso fazer uma páginação, alguém poderia ajudar a adaptar:

<tr>
                            <td><tr><br>
    <td height="156" width="412" style="border-style:solid; border-width:1px; "><font color="#000000"><%cont = 1%>

<table height="101" width="399" cellspacing="4" style="border-collapse: collapse" cellpadding="0">
    
<%         
           
       set rs = cn.execute("SELECT * From Products order by rnd(ProductID)")
            
                     
      %>
      
      <%
      
      if request.QueryString("cid") <> "" then
      
      set rs = cn.execute("Select * From Products Where CategoryID=" & request.QueryString("cid"))
      
      else

        'Response.Write "<font color='#0000FF'"
        'response.write "</p>"
        'Response.write "<br>Nenhum produto Cadastrado"

      
      end if
           
     
     %>
     
     <%
      
if RS.EOF then %>


<div align="center">
</font></font></font>
                                        <font color=#BF3200 face=verdana><b>
<font size="2"><br>Nenhum 
produto cadastrado</font></b></font><font face="Tahoma"><font size="2" color="#BF3200">
<% else %> 
      
      
<%End If %>       


<% While not rs.EOF %>



</font></font><font face="Tahoma" color="#289AD4">



<td width="133" style="border-style: none; border-width: medium"><a href="detalhes_produtos.asp?ID=<%=rs("productid")%>"style="text-decoration: none"><img src="images/products/<%=rs.fields("image")%>" width="100" height="86" alt="clique na imagem" ></a></td>
<td width="254" height="39" style="border-style:none; border-width:medium; "><font size="2" color="#00000" face="tahoma"><p align="justify"><%=rs.fields("productname")%></font><P>
<b>

           <% if rs("price") = "0,0" then %> 
                 <font size="2" color="#00000" face="tahoma">Preço Sob Consulta</font></b>
               
                  <% else %>
                  
                  <font size="2" color="#800000" face="tahoma">Preço:<%=FormatCurrency(rs.fields("price"),2)%></font>

                  <% end if %>
           </b><br>

</td>



<% If cont = 2 then %>

</tr>
<tr>

<%
cont = 1


Else


cont = cont + 1

End if

rs.MoveNext

wend


if cont = 2 then
%>

<tr>
<td height="1" width="133" style="border-style:none; border-width:medium; " align="center"></td>
<%Elseif contador = 1 then %>

<td height="1" width="254" style="border-top-style: none; border-top-width: medium; border-left-style:none; border-left-width:medium"></td>



<% End if %>

</tr>
<p></p>

</table></font>
    
                            </td>
</tr>

Preciso paginar pra ficar assim:

primeira 1 2 3 4 5 6 ultima

Link to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 0

Ted K'! Amigão este código seu ajudou bastante está funcionando aqui, porém eu preciso de uma coisinha que eu esqueci de mensionar, preciso que os dados apareçam em 4 colunas tipo o do Orkut.

Ex: Foto1 Foto2 Foto3 Foto 4

Está assim meu código adapatado do seu;

<tr>
  <td width="44%" height="30" bgcolor="#EBEBEB" class="classFonte01">&nbsp;<strong>Nome</strong>&nbsp;</td>
  <td width="47%" bgcolor="#EBEBEB" class="classFonte01">&nbsp;<strong>E-Mail</strong>&nbsp;</td>
</tr>
  <%
  conn.CursorLocation = 3
  Set rs = Server.CreateObject("Adodb.RecordSet")
  rs.Pagesize = 4
  rs.Open "SELECT * FROM tblperfil order by nome",conn

  If rs.Eof Then
  Response.Write("")
  Else
  PaginaAtual = CInt(Request.Querystring("Pages"))

  If PaginaAtual = 0 Then
  PaginaAtual = 1
  End If

  rs.AbsolutePage = PaginaAtual
  Num = rs.PageCount

  While Not rs.Eof And rs.AbsolutePage = PaginaAtual
  %>
<tr>
  <td height="22" bgcolor="#F7F7F7" class="classFonte01">&nbsp;<% Response.Write(rs("Nome")) %>&nbsp;</td>
  <td bgcolor="#F7F7F7" class="classFonte01">&nbsp;<% Response.Write(rs("cliques")) %>&nbsp;</td>
</tr>
  <%
  rs.MoveNext : Wend
  Anterior = PaginaAtual - 1
  Proximo = PaginaAtual + 1

  If Anterior <= 0 Then
  Anterior = 1
  End If

  If Proximo > rs.PageCount Then
  Proximo = rs.PageCount
  End If
  %>
<tr>
  <td height="30" colspan="2" align="right" bgcolor="#EBEBEB" class="classFonte01"><strong>Paginas:</strong>&nbsp;<%
  Jo = 1
  While Jo <= rs.PageCount

  If PaginaAtual = Jo Then
  Response.Write("["&Jo&"]&nbsp;&nbsp;")
  Else
  Response.Write("<a href=""comunidade.asp?Pages="&Jo&""" class=""classFonte01"" title=""P&aacute;gina "&Jo&""">"&Jo&"</a>&nbsp; ")
  End If
  Jo = Jo + 1
  Wend
  End If
%></td>
</tr>

Me dá uma força ai e faz a adaptação do código.

Desde já agradeço.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.1k
    • Total Posts
      651.8k
×
×
  • Create New...