Apresentar Mais De 1 Produto Por Linha

[Gafanhoto]

Galera, é o seguinte...

Vamos pegar como exemplo um select tranquilo e fácil...

SELECT * FROM PRODUTOS

Quero apresentar 3 produtos por linha, e que depois ele pule pra próxima linha da tabela.

Sei que é usando FOR, mas já testei os exemplos da net e nenhum funcionou no meu caso.

Alguém aí pode me ajudar? Parece algo tão simples, mas eu NUNCA consegui fazer. :unsure:

[webdeveloper]

Tente assim:

oRs.Open "Select * From Produtos", oConn 'Faz a consulta

If Not oRs.EOF Then
   oRs.MoveFirst
   Do While Not oRs.EOF
      Response.Write oRs("Descricao") & " " & vbCrLf 'Mostra a descricao do produto

      oRs.MoveNext 'Move para o proximo produto

      If Not oRs.EOF Then 'Verifica se não acabou o recordset
         Response.Write oRs("Descricao") & " " & vbCrLf 'Mostra a descricao do outro produto

         oRs.MoveNext
      End If

      If Not oRs.EOF Then 'Verifica se não acabou o recordset
         Response.Write oRs("Descricao") & " " & vbCrLf 'Mostra a descricao do outro produto

         oRs.MoveNext
      End If
      Response.Write "<br />" & vbCrLf
   Loop
Else
   Response.Write "Pesquisa não encontrou registros!" & vbCrLf
End If

Veja se resolve seu problema e poste o resultado.

;)

[Gafanhoto]

SIMPLES, RÁPIDO E FUNCIONAL!!!!

Funcionou 100% ....

Obrigado pela força!!!! :lol:

[bareta]

eu costumo usar

colunas=3

sql="select * from tabela" set rs=conn.execute(sql)
if not rs.eof then

coluna=1
response.write "<table><tr><td>"
while not rs.eof

response.write rs("coluna")

if coluna=colunas then
response.write "</td></tr><tr><td>"
coluna=1
else
response.write "</td><td>"
coluna=coluna+1
end if

rs.movenext
wend
response.write "</td></tr></table>"
end if
rs.close
set rs=nothing

[Gafanhoto]

Funciona muito bem também!!

Valeu!!!!