Operação não permitida

shumi · Abril 10, 2006

Galera,Preciso muito do conhecimento de vcs.Estou gerando um arquivo que já deveria ter entregue e não consigo da o seguinte erro:

Objeto Response erro 'ASP 0104 : 80070057' Operação não permitida /sis/filtrar_uf.asp, line 0

vejam meu script

<html><head><title>Sistema NewStyle</title>  <style type="text/css"><!-- CSSbody {	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;	}	.texto15{	font-family:Arial, Helvetica, sans-serif;	font-size:12px;	color:#FF0000;	}--></style></head><body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><img src="topo.jpg"></p><%Set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbsistema.mdb"))cod = Request("id")'estabelecimento = Request.Form("estabelecimento")uf = Request.Form("uf")Sql99 = "Select fantasia from local where uf='"&uf&"'"Set rs99 = Conexcao.Execute(sql99)SQLx = "Select * from dados_vendas where estabelecimento='"&rs99("fantasia")&"'"set rsx = conexcao.execute(sqlx)If Request.Form("estabelecimento") ="" thenwhile not rsx.eofestabelecimento = rsx("estabelecimento")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='"&rs99("fantasia")&"' ORDER By produto, data;"Set rs = Conexcao.execute(Sql)prod_atual = ""sql2 = "Select * from dados_vendas where acao='"&rs3("acao")&"'"Set rs2 = Conexcao.Execute(sql2)sql4 = "Select produto,encarte,data from ponto_extra where campanha='"&cod&"' and estabelecimento='"&rs99("fantasia")&"' order by produto, data;"Set rs4 = Conexcao.Execute(sql4)sql5 = "Select produto,data,abordagens,quantidade from degustado where campanha='"&cod&"' and estabelecimento='"&rs99("fantasia")&"' order by produto, data;"Set rs5 = Conexcao.Execute(sql5)sql6 = "Select * from observacao where campanha='"&campanha&"' and estabelecimento='"&rs99("fantasia")&"'"Set rs6 = Conexcao.Execute(sql6)%><center><span class="texto11"><%=rsx("estabelecimento")%><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><%'Inicio dos encartesIf not RS5.EOF Then	Prod_degustado = RS5("Produto")	Prod_Atual = Prod_degustado	While Prod_degustado = Prod_Atual		If RS5("quantidade") <> "0" Then%><%		End If		RS5.MoveNext		If Not RS5.EOF Then			Prod_Atual = RS5("Produto")		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 width='400'><span class='texto10'>" & rs5("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs5("quantidade") & "</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'>" & rs5("quantidade") & "</span></center></td>"end ifrs5.MoveNextWend%></tr></table></td></tr></table></center><%rsx.movenextwendelsesql3 = "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)%><center><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><%'Inicio dos encartesIf not RS5.EOF Then	Prod_degustado = RS5("Produto")	Prod_Atual = Prod_degustado	While Prod_degustado = Prod_Atual		If RS5("quantidade") <> "0" Then%><%		End If		RS5.MoveNext		If Not RS5.EOF Then			Prod_Atual = RS5("Produto")		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 width='400'><span class='texto10'>" & rs5("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs5("quantidade") & "</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'>" & rs5("quantidade") & "</span></center></td>"end ifrs5.MoveNextWend%></tr></table></td></tr></table></center><%end ifSet 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>

Por favor me deem uma mãozinha!Que erro é esse?Obrigado!

shumi · Abril 10, 2006

Galera,

Mudei algumas coisas e continua dando o mesmo erro, coloquei mais um loop para gerar os estabelecimentos, que estão como "fantasia" onde esta por UF.

<html><head><title>Sistema NewStyle</title>  <style type="text/css"><!-- CSSbody {	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;	}	.texto15{	font-family:Arial, Helvetica, sans-serif;	font-size:12px;	color:#FF0000;	}--></style></head><body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><img src="topo.jpg"></p><%Set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbsistema.mdb"))campanha = Request("id")'estabelecimento = Request.Form("estabelecimento")uf = Request.Form("uf")Sql99 = "Select fantasia from local where uf='"&uf&"'"Set rs99 = Conexcao.Execute(sql99)SQLx = "Select * from dados_vendas where estabelecimento='"&rs99("fantasia")&"'"set rsx = conexcao.execute(sqlx)If Request.Form("estabelecimento") ="" thenwhile not rsx.eofestabelecimento = rsx("estabelecimento")sql3 = "Select acao from dados where campanha='"&campanha&"'"Set rs3 = Conexcao.Execute(sql3)sql = "SELECT produto,data,preco FROM preco_nosso WHERE campanha='" & campanha & "' and estabelecimento='"&rs99("fantasia")&"' ORDER By produto, data;"Set rs = Conexcao.execute(Sql)prod_atual = ""sql2 = "Select * from dados_vendas where acao='"&rs3("acao")&"'"Set rs2 = Conexcao.Execute(sql2)sql4 = "Select produto,encarte,data from ponto_extra where campanha='"&campanha&"' and estabelecimento='"&rs99("fantasia")&"' order by produto, data;"Set rs4 = Conexcao.Execute(sql4)sql5 = "Select produto,data,abordagens,quantidade from degustado where campanha='"&campanha&"' and estabelecimento='"&rs99("fantasia")&"' order by produto, data;"Set rs5 = Conexcao.Execute(sql5)sql6 = "Select * from observacao where campanha='"&campanha&"' and estabelecimento='"&rs99("fantasia")&"'"Set rs6 = Conexcao.Execute(sql6)%><center><span class="texto11"><%=rsx("estabelecimento")%><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><%'Inicio dos encartesIf not RS5.EOF Then	Prod_degustado = RS5("Produto")	Prod_Atual = Prod_degustado	While Prod_degustado = Prod_Atual		If RS5("quantidade") <> "0" Then%><%		End If		RS5.MoveNext		If Not RS5.EOF Then			Prod_Atual = RS5("Produto")		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 width='400'><span class='texto10'>" & rs5("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs5("quantidade") & "</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'>" & rs5("quantidade") & "</span></center></td>"end ifrs5.MoveNextWend%></tr></table></td></tr></table></center><%rsx.movenextwendsql3 = "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)%><center><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><%'Inicio dos encartesIf not RS5.EOF Then	Prod_degustado = RS5("Produto")	Prod_Atual = Prod_degustado	While Prod_degustado = Prod_Atual		If RS5("quantidade") <> "0" Then%><%		End If		RS5.MoveNext		If Not RS5.EOF Then			Prod_Atual = RS5("Produto")		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 width='400'><span class='texto10'>" & rs5("produto") & "</span></td>"  Response.write "<td><center><span class='texto10'>" & rs5("quantidade") & "</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'>" & rs5("quantidade") & "</span></center></td>"end ifrs5.MoveNextWend%></tr></table></td></tr></table></center><%end ifSet 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>

Que erro é esse galera? e pq linha 0?

Só me respondam isso ja tento me virar!

joacatito · Abril 10, 2006

No www.aspfaq.com:

Request object, ASP 0104 Operation not allowed If you are running your own file upload handler in Windows Server 2003, this error probably occurs on this line: something = Request.BinaryRead(Request.Totalbytes) If so, you need to increase the setting for AspMaxRequestEntityAllowed to allow larger files to be handled by the Request object. Look for this setting in metabase.xml; the default is 204,800 (200 kb), but you can change it to reflect your expected usage. You will need to restart IIS for this change to take place, unless "enable direct metabase edit" is enabled. This can also happen in certain scenarios when using code like the following: variable = Request("Variable")

shumi · Abril 10, 2006

Tradução:Peça o objeto, operação do ASP 0104 não permitida Se você estiver usando seu próprio alimentador do upload da lima no usuário 2003 de Windows, este erro ocorre provavelmente nesta linha: algo = Request.BinaryRead(Request.Totalbytes) Se assim, você necessita aumentar o ajuste para AspMaxRequestEntityAllowed para permitir que as limas maiores sejam seguradas pelo objeto do pedido. Procure este ajuste em metabase.xml; o defeito é 204.800 (200 kb), mas você pode mudá-lo para refletir seu uso previsto. Você necessitará reiniciar IIS para que esta mudança ocorra, a menos que "permita o metabase direto editarem" for permitido. Isto pode também acontecer em determinados cenarios ao usar o código seguinte: variável = Request("Variable")...----------------------------------------------------------------------------------------sera que acontece isso pois faço o request assim?campanha = Request("id")'estabelecimento = Request.Form("estabelecimento")uf = Request.Form("uf")Abraços

shumi · Abril 10, 2006

Eu uso direto do FTP... :blink:

Salgado · Abril 10, 2006

O Erro é no RESPONSE. e não no Request! Verifique se você não tem algum response com alguma função gerando erro ou algo assim. Visualmente não achei nada.

shumi · Abril 10, 2006

Salgado,beleza???Os response´s que tenho são aqueles que geram o miolo do relatorio.A unica coisa que mudei no relatorio foram as clausulas where do relatorio e acrescentei mais uma função SQL você acha que isso pode ter ocasionado algum erro??? ou não tem nada a ver?

shumi · Abril 10, 2006

Galera da um help aqui! to quebrando a cabeça, ja li o script um monte de vez, já troquei algumas coisas tentei fazer funcionar, mas não funciona de jeito nenhum! alguem podeia me dar uma maozinha nisso aqui?abrsçoa

Salgado · Abril 10, 2006

Esse problema só acontece nesse script "filtrar_uf.asp"?

shumi · Abril 10, 2006

sim, so nesse!!

Arquivado

Operação não permitida

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

joacatito 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

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

Estou criando uma calculadora de m2 e litros de tinta

Cruzamento de Bases

Consulta sem duplicação

Fóruns

Tempo Real

Informação importante