Como fazer esse tipo de Loop?

[navegador 0]

Olá pessoal,

 

Vou tentar explicar resumidamente. É o seguinte:

 

Quero que a impressão na tela saia na seguinte estrutura:

 

Corsa Sedan

Foral de neblina

Air Barg

 

Astra

Alarme

Rodas Liga Leve

 

-------------------------------------------

Mais o código abaixo mostra de outra forma, o que há de errado nesse código?

Sei que o erro está no Loop. Mais não estoou conseguindo identificá-lo, segue o código:

 

<% Dim objRs, Sql, strConn

Sql = "Select tb_carro.cod_veic, tb_carro.valor, tb_carro.id_modelo, tb_carro.financiamento, "

Sql = Sql & "tb_modelo.id_mod, tb_modelo.cod_mod, tb_modelo.modelo, tb_acessorios.cod_carro, tb_acessorios.acess "

Sql = Sql & "FROM (tb_carro INNER JOIN tb_modelo "

Sql = Sql & "ON tb_carro.id_modelo = tb_modelo.id_mod) "

Sql = Sql & "INNER JOIN tb_acessorios "

Sql = Sql & "ON tb_acessorios.cod_carro = tb_carro.cod_veic"

 

objRs.open sql, strConn

 

While Not objRS.EOF

 

Response.write objRs("modelo") & "<br>"

Response.write objRs ("acess") & "<br>"

 

objRs.Movenext

Wend

%>

 

Link de exemplo de erro: http://www.dalhost.com.br/autoweb/

 

 

Grato desde já,

Alexandro.

[filipecrosk 0]

cara porque não faz um Select e depois outro Select???select carros mostra carros select informacoes mostra informacoes do carro

[Salgado 4]

A idéia é armazenar o modelo numa variável e testar se é igual ao do RecordSet, se não for você "imprime", fica +/- assim:

MODELO = ""
While Not objRS.EOF
IF MODELO <> objRS("modelo") THEN
Response.write objRs("modelo") & "<br>"
MODELO = objRS("modelo")
END IF
Response.write objRs ("acess") & "<br>"

objRs.Movenext
Wend

Testa esse.