repeticao em loop

[desisto 0]

tenho uma tabela que recebe o id de outra tabela...

+- assim

 

1ª tabela sao os carros cadastrados

2ª tabela recebe id de carros

 

nessa 2ª tabela entra o id dos carros na lista do usuario, que exibe assim:

 

importado:

bmw, alfa romeo, lada

 

nacionais:

vw, ford, fiat

 

e pra isso eu fiz um loop, que ve na lista do usuario o id do carro e no loop vai buscar o modelo do carro na respectiva tabela

 

 

o problema:

a cada exibicao do carro, esta repetindo o modelo, ficando assim:

 

importado:

bmw

importado:

alfa romeo

importado:

lada

 

nacionais:

vw

nacionais:

ford

nacionais:

fiat

 

como posso fazer pra mostrar o modelo apenas 1 vez antes do carro?

 

o codigo:

 

Conecta()
bd = "SELECT * FROM tabela1 WHERE id='"&id&"'"
Set rs = conn.execute(bd)
	if not rs.eof then
		while Not rs.eof
			dim bd_proximo,rs_proximo
			bd_proximo = "SELECT * FROM tabela2 WHERE id='"&rs("id")&"'"
			Set rs_proximo = conn.execute(bd_proximo)
				if not rs_proximo.eof then
					while Not rs_proximo.eof
'						response.Write("<li class=""proximo_chamada"">"&rs_proximo("modelo")&"</li>")
						response.Write("<li class=""proximo""><a href=""#"">"&rs_proximo("carro")&"</a></li>")
					rs_proximo.movenext
					wend
					rs_proximo.close
				end if
			Set rs_proximo = Nothing
			Set bd_proximo = Nothing
		rs.movenext
		wend
		rs.close
	end if
Set RS = Nothing
BDescon()

[desisto 0]

cd a resposta do ted'k?

ia testar a conexao agora...

 

sumiu?

[Jow Xavier 0]

Só você tirar do loop ...

 

Conecta()
bd = "SELECT * FROM tabela1 WHERE id='"&id&"'"
Set rs = conn.execute(bd)
	if not rs.eof then
		while Not rs.eof
			dim bd_proximo,rs_proximo
			bd_proximo = "SELECT * FROM tabela2 WHERE id='"&rs("id")&"'"
			Set rs_proximo = conn.execute(bd_proximo)
				if not rs_proximo.eof then
						response.Write("<li class=""proximo_chamada"">"&rs_proximo("modelo")&"</li>")
				 while Not rs_proximo.eof
						response.Write("<li class=""proximo""><a href=""#"">"&rs_proximo("carro")&"</a></li>")
					rs_proximo.movenext
					wend
					rs_proximo.close
				end if
			Set rs_proximo = Nothing
			Set bd_proximo = Nothing
		rs.movenext
		wend
		rs.close
	end if
Set RS = Nothing
BDescon()