Loop

[shumi 0]

Fiz assm coloquei o "rs" em loop tb, pois ele que puxar os estabelecimentos veja:

<table width="573" border="1"><%Sql = "Select codbar from cad_bares where carteira ='"&Session("login")&"'"Set rs = Conexcao.Execute(Sql)Sql2 = "Select o_hexa_e_nosso,vai_aquecendo,terceiro_tempo,clube_dos_tecnicos from mix where codbar ="&rs("codbar")Set rs2 = Conexcao.Execute(Sql2)Sql3 = "Select adesivo_de_banheiro,bolacha_de_chopp,flamula,bandeirola,jogo_americano,camiseta,mobile,moldura_para_tv,moldura_para_telao from merchandising where codbar ="&rs("codbar")Set rs3 = Conexcao.Execute(Sql3)Sql4 = "Select status2 from status where codbar="&rs("codbar")Set rs4 = Conexcao.Execute(Sql4)' Inicio do loop%><%while not rs4.EofWhile not rs.EOF%><tr><td><span class="texto10"><%=rs("codbar")%></span></td><%IF rs4.eof ThenResponse.write("<td width='100'><span class='texto10'><center>Nenhuma informação encontrada</center></span></td>")ElseIf rs4("status2") = 1 ThenResponse.write("<td width='100'><span class='texto10'><center>Negociação</center></span></td>")ElseResponse.write("")If rs4("status2") = 2 ThenResponse.write("<td width='100'><span class='texto10'><center>Negociado</center></span></td>")ElseResponse.write("")If rs4("status2") = 3 ThenResponse.write("<td width='100'><span class='texto10'><center>Cancelado</center></span></td>")ElseResponse.write("")End IFEnd IFEnd IFEnd IF%><%while not rs3.EofIF rs3.eof ThenResponse.write("<td width='100'><span class='texto10'><center>Nenhuma informação encontrada</center></span></td>")ElseIF rs3("adesivo_de_banheiro") > 0 ThenResponse.write("<td width='100'><span class='texto10'><center>Adesivo de banheiro</center></span></td>")ElseResponse.write("")End IfIf rs3("bolacha_de_chopp") > 0 ThenResponse.write("<td width='100'><span class='texto10'><center>Bolacha de chopp</center></span></td>")ElseResponse.write("")End IfIf rs3("flamula") > 0 ThenResponse.write("<td width='100'><span class='texto10'><center>Flâmula</center></span></td>")ElseResponse.write("")End IfIf rs3("bandeirola") > 0 ThenResponse.write("<td width='100'><span class='texto10'><center>Bandeirola</center></span></td>")ElseResponse.write("")End IfIf rs3("jogo_americano") > 0 ThenResponse.write("<td width='100'><span class='texto10'><center>Jogo americano</center></span></td>")ElseResponse.write("")End IfIf rs3("camiseta") > 0 ThenResponse.write("<td width='100'><span class='texto10'><center>Camiseta</center></span></td>")ElseResponse.write("")End IfIf rs3("mobile") > 0 ThenResponse.write("<td width='100'><span class='texto10'><center>Móbile</center></span></td>")ElseResponse.write("")End IfIf rs3("moldura_para_tv") > 0 ThenResponse.write("<td width='100'><span class='texto10'><center>Moldura para TV</center></span></td>")ElseResponse.write("")End IfIf rs3("moldura_para_telao") > 0 ThenResponse.write("<td width='100'><span class='texto10'><center>Moldura para telão</center></span></td>")ElseResponse.write("")End IFEnd IF%><%while not rs2.Eof%><%IF rs2.eof ThenResponse.write("<td width='100'><span class='texto10'><center>Nenhuma informação encontrada</center></span></td>")ElseIf rs2("o_hexa_e_nosso") > 0 ThenResponse.write("<td width='100'><center><span class='texto10'>O Hexa é Nosso</span></center></td>")ElseResponse.write("")End IfIf rs2("vai_aquecendo") > 0 ThenResponse.write("<td width='100'><center><span class='texto10'>Vai Aquecendo</span></center></td>")ElseResponse.write("")End IfIf rs2("terceiro_tempo") > 0 ThenResponse.write("<td width='100'><center><span class='texto10'>Terceiro Tempo</span></center></td>")ElseResponse.write("")End IfIf rs2("clube_dos_tecnicos") > 0 ThenResponse.write("<td width='100'><center><span class='texto10'>Clube dos Técnicos</span></center></td>")ElseResponse.write("")End IFEnd IFrs2.MoveNextWendrs3.MoveNextWend%></tr><%rs.MoveNextWendrs4.MoveNextWend%></table>

ai aconteceu de exibir todos os estabelecimentos e todos os dados de apenas 1 estabelecimento

dos outros não aparece nada além do cod.

[shumi 0]

Pra testar eu estava tirando a SQL que resgata o cod estabelecimento.

ai fiz assim:

 

<table width="573" border="1"><%'Sql = "Select codbar from cad_bares where carteira ='"&Session("login")&"'"'Set rs = Conexcao.Execute(Sql)Sql2 = "Select o_hexa_e_nosso,vai_aquecendo,terceiro_tempo,clube_dos_tecnicos from mix"' where codbar ="&rs("codbar")Set rs2 = Conexcao.Execute(Sql2)Sql3 = "Select adesivo_de_banheiro,bolacha_de_chopp,flamula,bandeirola,jogo_americano,camiseta,mobile,moldura_para_tv,moldura_para_telao from merchandising"' where codbar ="&rs("codbar")Set rs3 = Conexcao.Execute(Sql3)Sql4 = "Select status2 from status"' where codbar="&rs("codbar")Set rs4 = Conexcao.Execute(Sql4)' Inicio do loop%><tr><td><span class="texto10">teste<%'=rs("codbar")%></span></td><%while not rs4.Eof'While not rs.EOF%><%IF rs4.eof ThenResponse.write("<td width='100'><span class='texto10'><center>Nenhuma informação encontrada</center></span></td>")ElseIf rs4("status2") = 1 ThenResponse.write("<td width='100'><span class='texto10'><center>Negociação</center></span></td>")ElseResponse.write("")If rs4("status2") = 2 ThenResponse.write("<td width='100'><span class='texto10'><center>Negociado</center></span></td>")ElseResponse.write("")If rs4("status2") = 3 ThenResponse.write("<td width='100'><span class='texto10'><center>Cancelado</center></span></td>")ElseResponse.write("")End IFEnd IFEnd IFEnd IF%><%while not rs3.EofIF rs3.eof ThenResponse.write("<td width='100'><span class='texto10'><center>Nenhuma informação encontrada</center></span></td>")ElseIF rs3("adesivo_de_banheiro") > 0 ThenResponse.write("<td width='100'><span class='texto10'><center>Adesivo de banheiro</center></span></td>")ElseResponse.write("")End IfIf rs3("bolacha_de_chopp") > 0 ThenResponse.write("<td width='100'><span class='texto10'><center>Bolacha de chopp</center></span></td>")ElseResponse.write("")End IfIf rs3("flamula") > 0 ThenResponse.write("<td width='100'><span class='texto10'><center>Flâmula</center></span></td>")ElseResponse.write("")End IfIf rs3("bandeirola") > 0 ThenResponse.write("<td width='100'><span class='texto10'><center>Bandeirola</center></span></td>")ElseResponse.write("")End IfIf rs3("jogo_americano") > 0 ThenResponse.write("<td width='100'><span class='texto10'><center>Jogo americano</center></span></td>")ElseResponse.write("")End IfIf rs3("camiseta") > 0 ThenResponse.write("<td width='100'><span class='texto10'><center>Camiseta</center></span></td>")ElseResponse.write("")End IfIf rs3("mobile") > 0 ThenResponse.write("<td width='100'><span class='texto10'><center>Móbile</center></span></td>")ElseResponse.write("")End IfIf rs3("moldura_para_tv") > 0 ThenResponse.write("<td width='100'><span class='texto10'><center>Moldura para TV</center></span></td>")ElseResponse.write("")End IfIf rs3("moldura_para_telao") > 0 ThenResponse.write("<td width='100'><span class='texto10'><center>Moldura para telão</center></span></td>")ElseResponse.write("")End IFEnd IF%><%while not rs2.Eof%><%IF rs2.eof ThenResponse.write("<td width='100'><span class='texto10'><center>Nenhuma informação encontrada</center></span></td>")ElseIf rs2("o_hexa_e_nosso") > 0 ThenResponse.write("<td width='100'><center><span class='texto10'>O Hexa é Nosso</span></center></td>")ElseResponse.write("")End IfIf rs2("vai_aquecendo") > 0 ThenResponse.write("<td width='100'><center><span class='texto10'>Vai Aquecendo</span></center></td>")ElseResponse.write("")End IfIf rs2("terceiro_tempo") > 0 ThenResponse.write("<td width='100'><center><span class='texto10'>Terceiro Tempo</span></center></td>")ElseResponse.write("")End IfIf rs2("clube_dos_tecnicos") > 0 ThenResponse.write("<td width='100'><center><span class='texto10'>Clube dos Técnicos</span></center></td>")ElseResponse.write("")End IFEnd IF%><%rs2.MoveNextWend%><%rs3.MoveNextWend%><%'rs.MoveNext'Wendrs4.MoveNextWend%><tr></table></center><!-- fim tabela promo --></div></td></tr></table>

e exibiu tudo, mas tudo em uma linha só! http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

Caramba não consigo acertar de jeito nenhum! http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

[shumi 0]

eu tirei os while e os movenext e tudo que envolve o loop e não exibe nada agora a não ser a palavra Teste que tinha colocado!

 

Que ruim fazer isso!

Cadastro é muito fácil agora relatório, até hoje não consegui fazer nenhum! http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

Como posso testar algo ou sei lá?

alguem tem uma ideia?

 

Valeu!