Ir para conteúdo

POWERED BY:

Arquivado

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

valdaloia

Como listar produtos um ao lado do outro

Recommended Posts

Olá pessoal, como faço p/ listar os produtos um ao lado do outro, em tres colunas. Do jeito que está neste código ele lista um a baixo do outro.Exemplo:produto1 produto2 produto3produto4 produto5 produto6 e assim por diante<% Option Explicit Dim Conexao, rsOutroProd, varCodProdSet Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open Application("StringConexaoODBC")Set rsOutroProd = Server.CreateObject("ADODB.Recordset")rsOutroProd.Open "SELECT Produto.*, Prod_Vitrine.* FROM Produto INNER JOIN Prod_Vitrine "&_" ON Produto.codigo_prod = Prod_Vitrine.codigo_prod WHERE Prod_Vitrine.codigo_vitrine=3 ", Conexao %> <html><head><title><%=Application("NomeLoja")%></title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body bgcolor="#FFFFFF" text="#000000"><table><% While Not rsOutroProd.EOF %><tr><td><img src="<%= rsOutroProd("Imagem_prod")%>"></td><td><%= rsOutroProd("nome_prod")%></td><td><%= FormatNumber(rsOutroProd("preco"),2)%> </td></tr><%rsOutroProd.MoveNextWendrsOutroProd.CloseConexao.CloseSet rsOutroProd = NothingSet Conexao = Nothing%></table></body></html>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Faça um "rs.movenext" entre 3 <td>, dê um <tr> e faça novamente. Já fiz isso quebrando em 3 linhas. Não esqueça de fazer uma verificação para que quando a célula ficar vazia, não deforme a tabela.ficou enrolado, né?...

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.