pra resolver Loop

shumi · Abril 3, 2006

Valeu Micox pela força Valeu mesmo carinha!!!!

Salgado,

Só esta faltando a data agora! o resto ta certinho

Veja

<%Set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbsistema.mdb"))If NOT (Session("logado")) ThenResponse.Redirect "index.asp"Response.EndEnd Ifcod = Request.Form("cod")estabelecimento = Request.Form("estabelecimento")uf = Request.Form("uf")'Sql ="SELECT * From preco_nosso WHERE campanha='" & cod & "' AND estabelecimento='" & estabelecimento & "'"sql = "SELECT produto,data,preco FROM preco_nosso WHERE campanha='" & cod & "' AND estabelecimento='" & estabelecimento & "' ORDER By produto, data;"Set rs = Conexcao.execute(Sql)prod_atual = ""'data = rs("data")%><html><head><title>Sistema NewStyle</title>  <style type="text/css"><!-- CSS body {	background-color: #FFFFFF;	}	.texto10 {	font-family: Arial, Helvetica, sans-serif;	font-size: 10px;	color: #464646;}	.texto11 {	font-family:Arial, Helvetica, sans-serif;	font-size:13px;	color: #464646;		}	.texto12 {	font-family:Arial, Helvetica, sans-serif;	font-size:10px;	color:#FFFFFF;	}	.texto13 {	font-family:Arial, Helvetica, sans-serif;	font-size:13px;	color:#FFFFFF;	}--></style></head><body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><img src="topo.jpg"></p><center><table border="1" bordercolor="#00CCFF"><tr><td><span class="texto11">PRODUTOS</span></td><%If not RS.EOF ThenProd_Inicio = RS("Produto")While Prod_Inicio = Prod_Atual%><td><span class="texto11"><%=rs("data")%></span></td><%RS.MoveNextIf Not RS.EOF ThenProd_Atual = RS("Produto")ElseProd_Atual = ""End IfWendProd_Atual = ""RS.MoveFirstEnd If%></tr><tr><%While not rs.EOFif rs("produto")<>prod_atual thenprod_atual = rs("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td><span class='texto10'>" & rs("produto") & "</span></td>"  Response.write "<td>" & rs("preco") & " </td>" 'exibindo o preco deste produto  else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><span class='texto10'>" & rs("preco") & "</span></td>"end ifrs.MoveNextWend%></tr></table></center><%Set rs=NothingConexcao.Close%><center><p> </p>  <p>	<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="50" height="50">	  <param name="movie" value="voltar4.swf">	  <param name="quality" value="high">	  <embed src="voltar4.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="50" height="50"></embed>	</object>  </p></center><p><img src="imagens/rodape.gif" width="779" height="44"></p></body></html>

Valeu!

shumi · Abril 4, 2006

Salgado,Da uma forcinha pra mim aqui cara!Abraços

Salgado · Abril 4, 2006

Como está agora?

shumi · Abril 4, 2006

Salgado beleza???

Tá assim:

<%Set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbsistema.mdb"))If NOT (Session("logado")) ThenResponse.Redirect "index.asp"Response.EndEnd Ifcod = Request.Form("cod")estabelecimento = Request.Form("estabelecimento")uf = Request.Form("uf")'Sql ="SELECT * From preco_nosso WHERE campanha='" & cod & "' AND estabelecimento='" & estabelecimento & "'"sql = "SELECT produto,data,preco FROM preco_nosso WHERE campanha='" & cod & "' AND estabelecimento='" & estabelecimento & "' ORDER By produto, data;"Set rs = Conexcao.execute(Sql)prod_atual = ""'data = rs("data")%><html><head><title>Sistema NewStyle</title>  <style type="text/css"><!-- CSS body {	background-color: #FFFFFF;	}	.texto10 {	font-family: Arial, Helvetica, sans-serif;	font-size: 10px;	color: #464646;}	.texto11 {	font-family:Arial, Helvetica, sans-serif;	font-size:13px;	color: #464646;		}	.texto12 {	font-family:Arial, Helvetica, sans-serif;	font-size:10px;	color:#FFFFFF;	}	.texto13 {	font-family:Arial, Helvetica, sans-serif;	font-size:13px;	color:#FFFFFF;	}--></style></head><body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><img src="topo.jpg"></p><center><table border="1" bordercolor="#00CCFF"><tr><td><span class="texto11">PRODUTOS</span></td><%If not RS.EOF ThenProd_Inicio = RS("Produto")While Prod_Inicio = Prod_Atual%><td><span class="texto11"><%=rs("data")%></span></td><%RS.MoveNextIf Not RS.EOF ThenProd_Atual = RS("Produto")ElseProd_Atual = ""End IfWendProd_Atual = ""RS.MoveFirstEnd If%></tr><tr><%While not rs.EOFif rs("produto")<>prod_atual thenprod_atual = rs("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td><span class='texto10'>" & rs("produto") & "</span></td>"  Response.write "<td>" & rs("preco") & " </td>" 'exibindo o preco deste produto  else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><span class='texto10'>" & rs("preco") & "</span></td>"end ifrs.MoveNextWend%></tr></table></center><%Set rs=NothingConexcao.Close%><center><p> </p>  <p>	<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="50" height="50">	  <param name="movie" value="voltar4.swf">	  <param name="quality" value="high">	  <embed src="voltar4.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="50" height="50"></embed>	</object>  </p></center><p><img src="imagens/rodape.gif" width="779" height="44"></p></body></html>

Abraços

Salgado · Abril 4, 2006

Substitui esse trecho:

<tr><td>PRODUTOS</td>
<%If not RS.EOF Then

Prod_Inicio = RS("Produto")

While Prod_Inicio = Prod_Atual

%><td><%=rs("data")%></td>

<%RS.MoveNext

If Not RS.EOF Then

Prod_Atual = RS("Produto")

Else

Prod_Atual = ""

End If

Wend

Prod_Atual = ""

RS.MoveFirst

End If%>

</tr>

Por esse:

<tr><td><span class="texto11">PRODUTOS</span></td>
<%If not RS.EOF Then
Prod_Inicio = RS("Produto")
Prod_Atual = Prod_Inicio
While Prod_Inicio = Prod_Atual
%><td><span class="texto11"><%=rs("data")%></span></td>
<%		RS.MoveNext
	If Not RS.EOF Then
		Prod_Atual = RS("Produto")
	Else
		Prod_Atual = ""
	End If
Wend
Prod_Atual = ""
RS.MoveFirst
End If%>
</tr>

shumi · Abril 5, 2006

Salgado,

Desculpa ai a demora pra responser, é que aqui ta embaçado a ação começou ai to correndo pra lá e pra cá!

Mas agora que consegui recomeçar o relatório...

Testei a parte que você me passou e funfou as datas em cima, mas as datas repetem

veja como esta:

http://www.newstyle1.com/sis/data.jpg

tem como fazer elas não se repetirem?

até pensei no distinct na SQL, mas veja como é

sql = "SELECT produto,data,preco FROM preco_nosso WHERE campanha='" & cod & "' AND estabelecimento='" & estabelecimento & "' ORDER By produto, data;"

Ai não funciona...

Acho que acontece isso devido aos "0" que tem no banco. tem como discartar os numeros 0 ???

Pode me ajudar?

Grande Abraço

Salgado · Abril 5, 2006

Acrescente na sua SQL um "And preco <> 0".

Mas isso pode lhe causar problemas, na verdade use:

<tr><td><span class="texto11">PRODUTOS</span></td>
<%If not RS.EOF Then
Prod_Inicio = RS("Produto")
Prod_Atual = Prod_Inicio
While Prod_Inicio = Prod_Atual
	If RS("Preco") <> "0" Then
%><td><span class="texto11"><%=rs("data")%></span></td>
<%
	End If
	RS.MoveNext
	If Not RS.EOF Then
		Prod_Atual = RS("Produto")
	Else
		Prod_Atual = ""
	End If
Wend
Prod_Atual = ""
RS.MoveFirst
End If%>
</tr>

shumi · Abril 5, 2006

Salgado,Não funfou com o if e tentei tb na SQL ai não exibe resultado nenhum! :blink:

shumi · Abril 5, 2006

Salgado,

Putz cara preciso muito da sua ajuda!

Tentei fazer o relatorio geral por estabelecimento, até que fiu bem, parece que cada dia que passa estou entendo melhor e agora to conseguindo me virar bastante, mas tem umas coisas que não consigo resolver principalmente quando se trata de "IF"

Gostaria que você me ajudasse a resolver meu script

Ele pega em varias tabelas minhas e exibe o relatorio normal, mas quando pego o preço dos produto ele pega aqueles zeros ai repete a data ate acabar os zeros, e na degustação em uma coluna(NO HTML) aparece os produtos e na outra coluna aparece a quantidade degustada, mas os produtos que não tiveram degustação aparece em branco as degustações, mas aparece o nome dos produtos, como faço para aparecer apenas os produtos que houveram degustação???

Veja meu script ele esta comentado onde começa cada parte do relatorio.

<%Set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbsistema.mdb"))If NOT (Session("logado")) ThenResponse.Redirect "index.asp"Response.EndEnd Ifcod = Request.Form("cod")estabelecimento = Request.Form("estabelecimento")uf = Request.Form("uf")sql3 = "Select acao from dados where campanha='"&cod&"'"Set rs3 = Conexcao.Execute(sql3)sql = "SELECT produto,data,preco FROM preco_nosso WHERE campanha='" & cod & "' AND estabelecimento='" & estabelecimento & "' ORDER By produto, data;"Set rs = Conexcao.execute(Sql)prod_atual = ""sql2 = "Select produto,data,inicial from dados_vendas where acao='"&rs3("acao")&"' and estabelecimento='"&estabelecimento&"' order by produto, data;"Set rs2 = Conexcao.Execute(sql2)sql4 = "Select produto,encarte,data from ponto_extra where campanha='"&cod&"' and estabelecimento='"&estabelecimento&"' order by produto, data;"Set rs4 = Conexcao.Execute(sql4)sql5 = "Select produto,data,abordagens,quantidade from degustado where campanha='"&cod&"' and estabelecimento='"&estabelecimento&"' order by produto, data;"Set rs5 = Conexcao.Execute(sql5)sql6 = "Select * from observacao where campanha='"&campanha&"' and estabelecimento='"&estabelecimento&"'"Set rs6 = Conexcao.Execute(sql6)%><html><head><title>Sistema NewStyle</title>  <style type="text/css"><!-- CSS body {	background-color: #FFFFFF;	}	.texto10 {	font-family: Arial, Helvetica, sans-serif;	font-size: 10px;	color: #464646;}	.texto11 {	font-family:Arial, Helvetica, sans-serif;	font-size:13px;	color: #464646;		}	.texto12 {	font-family:Arial, Helvetica, sans-serif;	font-size:10px;	color:#FFFFFF;	}	.texto13 {	font-family:Arial, Helvetica, sans-serif;	font-size:13px;	color:#FFFFFF;	}--></style></head><body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><img src="topo.jpg"></p><center><span class="texto10">Produtos que tem na Loja</span><table border="1" bordercolor="#00CCFF"><tr><td><span class="texto11">PRODUTOS</span></td><%'Inicio dos Produtos que tem na LojaIf not RS2.EOF Then	Prod_loja = RS2("Produto")	Prod_Atual = Prod_loja	While Prod_loja = Prod_Atual		'If RS("Preco") <> "0" Then%><td><span class="texto11"><%=rs2("data")%></span></td><%	   ' End If		RS2.MoveNext		If Not RS2.EOF Then			Prod_Atual = RS2("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS2.MoveFirstEnd If%></tr><tr><%While not rs2.EOFif rs2("produto")<>prod_atual thenprod_atual = rs2("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td><span class='texto10'>" & rs2("produto") & "</span></td>"  Response.write "<td><span class='texto10'>" & rs2("inicial") & "</span></td>" 'exibindo o preco deste produto  else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><span class='texto10'>" & rs2("inicial") & "</span></td>"end ifrs2.MoveNextWend%></tr></table></center><center><span class="texto10">Preço dos nossos produtos</span><table border="1" bordercolor="#00CCFF"><tr><td><span class="texto11">PRODUTOS</span></td><%'Inicio dos preços dos ProdutosIf not RS.EOF Then	Prod_Inicio = RS("Produto")	Prod_Atual = Prod_Inicio	While Prod_Inicio = Prod_Atual		If RS("Preco") <> "0" Then%><td><span class="texto11"><%=rs("data")%></span></td><%		End If		RS.MoveNext		If Not RS.EOF Then			Prod_Atual = RS("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS.MoveFirstEnd If%></tr><tr><%While not rs.EOFif rs("produto")<>prod_atual thenprod_atual = rs("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td><span class='texto10'>" & rs("produto") & "</span></td>"  Response.write "<td><span class='texto10'>" & rs("preco") & "</span></td>" 'exibindo o preco deste produto  else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><span class='texto10'>" & rs("preco") & "</span></td>"end ifrs.MoveNextWend%></tr></table></center><center><span class="texto10">Encarte</span><table border="1" bordercolor="#00CCFF"><tr><td><span class="texto11">PRODUTOS</span></td><%'Inicio dos encartesIf not RS4.EOF Then	Prod_encarte = RS4("Produto")	Prod_Atual = Prod_encarte	While Prod_encarte = Prod_Atual		If RS4("encarte") <> "0" Then%><td><span class="texto11"><%=rs4("data")%></span></td><%		End If		RS4.MoveNext		If Not RS4.EOF Then			Prod_Atual = RS4("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS4.MoveFirstEnd If%></tr><tr><%While not rs4.EOFif rs4("produto")<>prod_atual thenprod_atual = rs4("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td><span class='texto10'>" & rs4("produto") & "</span></td>"  Response.write "<td><span class='texto10'>" & rs4("encarte") & "</span></td>" 'exibindo o preco deste produto  else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><span class='texto10'>" & rs4("encarte") & "</span></td>"end ifrs4.MoveNextWend%></tr></table></center><center><span class="texto10">Degustação</span><table border="1" bordercolor="#00CCFF"><tr><td><span class="texto11">PRODUTOS</span></td><%'Inicio das degustaçõesIf not RS5.EOF Then	Prod_degustado = RS5("Produto")	Prod_Atual = Prod_degustado	While Prod_degustado = Prod_Atual		If RS5("quantidade") <> "0" Then%><td><span class="texto11"><%=rs5("data")%></span></td><%		End If		RS5.MoveNext		If Not RS5.EOF Then			Prod_Atual = RS5("quantidade")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS5.MoveFirstEnd If%></tr><tr><%While not rs5.EOFif rs5("produto")<>prod_atual thenprod_atual = rs5("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td><span class='texto10'>" & rs5("produto") & "</span></td>"  Response.write "<td><span class='texto10'>" & rs5("quantidade") & "</span></td>" 'exibindo o preco deste produto  else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><span class='texto10'>" & rs5("encarte") & "</span></td>"end ifrs5.MoveNextWend%></tr></table></center><%Set rs=NothingConexcao.Close%><center><p> </p>  <p>	<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="50" height="50">	  <param name="movie" value="voltar4.swf">	  <param name="quality" value="high">	  <embed src="voltar4.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="50" height="50"></embed>	</object>  </p></center><p><img src="imagens/rodape.gif" width="779" height="44"></p></body></html>

Muito Obrigado Salgado!

shumi · Abril 5, 2006

Putz já tentei de tudo e não consigo resolver! o maximo que consegui é os erros virem em Portugues :blink:

Salgado · Abril 6, 2006

Tem um erro aqui:

<tr><td>PRODUTOS</td>
<%

'Inicio das degustações

If not RS5.EOF Then

Prod_degustado = RS5("Produto")

Prod_Atual = Prod_degustado

While Prod_degustado = Prod_Atual

If RS5("quantidade") <> "0" Then

%><td><%=rs5("data")%></td>

<%

End If

RS5.MoveNext

If Not RS5.EOF Then

Prod_Atual = RS5("quantidade")

Else

Prod_Atual = ""

End If

Wend

Prod_Atual = ""

RS5.MoveFirst

End If%>

</tr>

O local marcado está recebendo o campo errado.

shumi · Abril 6, 2006

Ae menos 1 erro valeu Salgado!

veja aquele problema com a data que se repete por causa dos zeros.

<%If RS("Preco") <> "0" Then%><%=rs("data")%><%End If%>

Veja se estou certo não seria +ou- assim?

IF rs("preco") = "0" thenDescarteElse<%=data%>End IF

Se é + ou - assim como faço esse "descarte" ???

Valeu

shumi · Abril 6, 2006

Fiz um teste assim:

If RS("Preco") = " 0" or "0" Then%><%Response.write("teste")%><%else%><td><span class="texto11"><%=rs("data")%></span></td><%End If

e escreveu varias vezes a palavra teste e a data não apareceu, isso pq tem varios zeros... como eu faço pra sumir com esses zeros???

Da um help ai galera

shumi · Abril 6, 2006

Lucas,Quase!!!ao inves da quantidade de degustação ficar do lado quando for outro dia, ele ta repetindo o produto embaixo e colocando o preço com se fosse do mesmo dia.e quando não tem ocorrencia na loja ta dando o erro:

ADODB.Field erro '800a0bcd' BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. /sis/relatorio_acoes_lojas_.asp, line 231

veja como esta meu script todo:

<table border="1" bordercolor="#00CCFF"><tr><td width="269"><table border="1" bordercolor="#00CCFF"><tr>  <td width="188"><span class="texto11">Produtos</span></td>  <%'Inicio dos Produtos que tem na LojaIf not RS2.EOF Then	Prod_loja = RS2("Produto")	Prod_Atual = Prod_loja	While Prod_loja = Prod_Atual		'If RS("Preco") <> "0" Then%><td width="95"><span class="texto11"><%=rs2("data")%></span></td><%	   ' End If		RS2.MoveNext		If Not RS2.EOF Then			Prod_Atual = RS2("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS2.MoveFirstEnd If%></tr><tr><td><center><span class="texto15">Tem na loja</span></center></td></tr><tr><%While not rs2.EOFif rs2("produto")<>prod_atual thenprod_atual = rs2("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td width='400'><span class='texto10'>" & rs2("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs2("inicial") & "</span></center></td>" 'exibindo o preco deste produto  else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><center><span class='texto10'>" & rs2("inicial") & "</span></center></td>"end ifrs2.MoveNextWend%></tr><tr><td><center><span class="texto15">Preços</span></center></td>  <%'Inicio dos preços dos ProdutosIf not RS.EOF Then	Prod_Inicio = RS("Produto")	Prod_Atual = Prod_Inicio	While Prod_Inicio = Prod_Atual		If RS("Preco") = " 0" or "0" Then%>		<%Response.write("")%>		<%else%>		<%		End If		RS.MoveNext		If Not RS.EOF Then			Prod_Atual = RS("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS.MoveFirstEnd If%></tr><tr><%While not rs.EOFif rs("produto")<>prod_atual thenprod_atual = rs("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td width='400'><span class='texto10'>" & rs("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs("preco") & "</span></center></td>" 'exibindo o preco deste produto  'else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><center><span class='texto10'>" & rs("preco") & "</span></center></td>"end ifrs.MoveNextWend%></tr><tr><td><center><span class="texto15">Encartes</span></center></td>  <%'Inicio dos encartesIf not RS4.EOF Then	Prod_encarte = RS4("Produto")	Prod_Atual = Prod_encarte	While Prod_encarte = Prod_Atual		If RS4("encarte") <> "0" Then%><%		End If		RS4.MoveNext		If Not RS4.EOF Then			Prod_Atual = RS4("Produto")		Else			Prod_Atual = ""		End If	Wend	Prod_Atual = ""	RS4.MoveFirstEnd If%></tr><tr><%While not rs4.EOFif rs4("produto")<>prod_atual thenprod_atual = rs4("produto")  'é outro produto que não o anterior então abrirei nova linha  Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td width='400'><span class='texto10'>" & rs4("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs4("encarte") & "</span></center></td>" 'exibindo o preco deste produto  else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><center><span class='texto10'>" & rs4("encarte") & "</span></center></td>"end ifrs4.MoveNextWend%></tr><tr><td><center><span class="texto15">Degustações</span></center></td></tr><tr><% prod_atual = rs5("produto")While not rs5.EOFif rs5("produto") = prod_atual then'prod_atual = rs5("produto")    Response.write "</tr>" 'fechando a linha anterior da tabela  Response.write "<tr><td><span class='texto10'>" & rs5("produto") & "</span></td>"  Response.write "<td><span class='texto10'>" & rs5("quantidade") & "</span></td>" 'exibindo o preco deste produto  else  'é o mesmo produto, então eu só adiciono preço na tabela  Response.write "<td><span class='texto10'>" & rs5("quantidade") & "</span></td>"end ifrs5.MoveNextwend%></tr></table></td></tr></table>

Muito obrigado

shumi · Abril 6, 2006

Galera,Me da uma forcinha aqui!Pra eu terminar esse relatório, por favor!Preciso terminar isso em 1 hora!Valeu Galera

Arquivado

pra resolver Loop

Recommended Posts

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Javascript - Calcular Valores Monetário em Tempo Real

Fóruns

Tempo Real

Informação importante