Loop não está funcionando

[natalia 0]

Oi pessoal, eu tenho 2 loops no meu código, mas o segundo (<%= rsComp2("Conteudo")%>) não está funcionando. O meu código não dá erro mas as características dos produtos são iguais para todos. O que posso fazer?CheckProd = Request.Form("lista")strComp1 = " SELECT Categoria.Codigo_Cat, ... ... WHERE Produto.Codigo_Prod IN (" & CheckProd & ") "Call Open_cnSet rsComp1 = Conexao.Execute(strComp1)Ultimo_prod = rsComp1("Codigo_Prod")<% Do While Not rsComp1.EOFResponse.Write "<tr>"For P = 1 To 5 'aqui define qtos produtos mostrar por linhaIf rsComp1.EOF = True Then Exit ForResponse.Write "<td>"Response.Write "<table align='center' border='0' width='100%' cellpadding='1' cellspacing='0'>"Response.Write "<tr>"%><td><img src="<%= rsComp1("Logo")%>"></td><td><img src="<%= rsComp1("Imagem_Prod")&rsComp1("Codigo_Prod")&"_m.jpg"%>" border="0" width="100" height="80"></td><td><%= rsComp1("Nome_Prod")%></td>... <% strComp2 = " SELECT Prod_Caract.*, Caracteristica.* FROM Prod_Caract INNER JOIN Caracteristica "strComp2 = strComp2 & " ON Prod_Caract.Codigo_Caract = Caracteristica.Codigo_Caract "strComp2 = strComp2 & " WHERE Prod_Caract.Codigo_Prod = " & Ultimo_prodSet rsComp2 = Conexao.Execute(strComp2) Do While Not rsComp2.EOF%><td><%= rsComp2("Conteudo")%></td><%rsComp2.MoveNextLoop%> .. <%Response.Write "</tr>"Response.Write "</table>"Response.Write "</td>" rsComp1.MovenextNextResponse.Write "</tr>"Loop%>

[rOcKLoCo 0]

Tem como você mostrar isso no ar?falows

[alphamek 2]

E ae brother.. Problema é o seguinte. você não está fechando o 1º Loop. então o LOOP que está abaixo do 2º Record Set do seu código não irá funcionar. E fora isso, que deste modo seu código não passará realmente erro, pois ele irá funcionar, mais não com todos os elementos. Feche o 1º Loop e depois o 2º. Isso irá resolver. Do While Not rsComp1.EOF rsComp1("Conteudo") rsComp1.MoveNext Loop Do While Not rsComp2.EOF rsComp2("Conteudo") rsComp2.MoveNext Loop QQ problema posta ae ?.. Abraços,

[alphamek 2]

Já Tô acostumado a falar só com cueca, então é vicio falar Brother. Mais NATALIA, é isso beleza. Um abraço garotinha,

[natalia 0]

Oi Rodrigo.Então eu coloquei o loop logo após o rsComp1.MoveNext, mas dá esse erro:Erro de compilação do Microsoft VBScript (0x800A040E)'loop' sem 'do'/goone/produto/prod_compare02.asp, line 326Loop<%rsComp2.MoveNextLoop %> <td>'Aqui tem algumas tabelas</tr><%Response.Write "</tr>"Response.Write "</table>"Response.Write "</td>"rsComp1.MoveNextLoopNextResponse.Write "</tr>" %>Só funciona assim:<%Response.Write "</tr>"Response.Write "</table>"Response.Write "</td>"rsComp1.MovenextNextResponse.Write "</tr>" Loop %>Mas aí o segundo loop não funciona, todos os produtos ficam c/ os mesmos dados.O que fazer?