Loop

[shumi 0]

Galera,

Estava fazendo um relatório e me deparei com um problema para fazer o Loop

 

Meu onde exibe as informações esta assim:

 

<center><span class="textocima">	  <%Sql = "Select codbar from cad_bares where praca='"&praca&"'"Set rscodbar = Conexcao.Execute(Sql)codbar = rscodbar("codbar")Sql = "Select * from cad_bares where codbar = '"&codbar&"'"Set rs = Conexcao.Execute(Sql)Sql2 = "Select * from promocoes where codbar = "&codbarSet rs2 = Conexcao.Execute(Sql2)Sql3 = "Select * from merchandising where codbar = "&codbarSet rs3 = Conexcao.Execute(Sql3)Sql4 = "Select * from status where codbar = "&codbarSet rs4 = Conexcao.Execute(Sql4)Sql5 = "Select * from perguntas where codbar = "&codbarSet rs5 = Conexcao.Execute(Sql5)Sql6 = "Select * from status_new where codbar = "&codbarSet rs6 = Conexcao.Execute(Sql6)%><br>Relatório do estabelecimento <%=rs("fantasia")%></span></center><br><br><center><table width="200" border="1">  <tr>	<td height="106">		<center>		  <table width="290" height="29" border="1">			<tr>			  <td width="290" height="23"><center>				  <span class="textorelatorio">Promoções participantes</span>			  </center></td>			</tr>		  </table>		</center>	  <center>		<table width="290" border="1">		  <tr>			<%If rs2("o_hexa_e_nosso") = True Then	Response.write("<td><img src='../o_hexa_e_nosso.jpg'></td>")Else	Response.write("")End IfIf rs2("vai_aquecendo") = True Then	Response.write("<td><img src='../vai_aquecendo.jpg'></td>")Else	Response.write("")End IfIf rs2("terceiro_tempo") = True Then	Response.write("<td><img src='../terceiro_tempo.jpg'></td>")Else	Response.write("")End IfIf rs2("clube_dos_tecnicos") = True Then	Response.write("<td><img src='../clube_dos_tecnicos.jpg'></td>")Else	Response.write("")End If%>		  </tr>		  <tr>			<%If rs2("o_hexa_e_nosso") = True Then	Response.write("<td><center><span class='texto10'>O Hexa é Nosso</span></center></td>")Else	Response.write("")End IfIf rs2("vai_aquecendo") = True Then	Response.write("<td><center><span class='texto10'>Vai Aquecendo</span></center></td>")Else	Response.write("")End IfIf rs2("terceiro_tempo") = True Then	Response.write("<td><center><span class='texto10'>Terceiro Tempo</span></center></td>")Else	Response.write("")End IfIf rs2("clube_dos_tecnicos") = True Then	Response.write("<td><center><span class='texto10'>Clube dos Técnicos</span></center></td>")Else	Response.write("")End If%>		  </tr>		</table>	  <center>		  <table width="290" border="1">			<tr>			  <td width="237"><center>				  <span class="textorelatorio">Material de Marchendising</span>			  </center></td>			</tr>		  </table>	  </center>	  <table border="1" width="290">		  <!-- Merchandising -->		  <tr>			<%If rs3("tipo1") <> "" Then	Response.write("<td><span class='texto10'>"&rs3("tipo1")&"</span></td>")	Response.write("<td><center><span class='texto10'>"&rs3("quantidade1")&"</span></center></td></tr>")Else	Response.write("")End IfIf rs3("tipo2") <> "" Then	Response.write("<tr><td><span class='texto10'>"&rs3("tipo2")&"</span></td>")	Response.write("<td><center><span class='texto10'>"&rs3("quantidade2")&"</span></center></td></tr>")Else	Response.write("")End IfIf rs3("tipo3") <> "" Then	Response.write("<tr><td><span class='texto10'>"&rs3("tipo3")&"</span></td>")	Response.write("<td><center><span class='texto10'>"&rs3("quantidade3")&"</span></center></td></tr>")Else	Response.write("")End IfIf rs3("tipo4") <> "" Then	Response.write("<tr><td><span class='texto10'>"&rs3("tipo4")&"</span></td>")	Response.write("<td><center><span class='texto10'>"&rs3("quantidade4")&"</span></center></td></tr>")Else	Response.write("")End IfIf rs3("tipo5") <> "" Then	Response.write("<tr><td><span class='texto10'>"&rs3("tipo5")&"</span></td>")	Response.write("<td><center><span class='texto10'>"&rs3("quantidade5")&"</span></center></td></tr>")Else	Response.write("")End IfIf rs3("tipo6") <> "" Then	Response.write("<tr><td><span class='texto10'>"&rs3("tipo6")&"</span></td>")	Response.write("<td><center><span class='texto10'>"&rs3("quantidade6")&"</span></center></td></tr>")Else	Response.write("")End IfIf rs3("tipo7") <> "" Then	Response.write("<tr><td><span class='texto10'>"&rs3("tipo7")&"</span></td>")	Response.write("<td><center><span class='texto10'>"&rs3("quantidade7")&"</span></center></td></tr>")Else	Response.write("")End IfIf rs3("tipo8") <> "" Then	Response.write("<tr><td><span class='texto10'>"&rs3("tipo8")&"</span></td>")	Response.write("<td><center><span class='texto10'>"&rs3("quantidade8")&"</span></center></td></tr>")Else	Response.write("")End IfIf rs3("tipo9") <> "" Then	Response.write("<tr><td><span class='texto10'>"&rs3("tipo9")&"</span></td>")	Response.write("<td><center><span class='texto10'>"&rs3("quantidade9")&"</span></center></td></tr>")Else	Response.write("")End IfIf rs3("tipo10") <> "" Then	Response.write("<tr><td><span class='texto10'>"&rs3("tipo10")&"</span></td>")	Response.write("<td><center><span class='texto10'>"&rs3("quantidade10")&"</span></center></td></tr>")Else	Response.write("")End IfIf rs3("tipo11") <> "" Then	Response.write("<tr><td><span class='texto10'>"&rs3("tipo11")&"</span></td>")	Response.write("<td><center><span class='texto10'>"&rs3("quantidade11")&"</span></center></td></tr>")Else	Response.write("")End IfIf rs3("tipo12") <> "" Then	Response.write("<tr><td><span class='texto10'>"&rs3("tipo12")&"</span></td>")	Response.write("<td><center><span class='texto10'>"&rs3("quantidade12")&"</span></center></td>")Else	Response.write("")End If%>		  </tr>		</table>	  <!--Inicio do Status-->		<center>		  <table border="1" width="290">			<tr>			  <td><center>				  <span class="textorelatorio">Status de negociação </span>			  </center></td>			</tr>		  </table>		</center>	  <center>		<table border="1" width="290">			<tr>			  <%If rs4("status2") <> "" Then	Response.write("<td><span class='texto10'>"&rs4("status2")&"</span></td>")Else	Response.write("")End If%>			</tr>		  </table>		<table border="1" width="290">			<tr>			  <td><center>				  <span class="textorelatorio">Status de Implantação </span>			  </center></td>			</tr>		  </table>	  </center>	  <center>		  <table border="1" width="290">			<tr>			  <%If rs6("status2") <> "" Then	Response.write("<td><span class='texto10'>"&rs6("status2")&"</span></td>")Else	Response.write("")End If%>			</tr>		  </table>	  </center>	  <!-- Perguntas AmBev-->		<center>		<table border="1" width="290">		  <tr>			<td><center>			  <span class="textorelatorio">Perguntas</span>			</center></td>		  </tr>		</table>	  <table border="1" width="290">		  <%If rs5("melhorprato") <> "" Then	Response.write("<tr><td><span class='texto10'>Qual o melhor prato do estabelecimento?</span></td>")	Response.write("<td><center><span class='texto10'>"&rs5("melhorprato")&"</span></center></td></tr>")Else	Response.write("")End IfIf rs5("diferencial") <> "" Then	Response.write("<tr><td><span class='texto10'>Qual o diferencial do estabelecimento?</span></td>")	Response.write("<td><center><span class='texto10'>"&rs5("diferencial")&"</span></center></td></tr>")Else	Response.write("")End IfIf rs5("estacionamento") <> "" Then	Response.write("<tr><td><span class='texto10'>Possui estacionamento?</span></td>")	Response.write("<td><center><span class='texto10'>"&rs5("estacionamento")&"</span></center></td></tr>")Else	Response.write("")End If%>		</table></table></center>

Como vcs podem ver tem várias SQLs como faço para fazer o loop exatamente no começo antes do <center> e acabar extamente depois do ultimo </center>???

 

Eu sei fazer aqeles simples

tipo

<%While not rs.EOF%>

<%=rs("Assim!")%>

<%rs.MoveNext

Wend%>

 

Mas assim complexo não faço ideia!!

Podem me dar um help???

 

Valeu

[shumi 0]

Eu tenho que fazer um loop de cada vez, ou tenho que fazer um geral??? :blink:

[Salgado 4]

Cara, tudo depende do que você quer fazer.

[shumi 0]

eu quero que exiba um reletório geral separado por estabelecimentos.

Esse meu script que postei, está exibindo certinho o relatório de apenas um estabelecimento.

Eu faço esse assim. na tela anterior tem um select onde tem as praças ai o users escolhe por exemplo RJ e nesse meu script que postei eu faço um request.form e resgato a praca ai logo de cara faço um select que com a praca eu pego os codbar de todos que tem em RJ e quero que exiba o relatório de todos que tem no RJ, por exemplo.

Nessa parte que postei exibe até o nome do estabelecimento.

Agora o que queria fazer é um loop geral que ficasse as informações do estabelecimento B embaixo das informações do estabelecimento A e assim vai indo...

Mas não sei nem por onde começar para fazer esse loop http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

Poderia me dar uma luz?

 

Abraços

[shumi 0]

Tem como sei la jogar toda minha parte que esta certa dentro de uma variavel e fazer o loop dela??? :blink:

[shumi 0]

Tentei unir todas as SQLs, para ter apenas uma var e ficar fácil fazer o loop, mas não fui feliz em minha ação... :wacko:

[shumi 0]

Galera,

To quebrando a cabeça agora com esse loop.

Só falta isso pra eu ir embora! rs

Dá uma força ai vai?!?!? rs

 

vejam preciso fazer um loop mas não sei como faço meu while...

 

<!-- LOOPPPPPPPPPPPPPP --><center><span class="textocima">	  <%if praca <> "..." thenSql = "Select codbar from cad_bares where praca='"&praca&"'"Set rscodbar = Conexcao.Execute(Sql)codbarrr = rscodbar("codbar")Sql = "Select * from cad_bares where codbar = '"&codbarrr&"'"Set rs = Conexcao.Execute(Sql)Sql2 = "Select * from mix where codbar = "&codbarrrSet rs2 = Conexcao.Execute(Sql2)Sql3 = "Select * from merchandising where codbar = "&codbarrrSet rs3 = Conexcao.Execute(Sql3)Sql4 = "Select * from status where codbar = "&codbarrrSet rs4 = Conexcao.Execute(Sql4)Sql5 = "Select * from perguntas where codbar = "&codbarrrSet rs5 = Conexcao.Execute(Sql5)Sql6 = "Select status2 from status_new where codbar = "&codbarrrSet rs6 = Conexcao.Execute(Sql6)Elseif codbar <> "..." thenSql = "Select * from cad_bares where codbar = '"&codbar&"'"Set rs = Conexcao.Execute(Sql)Sql2 = "Select * from mix where codbar = "&codbarSet rs2 = Conexcao.Execute(Sql2)Sql3 = "Select * from merchandising where codbar = "&codbarSet rs3 = Conexcao.Execute(Sql3)Sql4 = "Select * from status where codbar = "&codbarSet rs4 = Conexcao.Execute(Sql4)Sql5 = "Select * from perguntas where codbar = "&codbarSet rs5 = Conexcao.Execute(Sql5)Sql6 = "Select status2 from status_new where codbar = "&codbarSet rs6 = Conexcao.Execute(Sql6)Elseif carteira <> "..." thenSql = "Select codbar from cad_bares where carteira='"&carteira&"'"Set rscodbar = Conexcao.Execute(Sql)codbarrr = rscodbar("codbar")Sql = "Select * from cad_bares where codbar = '"&codbarrr&"'"Set rs = Conexcao.Execute(Sql)Sql2 = "Select * from mix where codbar = "&codbarrrSet rs2 = Conexcao.Execute(Sql2)Sql3 = "Select * from merchandising where codbar = "&codbarrrSet rs3 = Conexcao.Execute(Sql3)Sql4 = "Select * from status where codbar = "&codbarrrSet rs4 = Conexcao.Execute(Sql4)Sql5 = "Select * from perguntas where codbar = "&codbarrrSet rs5 = Conexcao.Execute(Sql5)Sql6 = "Select status2 from status_new where codbar = "&codbarrrSet rs6 = Conexcao.Execute(Sql6)Elseif chopp <> "..." thenSql = "Select codbar from cad_bares where chopp='"&chopp&"'"Set rscodbar = Conexcao.Execute(Sql)codbarrr = rscodbar("codbar")Sql = "Select * from cad_bares where codbar = '"&codbarrr&"'"Set rs = Conexcao.Execute(Sql)Sql2 = "Select * from mix where codbar = "&codbarrrSet rs2 = Conexcao.Execute(Sql2)Sql3 = "Select * from merchandising where codbar = "&codbarrrSet rs3 = Conexcao.Execute(Sql3)Sql4 = "Select * from status where codbar = "&codbarrrSet rs4 = Conexcao.Execute(Sql4)Sql5 = "Select * from perguntas where codbar = "&codbarrrSet rs5 = Conexcao.Execute(Sql5)Sql6 = "Select status2 from status_new where codbar = "&codbarrrSet rs6 = Conexcao.Execute(Sql6)ElseResponse.Redirect("relatorio.asp?msg=1")End If%><br>Relatório do estabelecimento <%=rs("fantasia")%></span></center><br><br><center><table width="200" border="1">  <tr>	<td height="106">		<center>		  <table width="290" height="29" border="1">			<tr>			  <td width="290" height="23"><center>				  <span class="textorelatorio">Promoções participantes</span>			  </center></td>			</tr>		  </table>		</center>	  <center>		<table width="290" border="1">		  <tr>			<%If rs2("o_hexa_e_nosso") <> 0 or  0 or   0 Then	Response.write("<td><center><img src='../o_hexa_e_nosso.jpg'></center></td>")Else	Response.write("")End IfIf rs2("vai_aquecendo") <> 0 or  0 or   0 Then	Response.write("<td><center><img src='../vai_aquecendo.jpg'></center></td>")Else	Response.write("")End IfIf rs2("terceiro_tempo") <> 0 or  0 or   0 Then	Response.write("<td><center><img src='../terceiro_tempo.jpg'></center></td>")Else	Response.write("")End IfIf rs2("clube_dos_tecnicos") <> 0 or  0 or   0 Then	Response.write("<td><center><img src='../clube_dos_tecnicos.jpg'></center></td>")Else	Response.write("")End If%>		  </tr>		  <tr>			<%If rs2("o_hexa_e_nosso") <> 0 or  0 or   0 Then	Response.write("<td><center><span class='texto10'>O Hexa é Nosso</span></center></td>")Else	Response.write("")End IfIf rs2("vai_aquecendo") <> 0 or  0 or   0 Then	Response.write("<td><center><span class='texto10'>Vai Aquecendo</span></center></td>")Else	Response.write("")End IfIf rs2("terceiro_tempo")<> 0 or  0 or   0 Then	Response.write("<td><center><span class='texto10'>Terceiro Tempo</span></center></td>")Else	Response.write("")End IfIf rs2("clube_dos_tecnicos") <> 0 or  0 or   0 Then	Response.write("<td><center><span class='texto10'>Clube dos Técnicos</span></center></td>")Else	Response.write("")End If%>		  </tr>		</table>	  <center>		  <table width="290" border="1">			<tr>			  <td width="237"><center>				  <span class="textorelatorio">Material de Marchendising</span>			  </center></td>			</tr>		  </table>	  </center>	  <table border="1" width="290">		  <!-- Merchandising -->		  <tr>			<%If rs3("adesivo_de_banheiro") <> 0 or  0 or   0 Then	Response.write("<td><span class='texto10'>Adesivo de banheiro</span></td>")	Else	Response.write("")End IfIf rs3("bolacha_de_chopp") <> 0 or  0 or   0 Then	Response.write("<tr><td><span class='texto10'>Bolacha de chopp</span></td>")	Else	Response.write("")End IfIf rs3("flamula") <> 0 or  0 or   0 Then	Response.write("<tr><td><span class='texto10'>Flâmula</span></td>")	Else	Response.write("")End IfIf rs3("bandeirola") <> 0 or  0 or   0 Then	Response.write("<tr><td><span class='texto10'>Bandeirola</span></td>")	Else	Response.write("")End IfIf rs3("jogo_americano") <> 0 or  0 or   0 Then	Response.write("<tr><td><span class='texto10'>Jogo americano</span></td>")	Else	Response.write("")End IfIf rs3("camiseta") <> 0 or  0 or   0 Then	Response.write("<tr><td><span class='texto10'>Camiseta</span></td>")	Else	Response.write("")End IfIf rs3("mobile") <> 0 or  0 or   0 Then	Response.write("<tr><td><span class='texto10'>Móbile</span></td>")	Else	Response.write("")End IfIf rs3("moldura_para_tv") <> 0 or  0 or   0 Then	Response.write("<tr><td><span class='texto10'>Moldura para TV</span></td>")	Else	Response.write("")End IfIf rs3("moldura_para_telao") <> 0 or  0 or   0 Then	Response.write("<tr><td><span class='texto10'>Moldura para telão</span></td>")	Else	Response.write("")End If%>		  </tr>		</table>	  <!--Inicio do Status-->		<center>		  <table border="1" width="290">			<tr>			  <td><center>				  <span class="textorelatorio">Status de negociação </span>			  </center></td>			</tr>		  </table>		</center>	  <center>		<table border="1" width="290">			<tr>			  <%If rs4("status2") <> "" Then	Response.write("<td><span class='texto10'>"&rs4("status2")&"</span></td>")Else	Response.write("")End If%>			</tr>		  </table>		<table border="1" width="290">			<tr>			  <td><center>				  <span class="textorelatorio">Status de Implantação </span>			  </center></td>			</tr>		  </table>	  </center>	  <center>		  <table border="1" width="290">			<tr>			<%				if rs6.eof Then		Response.write("<td><span class='texto10'>Em implantação</span></td>")				else		Response.write("<td><span class='texto10'>"&rs6("status2")&"</span></td>")						end if%>			</tr>		  </table>	  </center>	  <!-- Perguntas AmBev-->		<center>		<table border="1" width="290">		  <tr>			<td><center>			  <span class="textorelatorio">Perguntas</span>			</center></td>		  </tr>		</table>	  <table border="1" width="290">		  <%If rs5("melhorprato") <> "" Then	Response.write("<tr><td><span class='texto10'>Qual o melhor prato do estabelecimento?</span></td><td><center><span class='texto10'>"&rs5("melhorprato")&"</span></center></td></tr>")Else	Response.write("")End IfIf rs5("diferencial") <> "" Then	Response.write("<tr><td><span class='texto10'>Qual o diferencial do estabelecimento?</span></td><td><center><span class='texto10'>"&rs5("diferencial")&"</span></center></td></tr>")Else	Response.write("")End IfIf rs5("estacionamento") <> "" Then	Response.write("<tr><td><span class='texto10'>Possui estacionamento?</span></td><td><center><span class='texto10'>"&rs5("estacionamento")&"</span></center></td></tr>")Else	Response.write("")End If%>		</table></table></center><!--FIMmmmmmmm LOOPPPPPPPPPPPPPP --></td>

Abraços

[shumi 0]

Tentei fazer assim:

 

<%While not rs.EOF%><center><span class="textocima"><%if praca <> "..." thenSql = "Select codbar from cad_bares where praca='"&praca&"'"Set rscodbar = Conexcao.Execute(Sql)codbarrr = rscodbar("codbar")Sql = "Select * from cad_bares where codbar = '"&codbarrr&"'"Set rs = Conexcao.Execute(Sql)Sql2 = "Select * from mix where codbar = "&codbarrrSet rs2 = Conexcao.Execute(Sql2)Sql3 = "Select * from merchandising where codbar = "&codbarrrSet rs3 = Conexcao.Execute(Sql3)Sql4 = "Select * from status where codbar = "&codbarrrSet rs4 = Conexcao.Execute(Sql4)Sql5 = "Select * from perguntas where codbar = "&codbarrrSet rs5 = Conexcao.Execute(Sql5)Sql6 = "Select status2 from status_new where codbar = "&codbarrrSet rs6 = Conexcao.Execute(Sql6)Elseif codbar <> "..." thenSql = "Select * from cad_bares where codbar = '"&codbar&"'"Set rs = Conexcao.Execute(Sql)Sql2 = "Select * from mix where codbar = "&codbarSet rs2 = Conexcao.Execute(Sql2)Sql3 = "Select * from merchandising where codbar = "&codbarSet rs3 = Conexcao.Execute(Sql3)Sql4 = "Select * from status where codbar = "&codbarSet rs4 = Conexcao.Execute(Sql4)Sql5 = "Select * from perguntas where codbar = "&codbarSet rs5 = Conexcao.Execute(Sql5)Sql6 = "Select status2 from status_new where codbar = "&codbarSet rs6 = Conexcao.Execute(Sql6)Elseif carteira <> "..." thenSql = "Select codbar from cad_bares where carteira='"&carteira&"'"Set rscodbar = Conexcao.Execute(Sql)codbarrr = rscodbar("codbar")Sql = "Select * from cad_bares where codbar = '"&codbarrr&"'"Set rs = Conexcao.Execute(Sql)Sql2 = "Select * from mix where codbar = "&codbarrrSet rs2 = Conexcao.Execute(Sql2)Sql3 = "Select * from merchandising where codbar = "&codbarrrSet rs3 = Conexcao.Execute(Sql3)Sql4 = "Select * from status where codbar = "&codbarrrSet rs4 = Conexcao.Execute(Sql4)Sql5 = "Select * from perguntas where codbar = "&codbarrrSet rs5 = Conexcao.Execute(Sql5)Sql6 = "Select status2 from status_new where codbar = "&codbarrrSet rs6 = Conexcao.Execute(Sql6)Elseif chopp <> "..." thenSql = "Select codbar from cad_bares where chopp='"&chopp&"'"Set rscodbar = Conexcao.Execute(Sql)codbarrr = rscodbar("codbar")Sql = "Select * from cad_bares where codbar = '"&codbarrr&"'"Set rs = Conexcao.Execute(Sql)Sql2 = "Select * from mix where codbar = "&codbarrrSet rs2 = Conexcao.Execute(Sql2)Sql3 = "Select * from merchandising where codbar = "&codbarrrSet rs3 = Conexcao.Execute(Sql3)Sql4 = "Select * from status where codbar = "&codbarrrSet rs4 = Conexcao.Execute(Sql4)Sql5 = "Select * from perguntas where codbar = "&codbarrrSet rs5 = Conexcao.Execute(Sql5)Sql6 = "Select status2 from status_new where codbar = "&codbarrrSet rs6 = Conexcao.Execute(Sql6)ElseResponse.Redirect("relatorio.asp?msg=1")End If%><br>Relatório do estabelecimento <%=rs("fantasia")%></span></center><br><br><center><table width="200" border="1">  <tr>	<td height="106">		<center>		  <table width="315" height="29" border="1">			<tr>			  <td width="290" height="23"><center>				  <span class="textorelatorio">Promoções participantes</span>			  </center></td>			</tr>		  </table>		</center>	  <center>		<table width="315" border="1">		  <tr>			<%IF rs2.eof Then	Response.write("<td><span class='texto10'>Nenhuma informação encontrada</span></td>")		ElseIf rs2("o_hexa_e_nosso") <> 0 or  0 or   0 Then	Response.write("<td><center><img src='../o_hexa_e_nosso.jpg'></center></td>")Else	Response.write("")End IfIf rs2("vai_aquecendo") <> 0 or  0 or   0 Then	Response.write("<td><center><img src='../vai_aquecendo.jpg'></center></td>")Else	Response.write("")End IfIf rs2("terceiro_tempo") <> 0 or  0 or   0 Then	Response.write("<td><center><img src='../terceiro_tempo.jpg'></center></td>")Else	Response.write("")End IfIf rs2("clube_dos_tecnicos") <> 0 or  0 or   0 Then	Response.write("<td><center><img src='../clube_dos_tecnicos.jpg'></center></td>")Else	Response.write("")End IFEnd IF%>		  </tr>		  <tr>			<%IF rs2.eof Then	Response.write("<td><span class='texto10'>Nenhuma informação encontrada</span></td>")		ElseIf rs2("o_hexa_e_nosso") <> 0 or  0 or   0 Then	Response.write("<td><center><span class='texto10'>O Hexa é Nosso</span></center></td>")Else	Response.write("")End IfIf rs2("vai_aquecendo") <> 0 or  0 or   0 Then	Response.write("<td><center><span class='texto10'>Vai Aquecendo</span></center></td>")Else	Response.write("")End IfIf rs2("terceiro_tempo")<> 0 or  0 or   0 Then	Response.write("<td><center><span class='texto10'>Terceiro Tempo</span></center></td>")Else	Response.write("")End IfIf rs2("clube_dos_tecnicos") <> 0 or  0 or   0 Then	Response.write("<td><center><span class='texto10'>Clube dos Técnicos</span></center></td>")Else	Response.write("")End IFEnd IF%>		  </tr>		</table>	  <center>		  <table width="315" border="1">			<tr>			  <td width="237"><center>				  <span class="textorelatorio">Material de Marchendising</span>			  </center></td>			</tr>		  </table>	  </center>	  <table border="1" width="315">		  <!-- Merchandising -->		  <tr>			<%IF rs3.eof Then	Response.write("<td><span class='texto10'>Nenhuma informação encontrada</span></td>")		ElseIF rs3("adesivo_de_banheiro") <> 0 or  0 or   0 Then	Response.write("<td><span class='texto10'>Adesivo de banheiro</span></td>")Else	Response.write("")End IfIf rs3("bolacha_de_chopp") <> 0 or  0 or   0 Then	Response.write("<tr><td><span class='texto10'>Bolacha de chopp</span></td>")	Else	Response.write("")End IfIf rs3("flamula") <> 0 or  0 or   0 Then	Response.write("<tr><td><span class='texto10'>Flâmula</span></td>")	Else	Response.write("")End IfIf rs3("bandeirola") <> 0 or  0 or   0 Then	Response.write("<tr><td><span class='texto10'>Bandeirola</span></td>")	Else	Response.write("")End IfIf rs3("jogo_americano") <> 0 or  0 or   0 Then	Response.write("<tr><td><span class='texto10'>Jogo americano</span></td>")	Else	Response.write("")End IfIf rs3("camiseta") <> 0 or  0 or   0 Then	Response.write("<tr><td><span class='texto10'>Camiseta</span></td>")	Else	Response.write("")End IfIf rs3("mobile") <> 0 or  0 or   0 Then	Response.write("<tr><td><span class='texto10'>Móbile</span></td>")	Else	Response.write("")End IfIf rs3("moldura_para_tv") <> 0 or  0 or   0 Then	Response.write("<tr><td><span class='texto10'>Moldura para TV</span></td>")	Else	Response.write("")End IfIf rs3("moldura_para_telao") <> 0 or  0 or   0 Then	Response.write("<tr><td><span class='texto10'>Moldura para telão</span></td>")	Else	Response.write("")End IFEnd IF%>		  </tr>		</table>	  <!--Inicio do Status-->		<center>		  <table border="1" width="315">			<tr>			  <td><center>				  <span class="textorelatorio">Status de negociação </span>			  </center></td>			</tr>		  </table>		</center>	  <center>		<table border="1" width="315">			<tr>			  <%IF rs4.eof Then	Response.write("<td><span class='texto10'>Nenhuma informação encontrada</span></td>")		ElseIf rs4("status2") <> "" Then	Response.write("<td><span class='texto10'>"&rs4("status2")&"</span></td>")Else	Response.write("")End IFEnd IF%>			</tr>		  </table>		<table border="1" width="315">			<tr>			  <td><center>				  <span class="textorelatorio">Status de Implantação </span>			  </center></td>			</tr>		  </table>	  </center>	  <center>		  <table border="1" width="315">			<tr>			<%				IF rs6.eof Then		Response.write("<td><span class='texto10'>Nenhuma informação encontrada</span></td>")				else		IF rs6("status2") = "..." Then		Response.write("<td><span class='texto10'>Em implantação</span></td>")		Else		Response.write("<td><span class='texto10'>"&rs6("status2")&"</span></td>")						End IF		End IF%>			</tr>		  </table>	  </center>	  <!-- Perguntas AmBev-->		<center>		<table border="1" width="315">		  <tr>			<td><center>			  <span class="textorelatorio">Perguntas</span>			</center></td>		  </tr>		</table>	  <table border="1" width="315">		  <%IF rs5.eof Then	Response.write("<td><span class='texto10'>Nenhuma informação encontrada</span></td>")		ElseIf rs5("melhorprato") <> "" Then	Response.write("<tr><td><span class='texto10'>Qual o melhor prato do estabelecimento?</span></td><td><center><span class='texto10'>"&rs5("melhorprato")&"</span></center></td></tr>")Else	Response.write("")End IfIf rs5("diferencial") <> "" Then	Response.write("<tr><td><span class='texto10'>Qual o diferencial do estabelecimento?</span></td><td><center><span class='texto10'>"&rs5("diferencial")&"</span></center></td></tr>")Else	Response.write("")End IfIf rs5("estacionamento") <> "" Then	Response.write("<tr><td><span class='texto10'>Possui estacionamento?</span></td><td><center><span class='texto10'>"&rs5("estacionamento")&"</span></center></td></tr>")Else	Response.write("")End IFEnd IF%>		</table></table></center><%rs.MoveNext					Wend%><!--FIMmmmmmmm LOOPPPPPPPPPPPPPP --></td>

Mas deu o erro:

Microsoft VBScript runtime error '800a01a8'

 

Object required: ''

 

/Meusite/relatorio_filtro_praca.asp, line 52

[/code]

 

Linha 52

<%While not rs.EOF%>

[shumi 0]

Galera,Dá um help ai por favor!Abraços

[shumi 0]

então Lucas o "rs" está criado.

Se eu não tento fazer o loop ele funfa certinho, mas aparece somente 1 estabelecimento.

quando eu tento fazer o loop que dá erro!

http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

[shumi 0]

Lucas,

Mudei tudo para simplificar ai coloquei assim:

 

<table width="573" border="1">  <tr>	<td width="162" height="23"><span class="texto10">Promoções participantes</span></td>   <td width="113" height="23"><span class="texto10">Materiais de Mix</span></td>   <td width="175" height="23"><span class="texto10">Materiais de merchandising</span></td>   <td width="95" height="23"><span class="texto10">Status</span></td>   </tr></table></center><center><table width="573" border="1"><%Sql = "Select codbar from cad_bares where carteira ='"&Session("login")&"'"Set rs = Conexcao.Execute(Sql)Sql2 = "Select * from mix where codbar ="&rs("codbar")Set rs2 = Conexcao.Execute(Sql2)Sql3 = "Select * from merchandising where codbar ="&rs("codbar")Set rs3 = Conexcao.Execute(Sql3)Sql4 = "Select * from status where codbar="&rs("codbar")Set rs4 = Conexcao.Execute(Sql4)' Inicio do loopwhile not rs.Eof%>	<tr><td>	<span class="texto10"><%=rs("codbar")%></span></td>	<%IF rs2.eof Then	Response.write("<td width='80'><span class='texto10'>Nenhuma informação encontrada</span></td>")		ElseIf rs2("o_hexa_e_nosso") <> 0 or  0 or   0 Then	Response.write("<td width='80'><center><span class='texto10'>O Hexa é Nosso</span></center></td>")Else	Response.write("")End IfIf rs2("vai_aquecendo") <> 0 or  0 or   0 Then	Response.write("<td width='80'><center><span class='texto10'>Vai Aquecendo</span></center></td>")Else	Response.write("")End IfIf rs2("terceiro_tempo")<> 0 or  0 or   0 Then	Response.write("<td width='80'><center><span class='texto10'>Terceiro Tempo</span></center></td>")Else	Response.write("")End IfIf rs2("clube_dos_tecnicos") <> 0 or  0 or   0 Then	Response.write("<td width='80'><center><span class='texto10'>Clube dos Técnicos</span></center></td>")Else	Response.write("")End IFEnd IF%>			<%IF rs3.eof Then	Response.write("<td><span class='texto10'>Nenhuma informação encontrada</span></td>")		ElseIF rs3("adesivo_de_banheiro") <> 0 or  0 or   0 Then	Response.write("<td><span class='texto10'>Adesivo de banheiro</span></td>")Else	Response.write("")End IfIf rs3("bolacha_de_chopp") <> 0 or  0 or   0 Then	Response.write("<td><span class='texto10'>Bolacha de chopp</span></td>")	Else	Response.write("")End IfIf rs3("flamula") <> 0 or  0 or   0 Then	Response.write("<td><span class='texto10'>Flâmula</span></td>")	Else	Response.write("")End IfIf rs3("bandeirola") <> 0 or  0 or   0 Then	Response.write("<td><span class='texto10'>Bandeirola</span></td>")	Else	Response.write("")End IfIf rs3("jogo_americano") <> 0 or  0 or   0 Then	Response.write("<td><span class='texto10'>Jogo americano</span></td>")	Else	Response.write("")End IfIf rs3("camiseta") <> 0 or  0 or   0 Then	Response.write("<td><span class='texto10'>Camiseta</span></td>")	Else	Response.write("")End IfIf rs3("mobile") <> 0 or  0 or   0 Then	Response.write("<td><span class='texto10'>Móbile</span></td>")	Else	Response.write("")End IfIf rs3("moldura_para_tv") <> 0 or  0 or   0 Then	Response.write("<td><span class='texto10'>Moldura para TV</span></td>")	Else	Response.write("")End IfIf rs3("moldura_para_telao") <> 0 or  0 or   0 Then	Response.write("<td><span class='texto10'>Moldura para telão</span></td>")	Else	Response.write("")End IFEnd IF%><%IF rs4.eof Then	Response.write("<td><span class='texto10'>Nenhuma informação encontrada</span></td>")		ElseIf rs4("status2") = 1 Then	Response.write("<td><span class='texto10'>Negociação</span></td>")Else	Response.write("")If rs4("status2") = 2 Then	Response.write("<td><span class='texto10'>Negociado</span></td>")Else	Response.write("")If rs4("status2") = 3 Then	Response.write("<td><span class='texto10'>Cancelado</span></td>")Else	Response.write("")End IFEnd IFEnd IFEnd IF%></tr><%rs.MoveNextWend%>

e aparece só os codigos dos estabelecimentos! http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

[shumi 0]

Tentei assim tb:

<table width="573" border="1">  <tr>	<td width="162" height="23"><span class="texto10">Promoções participantes</span></td>   <td width="113" height="23"><span class="texto10">Materiais de Mix</span></td>   <td width="175" height="23"><span class="texto10">Materiais de merchandising</span></td>   <td width="95" height="23"><span class="texto10">Status</span></td>   </tr></table></center><center><table width="573" border="1"><%Sql = "Select codbar from cad_bares where carteira ='"&Session("login")&"'"Set rs = Conexcao.Execute(Sql)Sql2 = "Select * from mix where codbar ="&rs("codbar")Set rs2 = Conexcao.Execute(Sql2)Sql3 = "Select * from merchandising where codbar ="&rs("codbar")Set rs3 = Conexcao.Execute(Sql3)Sql4 = "Select * from status where codbar="&rs("codbar")Set rs4 = Conexcao.Execute(Sql4)' Inicio do loopwhile not rs2.Eofwhile not rs3.Eofwhile not rs4.Eof%>	<tr><td>	<span class="texto10"><%=rs("codbar")%></span></td>	<%IF rs2.eof Then	Response.write("<td width='80'><span class='texto10'>Nenhuma informação encontrada</span></td>")		ElseIf rs2("o_hexa_e_nosso") <> 0 or  0 or   0 Then	Response.write("<td width='80'><center><span class='texto10'>O Hexa é Nosso</span></center></td>")Else	Response.write("")End IfIf rs2("vai_aquecendo") <> 0 or  0 or   0 Then	Response.write("<td width='80'><center><span class='texto10'>Vai Aquecendo</span></center></td>")Else	Response.write("")End IfIf rs2("terceiro_tempo")<> 0 or  0 or   0 Then	Response.write("<td width='80'><center><span class='texto10'>Terceiro Tempo</span></center></td>")Else	Response.write("")End IfIf rs2("clube_dos_tecnicos") <> 0 or  0 or   0 Then	Response.write("<td width='80'><center><span class='texto10'>Clube dos Técnicos</span></center></td>")Else	Response.write("")End IFEnd IF%>			<%IF rs3.eof Then	Response.write("<td><span class='texto10'>Nenhuma informação encontrada</span></td>")		ElseIF rs3("adesivo_de_banheiro") <> 0 or  0 or   0 Then	Response.write("<td><span class='texto10'>Adesivo de banheiro</span></td>")Else	Response.write("")End IfIf rs3("bolacha_de_chopp") <> 0 or  0 or   0 Then	Response.write("<td><span class='texto10'>Bolacha de chopp</span></td>")	Else	Response.write("")End IfIf rs3("flamula") <> 0 or  0 or   0 Then	Response.write("<td><span class='texto10'>Flâmula</span></td>")	Else	Response.write("")End IfIf rs3("bandeirola") <> 0 or  0 or   0 Then	Response.write("<td><span class='texto10'>Bandeirola</span></td>")	Else	Response.write("")End IfIf rs3("jogo_americano") <> 0 or  0 or   0 Then	Response.write("<td><span class='texto10'>Jogo americano</span></td>")	Else	Response.write("")End IfIf rs3("camiseta") <> 0 or  0 or   0 Then	Response.write("<td><span class='texto10'>Camiseta</span></td>")	Else	Response.write("")End IfIf rs3("mobile") <> 0 or  0 or   0 Then	Response.write("<td><span class='texto10'>Móbile</span></td>")	Else	Response.write("")End IfIf rs3("moldura_para_tv") <> 0 or  0 or   0 Then	Response.write("<td><span class='texto10'>Moldura para TV</span></td>")	Else	Response.write("")End IfIf rs3("moldura_para_telao") <> 0 or  0 or   0 Then	Response.write("<td><span class='texto10'>Moldura para telão</span></td>")	Else	Response.write("")End IFEnd IF%><%IF rs4.eof Then	Response.write("<td><span class='texto10'>Nenhuma informação encontrada</span></td>")		ElseIf rs4("status2") = 1 Then	Response.write("<td><span class='texto10'>Negociação</span></td>")Else	Response.write("")If rs4("status2") = 2 Then	Response.write("<td><span class='texto10'>Negociado</span></td>")Else	Response.write("")If rs4("status2") = 3 Then	Response.write("<td><span class='texto10'>Cancelado</span></td>")Else	Response.write("")End IFEnd IFEnd IFEnd IF%></tr><%rs2.MoveNextrs3.MoveNextrs4.MoveNextWendWendWend%>

mas estourou o tempo do IIS, ai coloquei o Server.ScriptTimeout = 999999999

E demora muito para exibir!

Tem como resolver isso???

[shumi 0]

Galera e nem ta exibindo mais agora :blink:

[Ratu 0]

bom problemas com TimeOut eh embaçado... tente enxugar seus codigos !--If rs3("mobile") <> 0 or 0 or 0 Then--oq eh isso ? isso funciona ?tem VARIOS IF's que poderiam ser "enxugados"... e tb qd for fazer um select, selecione somente o necessario !tipow troque select * from ... por select campo1, campo2 FROMsó são dicas... pq naum vi nada de errado...(só vi codigos redundantes)espero de algum modo ter ajudado...flw

[shumi 0]

Ratu,

beleza?

 

Dei uma enxugada no script, mas continua estourando o tempo, veja se tem como eu enxugar mais, por favor:

<!--#include file="conexao.asp"--><%IF Not(Session("logado")) ThenResponse.Redirect "index.asp"Response.EndEnd IFcodbar = Request("id")Server.ScriptTimeout = 999999999%><html><head><title>Chopp Brahma</title></head><body><!--#include File="estilo.css"--><center><DIV ID="flash" STYLE="position:absolute; left:93px; top:75px; z-index:11;">	<OBJECT CLASSID="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" CODEBASE="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" WIDTH="640" HEIGHT="30" ID="flash">	<PARAM NAME="movie" VALUE="botoes_cadastro.swf" />	<PARAM NAME="quality" VALUE="hight" />	<PARAM NAME="wmode" VALUE="transparent" />	<EMBED SRC="botoes_cadastro.swf" QUALITY="high" WIDTH="640" HEIGHT="30" NAME="flash" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer" wmode="transparent"/>	</OBJECT></DIV></center>   <table width="798" height="565" border="0" background="fundo_.jpg">	  <tr>		<td width="768" height="561"><!-- tabela2--><center><br><br><br><br><font color="#214B97" size="4" face="Arial, Helvetica, sans-serif"><br><br>Visualização dos estabelecimentos <%=Session("login")%></font><br></p><table width="587" height="205"><tr>	<td width="579" height="199"><div class="divhorizontal2"> <!-- tabela promo --><center>  <table width="573" border="1">  <tr>	<td width="162" height="23"><span class="texto10">Promoções participantes</span></td>   <td width="113" height="23"><span class="texto10">Materiais de Mix</span></td>   <td width="175" height="23"><span class="texto10">Materiais de merchandising</span></td>   <td width="95" height="23"><span class="texto10">Status</span></td>   </tr></table></center><center><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 loopwhile not rs2.Eofwhile not rs3.Eofwhile not rs4.Eof%>	<tr><td>	<span class="texto10"><%=rs("codbar")%></span></td>	<%IF rs2.eof Then	Response.write("<td width='80'><span class='texto10'>Nenhuma informação encontrada</span></td>")		ElseIf rs2("o_hexa_e_nosso") > 0 Then	Response.write("<td width='80'><center><span class='texto10'>O Hexa é Nosso</span></center></td>")Else	Response.write("")End IfIf rs2("vai_aquecendo") > 0 Then	Response.write("<td width='80'><center><span class='texto10'>Vai Aquecendo</span></center></td>")Else	Response.write("")End IfIf rs2("terceiro_tempo") > 0 Then	Response.write("<td width='80'><center><span class='texto10'>Terceiro Tempo</span></center></td>")Else	Response.write("")End IfIf rs2("clube_dos_tecnicos") > 0 Then	Response.write("<td width='80'><center><span class='texto10'>Clube dos Técnicos</span></center></td>")Else	Response.write("")End IFEnd IF%>			<%IF rs3.eof Then	Response.write("<td><span class='texto10'>Nenhuma informação encontrada</span></td>")		ElseIF rs3("adesivo_de_banheiro") > 0 Then	Response.write("<td><span class='texto10'>Adesivo de banheiro</span></td>")Else	Response.write("")End IfIf rs3("bolacha_de_chopp") > 0 Then	Response.write("<td><span class='texto10'>Bolacha de chopp</span></td>")	Else	Response.write("")End IfIf rs3("flamula") > 0 Then	Response.write("<td><span class='texto10'>Flâmula</span></td>")	Else	Response.write("")End IfIf rs3("bandeirola") > 0 Then	Response.write("<td><span class='texto10'>Bandeirola</span></td>")	Else	Response.write("")End IfIf rs3("jogo_americano") > 0 Then	Response.write("<td><span class='texto10'>Jogo americano</span></td>")	Else	Response.write("")End IfIf rs3("camiseta") > 0 Then	Response.write("<td><span class='texto10'>Camiseta</span></td>")	Else	Response.write("")End IfIf rs3("mobile") > 0 Then	Response.write("<td><span class='texto10'>Móbile</span></td>")	Else	Response.write("")End IfIf rs3("moldura_para_tv") > 0 Then	Response.write("<td><span class='texto10'>Moldura para TV</span></td>")	Else	Response.write("")End IfIf rs3("moldura_para_telao") > 0 Then	Response.write("<td><span class='texto10'>Moldura para telão</span></td>")	Else	Response.write("")End IFEnd IF%><%IF rs4.eof Then	Response.write("<td><span class='texto10'>Nenhuma informação encontrada</span></td>")		ElseIf rs4("status2") = 1 Then	Response.write("<td><span class='texto10'>Negociação</span></td>")Else	Response.write("")If rs4("status2") = 2 Then	Response.write("<td><span class='texto10'>Negociado</span></td>")Else	Response.write("")If rs4("status2") = 3 Then	Response.write("<td><span class='texto10'>Cancelado</span></td>")Else	Response.write("")End IFEnd IFEnd IFEnd IF%></tr><%rs2.MoveNextrs3.MoveNextrs4.MoveNextWendWendWend%>  </table></center><!-- fim tabela promo --></div></td></tr></table><br><center>  <form name="form1" method="post" action="negociadores.asp">  <input type="submit" name="Submit" value="Cadastrar mais estabelecimentos">   </form></center>		  </td>	  </tr>	</table></body></html><% If CInt(Request.QueryString("msg")) = 1 Then %><script language="javascript" type="text/javascript"><!-- alert("Cadastro efetuado com sucesso.");//--></script><% End If %><% If CInt(Request.QueryString("msg")) = 2 Then %><script language="javascript" type="text/javascript"><!-- alert("Login já cadastrado no sistema, favor escolher outro.");//--></script><% End If %>

Valeu!!!!

[shumi 0]

Galera tentei assim tb:

 

<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 loopwhile not rs2.Eof%>	<tr><td>	<span class="texto10"><%=rs("codbar")%></span></td>	<%IF rs2.eof Then	Response.write("<td width='80'><span class='texto10'>Nenhuma informação encontrada</span></td>")		ElseIf rs2("o_hexa_e_nosso") > 0 Then	Response.write("<td width='80'><center><span class='texto10'>O Hexa é Nosso</span></center></td>")Else	Response.write("")End IfIf rs2("vai_aquecendo") > 0 Then	Response.write("<td width='80'><center><span class='texto10'>Vai Aquecendo</span></center></td>")Else	Response.write("")End IfIf rs2("terceiro_tempo") > 0 Then	Response.write("<td width='80'><center><span class='texto10'>Terceiro Tempo</span></center></td>")Else	Response.write("")End IfIf rs2("clube_dos_tecnicos") > 0 Then	Response.write("<td width='80'><center><span class='texto10'>Clube dos Técnicos</span></center></td>")Else	Response.write("")End IFEnd IFrs2.MoveNext%><%while not rs3.EofIF rs3.eof Then	Response.write("<td><span class='texto10'>Nenhuma informação encontrada</span></td>")		ElseIF rs3("adesivo_de_banheiro") > 0 Then	Response.write("<td><span class='texto10'>Adesivo de banheiro</span></td>")Else	Response.write("")End IfIf rs3("bolacha_de_chopp") > 0 Then	Response.write("<td><span class='texto10'>Bolacha de chopp</span></td>")	Else	Response.write("")End IfIf rs3("flamula") > 0 Then	Response.write("<td><span class='texto10'>Flâmula</span></td>")	Else	Response.write("")End IfIf rs3("bandeirola") > 0 Then	Response.write("<td><span class='texto10'>Bandeirola</span></td>")	Else	Response.write("")End IfIf rs3("jogo_americano") > 0 Then	Response.write("<td><span class='texto10'>Jogo americano</span></td>")	Else	Response.write("")End IfIf rs3("camiseta") > 0 Then	Response.write("<td><span class='texto10'>Camiseta</span></td>")	Else	Response.write("")End IfIf rs3("mobile") > 0 Then	Response.write("<td><span class='texto10'>Móbile</span></td>")	Else	Response.write("")End IfIf rs3("moldura_para_tv") > 0 Then	Response.write("<td><span class='texto10'>Moldura para TV</span></td>")	Else	Response.write("")End IfIf rs3("moldura_para_telao") > 0 Then	Response.write("<td><span class='texto10'>Moldura para telão</span></td>")	Else	Response.write("")End IFEnd IFrs3.MoveNext%><%while not rs4.EofIF rs4.eof Then	Response.write("<td><span class='texto10'>Nenhuma informação encontrada</span></td>")		ElseIf rs4("status2") = 1 Then	Response.write("<td><span class='texto10'>Negociação</span></td>")Else	Response.write("")If rs4("status2") = 2 Then	Response.write("<td><span class='texto10'>Negociado</span></td>")Else	Response.write("")If rs4("status2") = 3 Then	Response.write("<td><span class='texto10'>Cancelado</span></td>")Else	Response.write("")End IFEnd IFEnd IFEnd IF%></tr><%rs4.MoveNextWendWendWend%>

e exibiu somente o resultado de uma loja, só que tudo fora do lugar...

veja como ficou o print da tela:

 

www.newstyle1.com/chopp/print.jpg

 

Poderiam me ajudar?!?

[Ratu 0]

esses espacos em branco deve ser pq ele entrou em um dos IF's que você colocou somente o response.write("") sekm nada, tente colocar response.write("<td> </td>"), soh para ficar melhor esteticamente... mas deveria aparecer mais de uma loja? coloque o movenext no final do loop...

[shumi 0]

Esses espaços em branco os Response.write("") é que se ele não encontrar nada na condição ele não faz nada

 

exemplo

 

If rs2("clube_dos_tecnicos") > 0 Then	Response.write("<td width='100'><center><span class='texto10'>Clube dos Técnicos</span></center></td>")Else	Response.write("")

Se clube dos tecnicos for maior que 0 então

forme a linha da tabela e escreva Clube dos tecnicos

Senão

Não exiba nada

 

Os espaços em branco são isso, se eu colocar assim response.write("<td> </td>") vai formar uma linha na tabela com espaço e eu não quero.

 

dei uma melhorada no meu script 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%><tr><td><span class="texto10"><%=rs("codbar")%></span></td><%while not rs4.EofIF rs4.eof Then	Response.write("<td width='100'><span class='texto10'><center>Nenhuma informação encontrada</center></span></td>")		ElseIf rs4("status2") = 1 Then	Response.write("<td width='100'><span class='texto10'><center>Negociação</center></span></td>")Else	Response.write("")If rs4("status2") = 2 Then	Response.write("<td width='100'><span class='texto10'><center>Negociado</center></span></td>")Else	Response.write("")If rs4("status2") = 3 Then	Response.write("<td width='100'><span class='texto10'><center>Cancelado</center></span></td>")Else	Response.write("")End IFEnd IFEnd IFEnd IFrs4.MoveNext%><%while not rs3.EofIF rs3.eof Then	Response.write("<td width='100'><span class='texto10'><center>Nenhuma informação encontrada</center></span></td>")		ElseIF rs3("adesivo_de_banheiro") > 0 Then	Response.write("<td width='100'><span class='texto10'><center>Adesivo de banheiro</center></span></td>")Else	Response.write("")End IfIf rs3("bolacha_de_chopp") > 0 Then	Response.write("<td width='100'><span class='texto10'><center>Bolacha de chopp</center></span></td>")	Else	Response.write("")End IfIf rs3("flamula") > 0 Then	Response.write("<td width='100'><span class='texto10'><center>Flâmula</center></span></td>")	Else	Response.write("")End IfIf rs3("bandeirola") > 0 Then	Response.write("<td width='100'><span class='texto10'><center>Bandeirola</center></span></td>")	Else	Response.write("")End IfIf rs3("jogo_americano") > 0 Then	Response.write("<td width='100'><span class='texto10'><center>Jogo americano</center></span></td>")	Else	Response.write("")End IfIf rs3("camiseta") > 0 Then	Response.write("<td width='100'><span class='texto10'><center>Camiseta</center></span></td>")	Else	Response.write("")End IfIf rs3("mobile") > 0 Then	Response.write("<td width='100'><span class='texto10'><center>Móbile</center></span></td>")	Else	Response.write("")End IfIf rs3("moldura_para_tv") > 0 Then	Response.write("<td width='100'><span class='texto10'><center>Moldura para TV</center></span></td>")	Else	Response.write("")End IfIf rs3("moldura_para_telao") > 0 Then	Response.write("<td width='100'><span class='texto10'><center>Moldura para telão</center></span></td>")	Else	Response.write("")End IFEnd IFrs3.MoveNext%><%while not rs2.Eof%> <%IF rs2.eof Then	Response.write("<td width='100'><span class='texto10'><center>Nenhuma informação encontrada</center></span></td>")		ElseIf rs2("o_hexa_e_nosso") > 0 Then	Response.write("<td width='100'><center><span class='texto10'>O Hexa é Nosso</span></center></td>")Else	Response.write("")End IfIf rs2("vai_aquecendo") > 0 Then	Response.write("<td width='100'><center><span class='texto10'>Vai Aquecendo</span></center></td>")Else	Response.write("")End IfIf rs2("terceiro_tempo") > 0 Then	Response.write("<td width='100'><center><span class='texto10'>Terceiro Tempo</span></center></td>")Else	Response.write("")End IfIf rs2("clube_dos_tecnicos") > 0 Then	Response.write("<td width='100'><center><span class='texto10'>Clube dos Técnicos</span></center></td>")Else	Response.write("")End IFEnd IFrs2.MoveNextWendWendWend%></tr>  </table>

agora processa rapidinho, mas só aparece um estabelecimento!

 

Abraços

[Ratu 0]

<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"><%=rs("codbar")%></span></td><%while not rs4.EofIF rs4.eof Then Response.write("<td width='100'><span class='texto10'><center>Nenhuma informação encontrada</center></span></td>") ElseIf rs4("status2") = 1 Then Response.write("<td width='100'><span class='texto10'><center>Negociação</center></span></td>")Else Response.write("")If rs4("status2") = 2 Then Response.write("<td width='100'><span class='texto10'><center>Negociado</center></span></td>")Else Response.write("")If rs4("status2") = 3 Then Response.write("<td width='100'><span class='texto10'><center>Cancelado</center></span></td>")Else Response.write("")End IFEnd IFEnd IFEnd IF%><%while not rs3.EofIF rs3.eof Then Response.write("<td width='100'><span class='texto10'><center>Nenhuma informação encontrada</center></span></td>") ElseIF rs3("adesivo_de_banheiro") > 0 Then Response.write("<td width='100'><span class='texto10'><center>Adesivo de banheiro</center></span></td>")Else Response.write("")End IfIf rs3("bolacha_de_chopp") > 0 Then Response.write("<td width='100'><span class='texto10'><center>Bolacha de chopp</center></span></td>") Else Response.write("")End IfIf rs3("flamula") > 0 Then Response.write("<td width='100'><span class='texto10'><center>Flâmula</center></span></td>") Else Response.write("")End IfIf rs3("bandeirola") > 0 Then Response.write("<td width='100'><span class='texto10'><center>Bandeirola</center></span></td>") Else Response.write("")End IfIf rs3("jogo_americano") > 0 Then Response.write("<td width='100'><span class='texto10'><center>Jogo americano</center></span></td>") Else Response.write("")End IfIf rs3("camiseta") > 0 Then Response.write("<td width='100'><span class='texto10'><center>Camiseta</center></span></td>") Else Response.write("")End IfIf rs3("mobile") > 0 Then Response.write("<td width='100'><span class='texto10'><center>Móbile</center></span></td>") Else Response.write("")End IfIf rs3("moldura_para_tv") > 0 Then Response.write("<td width='100'><span class='texto10'><center>Moldura para TV</center></span></td>") Else Response.write("")End IfIf rs3("moldura_para_telao") > 0 Then Response.write("<td width='100'><span class='texto10'><center>Moldura para telão</center></span></td>") Else Response.write("")End IFEnd IF%><%while not rs2.Eof%> <%IF rs2.eof Then Response.write("<td width='100'><span class='texto10'><center>Nenhuma informação encontrada</center></span></td>") ElseIf rs2("o_hexa_e_nosso") > 0 Then Response.write("<td width='100'><center><span class='texto10'>O Hexa é Nosso</span></center></td>")Else Response.write("")End IfIf rs2("vai_aquecendo") > 0 Then Response.write("<td width='100'><center><span class='texto10'>Vai Aquecendo</span></center></td>")Else Response.write("")End IfIf rs2("terceiro_tempo") > 0 Then Response.write("<td width='100'><center><span class='texto10'>Terceiro Tempo</span></center></td>")Else Response.write("")End IfIf rs2("clube_dos_tecnicos") > 0 Then Response.write("<td width='100'><center><span class='texto10'>Clube dos Técnicos</span></center></td>")Else Response.write("")End IFEnd IFrs2.MoveNextWendrs3.MoveNextWendrs4.MoveNextWend%></tr> </table>copiei seu codigo e coloquei os "MoveNexts" em seus finais respectivos... ve oq acontece...

[shumi 0]

Ratu,Cara precessou rapidinho, certo, mas só exibiu um estabelecimento!Tem mais estabelecimentos cadastrados.Para teste eu cadastrei 6 e só esta exibindo 1!