Exibir todos os produtos em uma tabela...

[patyeugenia 0]

Pessoal vou tentar explicar MELHOR o q preciso exatamente!

 

Preciso exibir vários produto de uma loja. Gostaria que exibisse em uma tabela com 2 colunas e que continuasse em outra página!

 

Será que alguém pode me ajudar??

 

BRIGADÃO!

 

BJS PATY http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Generation 0]

Veja se ajuda:

 

Tutorial de Paginação:

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

 

 

Para exibir em Colunas pode fazer assim:

 

ASP

[*]<%

 

[*]Do While NOT rs.EOF 

 

[*]  If cont=0 Then

 

[*] Response.Write "<tr>"

 

[*]  End If

 

[*]  Response.Write "<td>"

 

[*]%>

 

[*]<table width="400" cellspacing="0" cellpadding="0">

 

[*] <tr> 

 

[*] <td>Produto:</td>

 

[*]  </tr>

 

[*]</table>

 

[*]<%

 

[*]Response.Write "</td>"

 

[*]cont=cont+1

 

[*]If cont=2 Then ' Definimos a Quantidade de colunas 

 

[*] Response.Write "</tr>"

 

[*] cont=0

 

[*]End If

 

[*]rs.MoveNext

 

[*]Loop

 

[*]%>

 

[]'s

[Kalmfs 0]

cara, tem como você explicar melhor o código? pq eu fiz e até funcionou a distribuição em colunas mas apareceu um grande espaço vazio antes do início dos registros.

tem idéia do q pode ser?

valei pelo código http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[explore 3]

Veja um registro que sempre deve ser visto quando a tabela for visualizada, ai você coloca um IF tipo:

 

ASP

[*]<%

 

[*]

 

[*]Do While NOT rs.EOF 

 

[*]

 

[*]if SeuRegistro <> "" then

 

[*]  If cont = 0 Then

 

[*]

 

[*] Response.Write "<tr>"

 

[*]

 

[*]  End If

 

[*]

 

[*]  Response.Write "<td>"

 

[*]

 

[*]%>

 

[*]

 

[*]<table width="400" cellspacing="0" cellpadding="0">

 

[*]

 

[*] <tr> 

 

[*]

 

[*] <td>Produto:</td>

 

[*]

 

[*]  </tr>

 

[*]

 

[*]</table>

 

[*]

 

[*]<%

 

[*]

 

[*]Response.Write "</td>"

 

[*]

 

[*]cont=cont+1

 

[*]

 

[*]If cont=2 Then ' Definimos a Quantidade de colunas 

 

[*]

 

[*] Response.Write "</tr>"

 

[*]

 

[*] cont=0

 

[*]

 

[*]End If

 

[*]  end if

 

[*]rs.MoveNext

 

[*]

 

[*]Loop

 

[*]%>

 

Se for o mesmo problema que o meu é isso ai!

[Kalmfs 0]

coloquei

If Recordset1.Fields.Item("nome") <> "" the

mas continuou um grande espaço vazio antes do início dos registros...

ASP

[*]

 

[*]<table width="95%" border="0" cellspacing="10" cellpadding="0">

 

[*] <tr align="center" valign="middle"> 

 

[*] <td height="103" align="center" valign="top"> 

 

[*]<%

 

[*]Do While NOT Recordset1.EOF 

 

[*]If Recordset1.Fields.Item("nome") <> "" then

 

[*]If cont=0 Then

 

[*]Response.Write "<tr>"

 

[*]End If

 

[*]Response.Write "<td>"

 

[*]%>

 

[*] <table width="100%" border="0" cellpadding="0" cellspacing="0">

 

[*] <tr align="right"> 

 

[*] <td height="21" colspan="3"><strong><font color="#006699" size="2" face="Geneva, Arial, Helvetica, sans-serif"> 

 

[*] <%=(Recordset1.Fields.Item("nome").Value)%> «</font></strong></td>

 

[*] </tr>

 

[*] <tr> 

 

[*] <td width="84" height="15" align="right"><strong><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"> 

 

[*] email: </font></strong></td>

 

[*] <td width="420" height="15" bgcolor="#DADADA"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"> 

 

[*]  <%=(Recordset1.Fields.Item("email").Value)%>

 

[*] </font></td>

 

[*] <td width="56" height="64" rowspan="4" align="center" valign="middle"><img src="imagens/foto_bola.jpg" width="51" height="64"></td>

 

[*] </tr>

 

[*] <tr> 

 

[*] <td height="15" align="right"><strong><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"> 

 

[*] série A: </font></strong></td>

 

[*] <td height="15" bgcolor="#EAEAEA"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"> 

 

[*]  <%=(Recordset1.Fields.Item("serieA").Value)%> </font></td>

 

[*] </tr>

 

[*] <tr> 

 

[*] <td height="15" align="right"><strong><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"> 

 

[*] série B: </font></strong></td>

 

[*] <td height="15" bgcolor="#DADADA"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"> 

 

[*]  <%=(Recordset1.Fields.Item("serieB").Value)%></font></td>

 

[*] </tr>

 

[*] <tr> 

 

[*] <td height="12" align="right"><strong><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"> 

 

[*] ranking: </font></strong></td>

 

[*] <td height="12" bgcolor="#EAEAEA"><font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"> 

 

[*]  EM CONSTRUÇÃO</font></td>

 

[*] </tr>

 

[*] </table>

 

[*]<%

 

[*]Response.Write "</td>"

 

[*]cont=cont+1

 

[*]If cont=2 Then ' Definimos a Quantidade de colunas 

 

[*]Response.Write "</tr>"

 

[*]cont=0

 

[*]End If

 

[*]End If

 

[*]Recordset1.MoveNext

 

[*]Loop

 

[*]%>

 

[*] </td>

 

[*] </tr>

 

[*] </table>

 

[*]

[explore 3]

O Campo Nome sempre terá que aparecer na pesquisa??No caso quem cria as colunas é a variavel CONT tenta definir ela como <>if cont <> 0 then.............end if

[Kalmfs 0]

n sei se deu pra você perceber no código mas o q se repete (o q eu tô tentando colocar em 2 colunas) n eh um registro único e sim uma tabela que contém vários registros dentro dela. O registro "nome" sempre aparecerá sim.

vou tentar o <> e posto se deu certo

valew pela ajuda cara http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

-------------EDITADO---------------

n deu certo n <_< agora os as tabelas q se repetem subiram... o espaço vazio sumiu porém onde deveria estar a primeira tabela ficou em branco (1ªcoluna) a primeira tabela apareceu na segunda coluna e tds as outras apareceram na primeira coluna

vlw

[Kalmfs 0]

aê galera

por falta de tempo tive q apelar pra uma extensão do DW chamada hlooper (horizontal looper) q resolveu perfeitamente os problemas. agora com mais tempo vou estudar o código e depois posto pra galera aqui.

quem quiser a extensão me manda um email.

valew pela ajuda de tds

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[explore 3]

Que extenção é essa nunca ouvi falar! pra q serve??