Ir para conteúdo

POWERED BY:

Arquivado

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

bydumoraes

Paginacao horizontal

Recommended Posts

Como faco para listar 8 tabelas na horizontal de modo que a cada vez que entra na pagina ele altera as imagens e dados? Alguem sabe onde encontro ou alguem pode me ajudar?

Compartilhar este post


Link para o post
Compartilhar em outros sites

a velho... nada impossível uma paginação "horizontal"... mas meio estranho..uhauha..mas....o f*** de exibição na horizontal eh q naum da muito pra reutilizar codigos.... sempre temos q criar um layout em html puro pra ter uma noção de como será a exibição e trabalhar em cima... tenta fazer algo no html e passa o link q o povo, acredito, da uma força de transformar isso num conteudo dinâmico, ok...fui,

Compartilhar este post


Link para o post
Compartilhar em outros sites

E ai valeu pela dica, mas consegui fui testando até encontrar algo que eu queria, que era apartir de um combox o cara escolhe o item que deseja listar os produtos e ele mostra nesse esquema posso escolher quantos registros eu quero mostrar... foi f*** mas ficou legal...code:<!--#include file="busca.asp"--><%qtdcolunas = 4 '---| quantidade de colunaslg_tab = 600 '---| largura da tabela 'total = rsCont("count") '---| atribuimos a quantidade de registros encontrados 'divisao = total / qtdcolunas '---| dividimos pela quantidade de colunas solicita lg_col = lg_tab / qtdcolunas '---| difinimos a largura de cada coluna IF rsCateg.eof Then response.write "Nenhum registro encontrado" Else y = 1 '---| contará a quantidade registros encontrados x = 1 '---| defini quant. de registros por coluna p = 1 '---| se for primeiro loop limite = qtdcolunas + 1 '---| quant de registros deve ser menor que "limite" '---| iniciamos a construção da tabela response.write "<table border='0' align='center' width='"& lg_tab &"'>" & chr(13) While not rsCateg.eofIF p = 1 Then '---| abrimos uma coluna, início do Loop response.write "<tr width='"& lg_col &"'>" & chr(13) p = 0 '---| zeramos o valor, não mais será o primeiro Loop End IF IF x < limite Then '---| equanto x for menor "limite" abre <td> e fecha </td>response.write "<td><img src='repres/"& rsCateg("image") & "' height=97><br><font face=arial size=1>"& rscateg("descprod")&"<br><a href='visuprod.asp?cod="& rscateg("id") &"'>ver +</a>"response.write "</td>" & chr(13)IF x = qtdcolunas And Not y = total Then '---| atingiu o número máximo de colunas? response.write "</tr>" & chr(13) IF y < total Then '---| se y for menor que "total", indica que pode abrir mais uma colunaresponse.write "<tr width='"& lg_col &"'>" & chr(13) End IF x = 1 Else '---| se não antingiu vamos para o próximo registro x = x + 1 End IF End IF '---| final de registro, devemos fechar a coluna IF y = total Then response.write "</tr>" & chr(13) End IF y = y + 1 '---| conta mais um no contador de registrosrsCateg.Movenext '---| próximo registro Wendresponse.write "</table>" '---| fechar tabela End IF'---| fechamos e destruidos os objetos abertos e criados rsCateg.Close 'rsCont.Close strConexao.close Set strConexao = nothingend if%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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