paginacao de produtos

[claytonprog 0]

Pessoal! Tenho esse código aqui tá funcionando belza mais preciso fazer uma páginação, alguem 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 paginara pra ficar assim:

 

primeira 1 2 3 4 5 6 ultima

[Giancarlo Braga 0]

Olá amigo.

 

Acompanhe esse esquema de paginaçao:

http://forum.imasters.com.br/index.php?showtopic=259014

 

Abraços.

[Mário Monteiro 179]

é bem simples mesmo siga um dos exemplos que temos no forum

[claytonprog 0]

Pessoal fiz uma adapatação deste código e está funcionando , porém eu preciso que a pagianção apareça com os dados em 4 colunas tipo o do Orkut.

 

Ex: Foto1 Foto2 Foto3 Foto 4

 

segue o código:

 

<tr>
  <td width="44%" height="30" bgcolor="#EBEBEB" class="classFonte01"> <strong>Nome</strong> </td>
  <td width="47%" bgcolor="#EBEBEB" class="classFonte01"> <strong>E-Mail</strong> </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"> <% Response.Write(rs("Nome")) %> </td>
  <td bgcolor="#F7F7F7" class="classFonte01"> <% Response.Write(rs("cliques")) %> </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> <%
  Jo = 1
  While Jo <= rs.PageCount

  If PaginaAtual = Jo Then
  Response.Write("["&Jo&"]  ")
  Else
  Response.Write("<a href=""comunidade.asp?Pages="&Jo&""" class=""classFonte01"" title=""Página "&Jo&""">"&Jo&"</a>  ")
  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.

[Salgado 4]

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

 

Desde já agradeço.

Aí fica difícil!

 

Dê uma olhada aqui mesmo no tópico "Duvidas freqüentes" e veja o post sobre "Registros em Colunas" e adapte para seu caso.