Paginação

[marciolvs 1]

:blink: Olá, Gostaria de saber se tem como aguem me mandar uma paginação , mas que lista 3 objetos ou fotos ai vai para a linha de baixo até chegar o fim do bd.Pq tenho um outro e não deu certo... Obrigado

[sublyer 0]

Da uma olhada no link abaixo e confirma se é isso mesmo que você quer e da um toque no e-mail que eu ti passo como fazer.

 

http://www.deltech.com.br/secoes/produtos/?cp=2&lin_id=81

[lord_damonie 0]

Gostaria que colocasse o codigo a disposição de todos...

[Salgado 4]

Façam uma busca aqui mesmo no fórum por REGISTRO EM COLUNAS. Ou leiam o tópico DUVIDAS FREQUENTES, lá tem a solução para isso.

[marciolvs 1]

o codigo é este a partir deste tenho que fazer com que ele liste as 3 colunas até o fim do bd...<!-- PAGINAÇÂO--> <% 'Efetuando a conexão com a base de dados criada -----------------------Set Conexao = Server.CreateObject("AdoDb.Connection") Conexao.provider="Microsoft.Jet.OLEDB.4.0" Conexao.connectionstring=Server.Mappath("admin/bdstudioringo.mdb") Conexao.open '--------------------------------------------------------------------------'Vamos criar o objeto Record Set -> neste caso é necessário declará-lo,'pois vamos utilizar algumas funções deste objeto Set RS = Server.CreateObject("adodb.recordset")RS.PageSize = 5 'quantidade de registros por página. Você pode alterar sem conforme precise.'Vamos fazer a busca na tabela contatosdim idid = request.querystring("id")SQL = "select * from Imagens WHERE id="&id RS.Open SQL,Conexao,3,3'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor 'que zero, se é maior que o número total de páginas, etc.IF RS.EOF then Response.Write "<b>Nenhum registro Encontrado</b><br>" Response.End 'paramos o programaELSE 'Definindo em qual pagina o visitante está IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> RS.PageCount then intpagina=RS.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IFEND IF'Fim das verificações de exceções'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta RS.AbsolutePage=intpagina' Inicia o contador que vai controlar os registros mostradosintrec=0'Enquanto o contador for menor que a quantidade de registros mostrados ou' não for o final do arquivo While intrec < RS.PageSize and not RS.EOF '------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO ----------------------- %> <table width="280" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="159"><div align="center"><a href="portfolio_det.asp?id=<%=rs("id")%>" target="_centro"><img src="Imagens/<%=rs("imag_p")%>" width="50" height="50" hspace="2" vspace="2" class="border"></a></div></td> </tr> </table><%'--------------------------------------------------------------------------------------------- RS.MoveNext ' Acrescenta +1 ao contador intrec=intrec+1 'Se for EOF (fim de arquivo), imprimir branco na tela IF RS.EOF then response.write " " END IFWend 'fim do loop'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. IF intpagina > 1 then %> <a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a> <% END IF'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página IF strcomp(intpagina,RS.PageCount) <> 0 then %> <a href="paginacao.asp?pagina=<%=intpagina + 1%>">Próxima</a> <% END IF%><!-- FIM DA PAGINAÇÃO -->[ASP]