listando por coluna tenho uma mas nao com paginação, vejam!

[Carlos Moreira 0]

Olá pessoal estou precisando de uma paginação em coluna tipo a do google imagens, tenho essa abaixo mas ela apenas resgata do banco de dados mas nao tem paginação, alguem teria alguma pra me passar, ou tentar aclopar uma paginação nesse código?

 

 

 

<!--#include file="config.asp" -->				  <%Call abre_conexao(ConnString,Conn)categoria = REQUEST.QUERYSTRING("categoria")Set RS = Server.CreateObject("ADODB.Recordset") msql = "SELECT * FROM produtos where categoria1 = '"& categoria & "' and aprovado <> 0 order by id desc"Set RS.activeconnection = Conn 'Verifica se tem registro, se nao tiver exibe que não temRS.Open msql, Conn,3,3%><table width="181" border="0" align="center" cellpadding="7" cellspacing="7">					  <tr> 						<%Dim contador contador = 1 maxcol = 4	'<-- numero de registros por colunasdo while not RS.eof%>						<%  	if contador <= maxcol then %>						<td valign="top"><table width="10" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FAE3A9">							<tr> 							  <td> </td>					  </tr>					</table>						  <table width="100%" border="0" cellspacing="1" cellpadding="1">							<tr> 							  <td><div align="center" class="texto"> 								  <div align="center" class="texto"><span class="texto2"><strong>Ref.</strong></span> 									<%=RS("referencia")%></div>								</div></td>							</tr>							<tr>							  <td class="textop"><%=(LEFT(RS("descricao"), 20) & "")%>...<a href="#desc" class="dcontexto"> 								Leia Mais <span><%= RS("descricao")%></span></a></td>							</tr>							<tr> 							  <td align="center"> <input type="text" name="product" size="2" value="1"> 							  </td>							</tr>							<tr> 							  <td align="center"><a href="javascript:addtocart(<%=count%>,<%=RS("id")%>);" class="texto">INCLUIR</a></td>							</tr>						  </table></td>						<% 	  contador = contador + 1 	else %>					  </tr>					  <tr> 						<td valign="top"><table width="10" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FAE3A9">							<tr> 							  <td> </td>							</tr>						  </table>						  <table width="100%" border="0" cellspacing="1" cellpadding="1">							<tr> 							  <td><div align="center" class="texto"> 								  <div align="center" class="texto"><span class="texto2"><strong>Ref.</strong></span> 									<%=RS("referencia")%></div>								</div></td>							</tr>							<tr>							  <td class="textop"><%=(LEFT(RS("descricao"), 20) & "")%>...<a href="#desc" class="dcontexto"> 								Leia Mais <span><%= RS("descricao")%></span></a></td>							</tr>							<tr> 							  <td align="center"> <input type="text" name="product2" size="2" value="1"> 							  </td>							</tr>							<tr> 							  <td align="center"><a href="javascript:addtocart(<%=count%>,<%=RS("id")%>);" class="texto">INCLUIR</a></td>							</tr>						  </table></td>						<% contador = 2 end if RS.movenext loop 'completa as colunas do while contador <= maxcol %>						<td> </td>						<%contador = contador + 1 loop%>					  </tr>					  <%RS.Close Set RS = Nothing Call fecha_conexao() %>					  <%end if%>					</table>

[Fernando_Bittencourt 0]

http://forum.imasters.com.br/index.php?sho...mp;#entry141006