erro de buffer

ugsmg · Novembro 8, 2007

Pessoal , me ajudem por favor , estou rodando um código que faz uma consuta em um banco de dados,mas está dando este erro:

------------------------

Response object error 'ASP 0251 : 80004005'

Response Buffer Limit Exceeded

/rep_realizar_pedido_produtos.asp, line 0

Execution of the ASP page caused the Response Buffer to exceed its configured limit.

------------------------

o que pode ser?

segue abaixo meu código.

ASP

<%

If Session("CodUsuario") = "" Then

Session("URLEntrada") = "rep_mostrar_clientes.asp"

'direciona para a página

Response.Buffer = true

'Server.ScriptTimeout = 5800

Response.Flush("index.asp")

End If

' Essa pagina chama a si mesma.

' Abre conexao com banco de dados

Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open Application("StringConexaoOLE")

Set ConexaoSis = Server.CreateObject("ADODB.Connection")

ConexaoSis.Open Application("StringConexaoOLESistema")

Set Clientes = Server.CreateObject("ADODB.RecordSet")

cod = Request.QueryString("cod")

' Se foi clicado o botão alterar...

If Request.Form("alterar") <> "" Then

prazo1 = RetiraStr0(Request.Form("txtPrazo1"))

prazo2 = RetiraStr0(Request.Form("txtPrazo2"))

prazo3 = RetiraStr0(Request.Form("txtPrazo3"))

prazo4 = RetiraStr0(Request.Form("txtPrazo4"))

desc = RetiraStr0(Request.Form("txtDescPorc"))

transp = Request.Form("intTransportadora")

indice = Request.Form("txtIndice")

dados4 = Request.Form("txtObs1")

dados5 = Request.Form("txtObs2")

dados6 = Request.Form("txtObs3")

Set Notas = Server.CreateObject("ADODB.RecordSet")

Notas.Open "SELECT NOTA_FISCAL FROM NF_ORCAMENTOS WHERE SERIE='NF' ORDER BY NOTA_FISCAL DESC", Conexao

nota = Clng(Notas("NOTA_FISCAL")) + 1

If Len(nota) < 6 Then

notastr = String(6 - Len(nota), "0") & nota

Else

notastr = nota

End If

Notas.Close

Notas.Open "SELECT * FROM NF_ORCAMENTOS WHERE COD_CLIENTE=" & cod & " ORDER BY SERIE, NOTA_FISCAL DESC", Conexao

If Notas.Eof = True Then

frete = "NULL"

tipo = "NULL"

grupo = "NULL"

dados1 = "NULL"

dados2 = "NULL"

dados3 = "NULL"

Else

dados1 = "'" & Notas("DADOS_ADIC01") & "'"

dados2 = "'" & Notas("DADOS_ADIC02") & "'"

dados3 = "'" & Notas("DADOS_ADIC03") & "'"

If Notas("FRETE_POR_CONTA") <> "" Then

frete = "'" & Notas("FRETE_POR_CONTA") & "'"

Else

frete = "NULL"

End If

If Notas("TIPO_FRETE") <> "" Then

tipo = "'" & Notas("TIPO_FRETE") & "'"

Else

tipo = "NULL"

End If

If Notas("GRUPO_FRETE") <> "" Then

grupo = "'" & Notas("GRUPO_FRETE") & "'"

Else

grupo = "NULL"

End If

Notas.Close

Set Notas = nothing

If transp = "0" Then

Set Transportadora = Server.CreateObject("ADODB.RecordSet")

Transportadora.Open "SELECT * FROM TRANSPORTADORA ORDER BY TRANSPORTADORA DESC", Conexao

transp = Transportadora("TRANSPORTADORA") + 1

Transportadora.Close

Set Transportadora = nothing

Conexao.Execute "INSERT INTO TRANSPORTADORA " & _

"(TRANSPORTADORA, DESCRICAO, ENDERECO, BAIRRO, CIDADE, CEP, ESTADO, FONE, FAX, CONTATO, STATUS) " & _

"VALUES(" & transp & ", '" & Request.Form("txtNomeTransp") & "', '" & Request.Form("txtEndeTransp") & _

"', '" & Request.Form("txtBairroTransp") & "', '" & Request.Form("txtCidadeTransp") & _

"', '" & Request.Form("txtCEPTransp") & "', '" & Request.Form("txtEstadoTransp") & _

"', '" & Request.Form("txtFoneTransp") & "', '" & Request.Form("txtFacsTransp") & _

"', '" & Request.Form("txtContatoTransp") & "', 'I')"

End If

Set Natureza = Server.CreateObject("ADODB.RecordSet")

Natureza.Open "SELECT * FROM NF_ORCAMENTOS WHERE COD_CLIENTE=" & cod & " ORDER BY EMISSAO DESC", Conexao

If not Natureza.EOF then

If Natureza("NATUREZA") <> "" Then

nat = "'" & Natureza("NATUREZA") & "'"

Else

nat = "NULL"

End If

codnat = Natureza("COD_NATUREZA")

Else

nat = "NULL"

codnat = 0

End If

Natureza.Close

Set Natureza = nothing

Clientes.Open "SELECT * FROM Clientes WHERE COD_CLIENTE=" & cod, Conexao

ende = Clientes("ENDE_ENTREGA")

cide = Clientes("CIDA_ENTREGA")

Clientes.Close

If dados4 = "" Then dados4 = "NULL" Else dados4 = "'" & dados4 & "'" End If

If dados5 = "" Then dados5 = "NULL" Else dados5 = "'" & dados5 & "'" End If

If dados6 = "" Then dados6 = "NULL" Else dados6 = "'" & dados6 & "'" End If

Conexao.Execute "INSERT INTO NF_ORCAMENTOS "& _

" (SERIE, NOTA_FISCAL, COD_CLIENTE, EMISSAO, COD_NATUREZA, NATUREZA, VALOR, TIPO_NOTA_FISCAL, "& _

" FLAG, PRAZO1, PRAZO2, PRAZO3, PRAZO4, STATUS, FRETE_POR_CONTA, TIPO_FRETE, GRUPO_FRETE, " & _

" VENDEDOR, ESPECIE_MERCADORIA, TRANSPORTADORA, LOCAL_DE_ENTREGA, CIDADE, " & _

" DADOS_ADIC01, DADOS_ADIC02, DADOS_ADIC03, DADOS_ADIC04, DADOS_ADIC05, DADOS_ADIC06, INDICE_PRECO) " & _

"VALUES('NF', '" & notastr & "', '" & cod & "', #" & Month(Date()) & "/" & Day(Date()) & "/" & Year(Date()) & "#, '" & codnat & _

"', " & nat & ", 0, 'S', 'W', '" & prazo1 & "', '" & prazo2 & _

"', '" & prazo3 & "', '" & prazo4 & "', 'I', " & frete & ", " & tipo & ", " & grupo & _

", '" & Session("CodRepresentante") & "', 'VOLUMES', '" & transp & "', '" & ende & "', '" & cide & _

"', " & dados1 & ", " & dados2 & ", " & dados3 & ", " & dados4 & ", " & dados5 & ", " & dados6 & ", '" & indice & "')"

Dim Prod(15,3)

vols = 0

' Para cada campo do formulario, nome do campo é o código do produto a incluir

' e o valor do campo é a quantidade escolhida

For Each nome_controle In Request.Form

If Left(nome_controle,7) = "txtQtde" And Request.Form(nome_controle) <> "0" Then

cod_prod=Mid(nome_controle,8,2) 'Pega os caracteres a partir do oitavo. O Máximo de codigos é 99.

Prod(cod_prod,3) = RetiraStr0(Request.Form(nome_controle))

Elseif Left(nome_controle,7) = "txtPreco" Then

cod_prod=Mid(nome_controle,8,2) 'Pega os caracteres a partir do oitavo. O Máximo de codigos é 99.

Prod(cod_prod,2) = Replace(Request.Form(nome_controle),".",",")

Elseif Left(nome_controle,9) = "cbProduto" Then

cod_prod=Mid(nome_controle,10,2) 'Pega os caracteres a partir do décimo. O Máximo de codigos é 99.

Prod(CInt(cod_prod),1) = Request.Form(nome_controle)

Elseif Left(nome_controle,6) = "txtVol" And Request.Form(nome_controle) <> "0" Then

vols=vols+RetiraStr0(Request.Form(nome_controle))

End If

c = 1

While c <= 15

If (Prod(c,1) <> "0") and (Prod(c,1) <> "") Then

Produto.Open "SELECT CodigoProduto, Produto FROM Produtos WHERE Codigo = " & Prod(c, 1), ConexaoSis

preco = Request.Form ("txtpreco" & c)

qtde = Request.Form ("txtQtde" & c)

codprod = Produto("CodigoProduto")

codprod = Mid(codprod,1,4) & Mid(codprod,6,6)

Conexao.Execute "INSERT INTO ITENS_ORCAMENTO (SERIE, COD_CLIENTE, NOTA_FISCAL, NF_ITEM, CODPRODUTO, CODIGO, " & _

" SUBST_TRIBUT, FLAG, GRUPO, SUB_GRUPO, ITEM, DESCRICAO, QUANTIDADE, VALOR_UNITARIO, BONIFICACAO, LOTE)" & _

" VALUES('NF', " & cod & ", '" & notastr & "', " & (nota * 100 + c) & ", " & Prod(c,1) & _

", '" & codprod & "', 'N', 'W', '" & Mid(codprod,1,2) & "', '" & Mid(codprod,4,2) & _

"', '" & Mid(codprod,7,4) & "', " & "'" & Produto("Produto") & "', '" & qtde & _

"', '" & preco & "', false, '')"

Produto.Close

End If

c = c + 1

Wend

Conexao.Execute "UPDATE ITENS_ORCAMENTO SET VALOR=VALOR_UNITARIO*QUANTIDADE WHERE COD_CLIENTE=" & cod & _

" AND NOTA_FISCAL='" & notastr & "'"

Conexao.Execute "UPDATE NF_ORCAMENTOS SET QUANTIDADE=" & vols & " WHERE COD_CLIENTE=" & cod & _

" AND NOTA_FISCAL='" & notastr & "'"

Produto.Open "SELECT SUM(VALOR) AS TOTAL FROM ITENS_ORCAMENTO WHERE COD_CLIENTE=" & cod & _

" AND NOTA_FISCAL='" & notastr & "'", Conexao

total = Produto("TOTAL")

Produto.Close

Set Produto = nothing

Conexao.Execute "UPDATE NF_ORCAMENTOS SET VALOR='" & total & "', DESCONTO_PERC='" & desc & "' WHERE COD_CLIENTE=" & cod & _

" AND NOTA_FISCAL='" & notastr & "'"

Conexao.Execute "UPDATE NF_ORCAMENTOS SET DESCONTO=VALOR/100*DESCONTO_PERC WHERE COD_CLIENTE=" & cod & _

" AND NOTA_FISCAL='" & notastr & "'"

Conexao.Execute "UPDATE NF_ORCAMENTOS SET VALOR=VALOR-DESCONTO WHERE COD_CLIENTE=" & cod & _

" AND NOTA_FISCAL='" & notastr & "'"

Response.Redirect("rep_pedido_realizado.asp?nf=" & notastr & "&cl=" & cod)

End If

%>

<HTML>

<HEAD>

<TITLE>Sistema de Logistica em Vendas</TITLE>

<!--

function MM_reloadPage(init) { //reloads the window if Nav4 resized

if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {

document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}

else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();

}

MM_reloadPage(true);

function abreJanela(){

window.open ('rep_manual.asp','manual', 'width=790,height=540,toolbar=no,location=no,status=no,menubar=no,scrollbars=

es,resizable=yes,top=50,left=10');

}

//-->

</script>

<!--//

function intTransportadora_OnChange() {

var browserName = navigator.appName;

var browserVersion = parseInt(eval(navigator.appVersion.substring(0,1)))

if ((browserVersion >= 4) || (browserName == "Netscape"))

{

if( frmPedido.intTransportadora.options[frmPedido.intTransportadora.selectedIndex].v

lue == "0" ) {

frmPedido.txtNomeTransp.disabled = false;

frmPedido.txtEndeTransp.disabled = false;

frmPedido.txtBairroTransp.disabled = false;

frmPedido.txtCidadeTransp.disabled = false;

frmPedido.txtEstadoTransp.disabled = false;

frmPedido.txtCEPTransp.disabled = false;

frmPedido.txtFoneTransp.disabled = false;

frmPedido.txtFacsTransp.disabled = false;

frmPedido.txtContatoTransp.disabled = false;

}

else {

frmPedido.txtNomeTransp.disabled = true;

frmPedido.txtEndeTransp.disabled = true;

frmPedido.txtBairroTransp.disabled = true;

frmPedido.txtCidadeTransp.disabled = true;

frmPedido.txtEstadoTransp.disabled = true;

frmPedido.txtCEPTransp.disabled = true;

frmPedido.txtFoneTransp.disabled = true;

frmPedido.txtFacsTransp.disabled = true;

frmPedido.txtContatoTransp.disabled = true;

}

else

{

alert("Seu navegador não tem os recursos necessários para exibição desta página.");

}

function enable_all() {

for( var count = 1; count <= 15; count ++ ) {

eval("frmPedido.txtPreco" + count + ".disabled=false;");

}

return true;

}

function check_all() {

var browserName = navigator.appName;

var browserVersion = parseInt(eval(navigator.appVersion.substring(0,1)))

if ((browserVersion >= 4) || (browserName == "Netscape"))

{

if( frmPedido.intTransportadora.options[frmPedido.intTransportadora.selectedIndex].v

lue == "0" ) {

if( frmPedido.txtNomeTransp.value == "" || frmPedido.txtFoneTransp.value == "" ) {

alert("Os dados da transportadora devem ser preenchidos!");

frmPedido.txtNomeTransp.focus();

return false;

}

if( frmPedido.cbProduto1.options[frmPedido.cbProduto1.selectedIndex].value == "0" ) {

alert("Não foi pedido nenhum produto!");

frmPedido.cbProduto1.focus();

return false;

}

var prazo = parseInt(frmPedido.txtPrazo1.value);

if( prazo > 150 ) {

alert("Prazo muito grande!");

frmPedido.txtPrazo1.focus();

return false;

}

prazo = parseInt(frmPedido.txtPrazo2.value);

if( prazo > 150 ) {

alert("Prazo muito grande!");

frmPedido.txtPrazo2.focus();

return false;

}

prazo = parseInt(frmPedido.txtPrazo3.value);

if( prazo > 150 ) {

alert("Prazo muito grande!");

frmPedido.txtPrazo3.focus();

return false;

}

prazo = parseInt(frmPedido.txtPrazo4.value);

if( prazo > 150 ) {

alert("Prazo muito grande!");

frmPedido.txtPrazo4.focus();

return false;

}

frmPedido.balterar.disabled = true;

}

else

{

alert("Seu navegador não tem os recursos necessários para exibição desta página.");

return false;

}

// enable_all();

return true;

}

function calcTotal() {

var browserName = navigator.appName;

var browserVersion = parseInt(eval(navigator.appVersion.substring(0,1)))

var total = 0.0;

var desconto = 0.0;

var desc = 0.0;

if ((browserVersion >= 4) || (browserName == "Netscape"))

{

for( var count = 1; count <= 15; count ++ ) {

eval("total=total+(parseFloat(frmPedido.txtPreco" + count + ".value)*parseInt(frmPedido.txtQtde" + count + ".value));");

}

eval("desc=parseFloat(frmPedido.txtDescPorc.value)");

eval("desconto=total*(parseFloat(frmPedido.txtDescPorc.value))/100");

frmPedido.txtDescPorc.value = desc.toString();

total = total - desconto;

frmPedido.txtTotal.value = "R$ " + total.toFixed(2);

frmPedido.txtDesconto.value = "R$ " + desconto.toFixed(2);

if( frmPedido.txtDescPorc.value > 0.0 )

frmPedido.txtObs1.value = "DESCONTO DE " + frmPedido.txtDescPorc.value + " % NESTE ORÇAMENTO";

else

frmPedido.txtObs1.value = "";

}

else

{

alert("Seu navegador não tem os recursos necessários para exibição desta página.");

}

function cbProduto_OnClick(cbProduto, txtPreco, txtQtde, c, cont) {

var browserName = navigator.appName;

var browserVersion = parseInt(eval(navigator.appVersion.substring(0,1)))

if ((browserVersion >= 4) || (browserName == "Netscape"))

{

if (cbProduto.options[cbProduto.selectedIndex].value == "0") {

if( c <= 15 )

eval( "frmPedido.cbProduto" + c + ".disabled=true;" );

}

else {

txtPreco.disabled = false;

txtQtde.disabled = false;

if( c <= 15 )

eval( "frmPedido.cbProduto" + c + ".disabled=false;" );

}

calcTotal();

}

else

{

alert("Seu navegador não tem os recursos necessários para exibição desta página.");

}

function txtDesconto_OnChange() {

calcTotal();

}

function txtQtde_OnChange(txtQtde, cbProduto, txtVol) {

var browserName = navigator.appName;

var browserVersion = parseInt(eval(navigator.appVersion.substring(0,1)))

if ((browserVersion >= 4) || (browserName == "Netscape"))

{

if (cbProduto.options[cbProduto.selectedIndex].value == "0") {

txtQtde.value = "0";

}

<%

Set Produtos = Server.CreateObject("ADODB.RecordSet")

' Le informacoes do produto

Produtos.Open "SELECT * FROM Produtos ORDER BY Produto", ConexaoSis

While not Produtos.Eof

%>

if (cbProduto.options[cbProduto.selectedIndex].value == "<%=Produtos("Codigo")%>") {

var qtde = parseInt(txtQtde.value,10);

if( isNaN(qtde)==true ) {

txtQtde.value = "0";

txtVol.value = "0";

}

else {

txtQtde.value = parseInt((qtde + <%=Produtos("Quantidade")-1%>) / <%=Produtos("Quantidade")%>) * <%=Produtos("Quantidade")%>;

txtVol.value = parseInt((qtde + <%=Produtos("Quantidade")-1%>) / <%=Produtos("Quantidade")%>);

}

<%

Produtos.MoveNext

Wend

%>

calcTotal();

}

else

{

alert("Seu navegador não tem os recursos necessários para exibição desta página.");

}

function txtPreco_OnChange(txtPreco, qtde) {

var browserName = navigator.appName;

var browserVersion = parseInt(eval(navigator.appVersion.substring(0,1)))

if ((browserVersion >= 4) || (browserName == "Netscape"))

{

// for( var count = 2; count <= qtde; count ++ ) {

// eval("frmPedido.txtPreco" + count + ".selectedIndex=" + txtPreco.selectedIndex + ";");

// }

//frmPedido.txtIndice.value = txtpreco.value;

calcTotal();

}

else

{

alert("Seu navegador não tem os recursos necessários para exibição desta página.");

}

//-->

</SCRIPT>

<!--

.style6 {font-weight: bold}

.style7 {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 12px;

}

.style8 {font-size: 10px}

.style10 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold; }

.style3 {font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 12px;

color: #003366;

font-weight: bold;

}

.style11 {font-size: 10px; font-family: Verdana, Arial, Helvetica, sans-serif; }

.style12 {

color: #003366;

font-weight: bold;

}

.style13 {color: #003366}

-->

</style>

</HEAD>

<tr>

</tr>

<tr>

</span></div></td>

</tr>

<tr>

<%

' A parte acima Ã© executada quando alguns dos botÃµes atualizar ou o remover sÃ£o acionados.

If cod <> 0 Then

' Le informacoes do cliente

Clientes.Open "SELECT * FROM Clientes WHERE COD_CLIENTE=" & cod, Conexao

' Checa se pedido ja foi deletado

If Clientes.Eof then

%>

<b><font color="#CC0000">Erro! Por favor atualize a página de Clientes.</font></b>

</span>

<hr>

<p align="center" class="style8"> <span class="style10"><a href="rep_mostrar_clientes.asp"><span class="style8">VOLTAR À PÁGINA DE CLIENTES </span></a>

<%

Clientes.Close

Set Clientes = Nothing

Conexao.Close

Set Conexao = Nothing

Response.End

Else

nome = Clientes("NOME_CLIENTE")

endereco = Clientes("ENDE_CLIENTE")

bairro = Clientes("BAIRRO_CLIENTE")

cidade = Clientes("CIDADE_CLIENTE")

estado = Clientes("ESTADO_CLIENTE")

cep = Clientes("CEP_CLIENTE")

cnpj = Clientes("CGC_CLIENTE")

cpf = Clientes("CPF_CLIENTE")

inscr = Clientes("INSCR_CLIENTE")

fone = Clientes("FONE_CLIENTE")

facs = Clientes("FACS_CLIENTE")

contato = Clientes("CONTATO_CLIENTE")

email = Clientes("EMAIL_CONTATO")

transp = Clientes("TRANSPORTADORA")

End If

Clientes.Close

End If

%>

</span></td>

</tr>

<tr>

<td bgcolor="#CCCCCC"><span class="style3">-- INFORMAÇÕES DO CLIENTE </span></td>

</tr>

<tr>

<td><form method="POST" name ="frmPedido" action="rep_realizar_pedido_produtos.asp?cod=<%=cod%>" onSubmit="return check_all();">

<tr>

</tr>

<tr>

<td width="120" align="right"><font face="verdana, Arial" size="2"><b>Endereço: </b></font></td>

</tr>

<tr>

<td width="120" align="right"><font face="verdana, Arial" size="2"><b>Bairro: </b></font></td>

</tr>

</table>

<tr>

<td width="120" align="right"><font face="verdana, Arial" size="2"><b>Cidade: </b></font></td>

<td width="75" align="right"><font face="verdana, Arial" size="2"><b>Estado: </b></font></td>

</tr>

</table>

<tr>

<td width="120" align="right"><font face="verdana, Arial" size="2"><b>Telefone: </b></font></td>

</table>

<tr>

</tr>

</table>

<tr>

<td width="120" align="right"><b><font face="verdana, Arial" size="2">Contato: </font></b></td>

</tr>

<tr>

</tr>

</table>

<br>

<%

Set Transportadoras = Server.CreateObject("ADODB.RecordSet")

td = ""

Transportadoras.Open "SELECT * FROM Transportadora ORDER BY DESCRICAO", Conexao

%>

<tr>

<td width="750" colspan="2" bgcolor="#CCCCCC"><span class="style12"><font face="verdana, Arial" size="2"> Selecione

uma transportadora ...</font></span></td>

</tr>

<tr>

<option value=0>&lt&lt NOVA TRANSPORTADORA &gt&gt</option>

<%

While Not Transportadoras.Eof

If Transportadoras("Transportadora") = transp Then

td = "disabled"

%>

<option value=<%=Transportadoras("Transportadora")%> selected><%=Transportadoras("Descricao")%></option>

<%

Else

%>

<%

End If

Transportadoras.MoveNext

Wend

%>

</select></td>

</tr>

<tr>

<td width="750" colspan="2" bgcolor="#CCCCCC"><span class="style12"><font face="verdana, Arial" size="2"> ... ou cadastre

uma nova transportadora</font></span></td>

</tr>

<tr>

</tr>

<tr>

<td width="120" align="right"><font face="verdana, Arial" size="2"><b>Endereço: </b></font></td>

</tr>

<tr>

<td width="120" align="right"><font face="verdana, Arial" size="2"><b>Bairro: </b></font></td>

</tr>

</table>

<tr>

<td width="120" align="right"><font face="verdana, Arial" size="2"><b>Cidade: </b></font></td>

<td width="75" align="right"><font face="verdana, Arial" size="2"><b>Estado: </b></font></td>

</tr>

</table>

<tr>

<td width="120" align="right"><font face="verdana, Arial" size="2"><b>Telefone: </b></font></td>

</table>

<tr>

<td width="120" align="right"><b><font face="verdana, Arial" size="2">Contato: </font></b></td>

</tr>

</table>

<br>

<tr>

<td width="750" colspan="6" bgcolor="#CCCCCC"><span class="style12"><font face="verdana, Arial" size="2"> Prazo

de pagamento em dias</font></span></td>

</tr>

<tr>

<td width="120" align="right"><font face="verdana, Arial" size="2"><b>Prazo: </b></font></td>

</strong>

<td width="230"><font size="1" face="verdana, Arial"><b>*</b> para pedidos à vista, colocar "0"</font></td>

</tr>

</table>

<tr>

<td width="750" colspan="5" bgcolor="#CCCCCC"><span class="style12"><font face="verdana, Arial" size="2"> Total

do Pedido</font></span></td>

</tr>

<tr>

<td width="120" align="right"><font face="verdana, Arial" size="2"><b>Total: </b></font></td>

<td width="138" align="right"><strong> <font face="verdana, Arial" size="2"><b>Desconto: </b></font></strong> </td>

%</strong> </td>

</strong> </td>

</tr>

</table>

<br>

<tr>

<td width="750" colspan="6" bgcolor="#CCCCCC"><span class="style13"><font face="verdana, Arial" size="2"><b> Produtos</b></font>

</span></td>

</tr>

<%

Cont = 0

While Cont < 15

%>

<tr>

<td width="120" align="right"><font face="verdana, Arial" size="2"><b>Produto: </b></font></td>

<td width="240"><select size="1" name="cbProduto<%=Cont+1%>" OnChange="cbProduto_OnClick(cbProduto<%=Cont+1%>,txtPreco<%=Cont+1%>,txtQtde<%=Cont+1%>,<%=Cont+2%>,15);" <% If Cont > 0 Then %>Disabled<% End If %>>

<%

Produtos.MoveFirst

While Not Produtos.EOF

%>

<%

Produtos.MoveNext

Wend

%>

</select></td>

<td width="125"><input type="text" name="txtQtde<%=Cont+1%>" size="10" value="0" onBlur="txtQtde_OnChange(txtQtde<%=Cont+1%>,cbProduto<%=Cont+1%>,txtVol<%=Cont+1%>);" Disabled>

<td width="75" align="right"><font face="verdana, Arial" size="2"><b>Preço: </b></font></td>

<td width="125"><input type="text" name="txtPreco<%=Cont+1%>" size="10" value="0" onBlur="txtPreco_OnChange(txtPreco<%=Cont+1%>,15);" Disabled>

</td>

</tr>

<%

Cont = Cont + 1

Wend

%>

</table>

<tr>

<td width="750" colspan="2" bgcolor="#CCCCCC"><span class="style13"><font face="verdana, Arial" size="2"><b> Observações

na Nota Fiscal</b></font></span></td>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

</table>

</form></td>

</tr>

<tr>

<hr>

<p align="center" class="style11"><strong><a href="rep_mostrar_clientes.asp">VOLTAR À ADMINISTRACAO DE CLIENTES </a>

<%

End If

%>

</strong></td>

</tr>

<tr>

</tr>

</table>

<%

Set Clientes = Nothing

ConexaoSis.Close

Set ConexaoSis = nothing

Conexao.Close

Set Conexao = nothing

%>

</BODY>

</HTML>

Maux · Novembro 8, 2007

:wacko:

q tamanho de código é esse oO

huahau

talvez o servidor não esteja suportando tantas informações e sobrecarregando a memória... isso me lembra a época do clipper, que agente precisava aumentar o tamanho da memória do DOS para que suportasse varaveis longas..

bem isso pode ser erro do servidor, ou então muitas variaveis em um só código, tente diminuir, ou separar um pouco a forma em que serão executados os códigos..

tente por exemplo tirar o includo do inicio da pagina...

abrass

Entrar

Arquivado

erro de buffer

Recommended Posts

ugsmg 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Maux 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Optimal Сasual Dating - Genuine Damsels

Search Beautiful Womans in your town for night

Não atualizar a div dentro de um setInterval

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante