Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

caslu

Erro: Response Buffer Limit Exceeded

Por , em ASP Clássico

Recommended Posts

caslu    0

caslu
Postado

Response object error 'ASP 0251 : 80004005'Response Buffer Limit Exceeded/clube_elenco_3.asp, line 0Execution of the ASP page caused the Response Buffer to exceed its configured limit. ___________alguem sabe qual o motivo disso?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Digon    0

Digon
Postado

eu estou com o mesmo problema que o dele, verifiquei o link que está postado e também não me ajudou.

No site do meu cliente tem mais de 21.000 produtos

<!--#INCLUDE FILE="conexao.asp"-->
<%
Response.AddHeader "cache-control","private" 
Response.AddHeader "pragma", "no-cache"
Response.CacheControl = "no-cache"
Response.Expiresabsolute = Now() - 1 
Response.Expires = 0
Response.Buffer = True
%>
<%
Dim u
session("act")=""
session("sequencial") = ""%>
<%Sub Listar()
Set conn = Server.CreateObject("ADODB.CONNECTION")
conn.open DB_CONNECTION
set rs=Server.CreateObject("ADODB.Recordset")

sql = "SELECT * FROM Produtos WHERE parter_number like '%" & Request.Form("parter_number") & "%'"
rs.open sql, conn
response.Flush()
%>
<table border="1" width="590" cellpadding="0" cellspacing="0">
<tr>
<td width="11%" align="center"><Font face="ARIAL" Size="2"><b>ID</b></Font></td>
<td width="22%" align="center"><b>Código</b></td>
<td width="55%" align="center"><b>Parter Number</b></td>
<td width="12%" align="center"><b>Estoque </b></td>

</tr>
</table>

<% 

u=0
while not rs.EOF%>
<form action="lista2.asp?accao=dados" method="POST">
<table border="2" width="650" cellpadding="0" cellspacing="0">

<tr>
<td width="10%" align="center"><%=(rs.fields.item("id").value)%></td>
<td width="20%" align="center"><%=(rs.Fields.item("codigo").value)%></td>
<td width="50%" align="center"><%=(rs.Fields.item("parter_number").value)%></td>
<td width="10%" align="center"><%=(rs.Fields.item("estoque").value)%></td>

<td width="*"> <div align="center"><A HREF="lista2.asp?accao=<%= MM_KeepNone & MM_joinChar(MM_KeepNone) & "sequencial=" & rs.fields.item("id").value%>">Detalhes</a></div> 
</td>
</tr>
</table>

<%u=u+1%>

<% rs.MoveNext
wend
rs.close%>

<BR>Foram encontrados <%response.write u%> Registos
<BR>

<br><a href="lista2.asp">Nova procura</a>

</form>
<%End Sub%>

<%Sub procura%>
<form action="lista2.asp?accao=procura" method="POST">
<ALIGN="center"> Parter Number : <input type="text" name="parter" size="22">
<input type="submit" value="Procurar">
</form>
<%End Sub%>

<%select case request.querystring("accao")
case "procura" listar
case "valor" accao
case "" procura
case else valor
end select%>


<%
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>


<%sub valor%>
<form action="lista2.asp?accao=valor" method="post">
<%

MMColParam=Request.QueryString("accao")%>
<%
Dim ins
Dim MMColParam
Dim codigo
Dim comp
ins=0
codigo=0
comp=0
ins=instr(1, MMColParam, "=")
comp=Len(MMColParam)
comp=comp - ins
comp=Cint(comp)
codigo=right(MMColParam, comp)
codigo=Cint(codigo)%>


<%
Set conn = Server.CreateObject("ADODB.CONNECTION")
conn.open DB_CONNECTION
set rs=Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM Produtos where id=" & codigo 
rs.open sql, conn
response.Flush()
%>

<%
session("id")=rs ("id") 
session("nom")=rs ("parter_number")
session("num")=rs ("codigo")
session("estoque")=rs ("estoque")
rs.close
%>

<table width="450" border="1" cellspacing="0" cellpadding="0">
<tr> 
<td width="137"> 
<div align="left">Sequencia</div>
</td>
<td width="313"> 
<div align="left"><%=session("id")%></div>
</td>
</tr>
<tr> 
<td width="137"> 
<div align="left">Código</div>
</td>
<td width="*"> 
<div align="left"><input type="text" name="num" value="<%=session("codigo")%>"></div>
</td>
</tr>
<tr> 
<td width="137"> 
<div align="left">Parter Number </div>
</td>
<td width="*"> 
<div align="left"><input type="text" name="nom" value="<%=session("parter_number")%>"></div>
</td>
</tr>
<tr> 
<td width="137"> 
<div align="left">Estoque</div>
</td>
<td width="*"> 
<div align="left"><input type="text" name="estoque" value="<%=session("estoque")%>"></div>
</td>
</tr>
</table>
<br>
Acção a tomar ?: <Select Name="accaoatomar">
<OPTION VALUE "1" selected>ACTUALIZAR</OPTION>
<OPTION value "2">APAGAR</OPTION>
</Select>
<br>
<br><input type="submit" value="Executar a Acção"><br>
<br>
<A HREF="lista2.asp">Página Principal</a> 
<br>

</form>

<%end sub%>


<%sub apagar()

codigo = session("id")
Set conn = Server.CreateObject("ADODB.CONNECTION")
conn.open DB_CONNECTION
set rs=Server.CreateObject("ADODB.Recordset") 
sql="delete from Produtos where id =" & codigo
conn.execute (sql)
response.Flush()
response.redirect("lista2.asp")
%>
<%end sub%>


<%sub accao()
select case request.form("accaoatomar")
case "APAGAR" apagar
case else actualizar
end select%> 

<%end sub%>

<%sub actualizar()
codigo = session("id")
Set conn = Server.CreateObject("ADODB.CONNECTION")
conn.open DB_CONNECTION
set rs=Server.CreateObject("ADODB.Recordset")


sql = "update Produtos set parter_number ='" & Server.HTMLEncode(request.form("parter_number")) & "' where id=" & parter_number
rs.Open sql, conn
sql = "update Produtos set codigo ='" & Server.HTMLEncode(request.form("codigo")) & "' where id=" & parter_number
rs.Open sql, conn
sql = "update Produtos set estoque ='" & Server.HTMLEncode(request.form("estoque")) & "' where id=" & parter_number
rs.Open sql, conn


response.redirect ("lista2.asp")
%>
<%end sub%>
Em off

estou pensando em comprar um livro de asp para estudar, e melhorar a minha programação em asp se alguem tiver uma referencia eu agradeço ^^.

Desculpa se isso não é relevante ao topico, não achei um lugar para perguntar.

agradeço a paciência.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Digon    0

Digon
Postado

acabei resolvendo o problema ^^

só que apareceu outro, mais pelo menos to no caminho certo

<!--#include file="conexao.asp"-->
<%
Dim u
session("at")=""
session("ID") = ""%>
<%Sub Listar()
Set conn = Server.CreateObject("ADODB.CONNECTION")
set Produtos=Server.CreateObject("ADODB.Recordset")
conn.Open DB_CONNECTION
SQLINST = "SELECT * FROM Produtos WHERE parter_number like '%" & Request.Form("parter") & "%'"
Produtos.open SQLINST, conn

%>

<table border="1" width="590" cellpadding="0" cellspacing="0">
<tr>
<td width="11%" align="center"><Font face="ARIAL" Size="2"><b>ID</b></Font></td>
<td width="22%" align="center"><b>Código</b></td>
<td width="55%" align="center"><b>Parter_Number</b></td>
</tr>
</table>

<% 

u=0
while not Produtos.EOF%>
<form action="lista2.asp?acao=dados" method="POST">
<table border="2" width="650" cellpadding="0" cellspacing="0">

<tr>
<td width="10%" align="center"><%=(Produtos.fields.item("ID").value)%></td>
<td width="20%" align="center"><%=(Produtos.Fields.item("codigo").value)%></td>
<td width="50%" align="center"><%=(Produtos.Fields.item("parter_number").value)%></td>


<td width="*"> <div align="center"><A HREF="lista2.asp?acao=<%= MM_KeepNone & MM_joinChar(MM_KeepNone) & "ID=" & Produtos.fields.item("ID").value%>">Detalhes</a></div> 
</td>
</tr>
</table>

<%u=u+1%>
<% Produtos.MoveNext
wend
Produtos.close%>

<BR>Foram encontrados <%response.write u%> Registos
<BR>

<br><a href="lista2.asp">Nova procura</a>

</form>
<%End Sub%>

<%Sub procura%>
<form action="lista2.asp?acao=procura" method="POST">
<ALIGN="center"> Parter Number : <input type="text" name="parter" size="22">
<input type="submit" value="Procurar">
</form>
<%End Sub%>

<%select case request.querystring("acao")
case "procura" listar
case "valor" acao
case "" procura
case else valor
end select%>


<%
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>


<%sub valor%>
<form action="lista2.asp?acao=valor" method="post">
<%

MMColParam=Request.QueryString("acao")%>
<%
Dim ins
Dim MMColParam
Dim numero
Dim comp
ins=0
numero=0
comp=0
ins=instr(1, MMColParam, "=")
comp=Len(MMColParam)
comp=comp - ins
comp=Cint(comp)
numero=right(MMColParam, comp)
numero=Cint(numero)%>


<%

Set conn = Server.CreateObject("ADODB.CONNECTION")
conn.Open DB_CONNECTION

SQLINST = "SELECT * FROM Produtos where ID=" & codigo 
Produtos.open SQLINST, conn
%>

<%
session("ID")=Produtos ("ID") 
session("parter")=Produtos ("parter_number")
session("cod")=Produtos ("codigo")
Produtos.close
%>
<table width="450" border="1" cellspacing="0" cellpadding="0">
<tr> 
<td width="137"> 
<div align="left">ID</div>
</td>
<td width="313"> 
<div align="left"><%=session("ID")%></div>
</td>
</tr>
<tr> 
<td width="137"> 
<div align="left">Código</div>
</td>
<td width="*"> 
<div align="left"><input type="text" name="num" value="<%=session("cod")%>"></div>
</td>
</tr>
<tr> 
<td width="137"> 
<div align="left">Parter Number</div>
</td>
<td width="*"> 
<div align="left"><input type="text" name="nom" value="<%=session("parter")%>"></div>
</td>
</tr>
<tr> 
</tr>
</table>
<br>
Opções: <Select Name="acaoatomar">
<OPTION VALUE "1" selected>ACTUALIZAR</OPTION>
<OPTION value "2">APAGAR</OPTION>
</Select>
<br>
<br><input type="submit" value="Executar ">
<br>
<br>
<A HREF="lista2.asp">Página Principal</a> 
<br>

</form>

<%end sub%>


<%sub apagar()

numero = session("ID")
Set conn = Server.CreateObject("ADODB.CONNECTION")
conn.Open DB_CONNECTION
set Produtos=Server.CreateObject("ADODB.Recordset") 
SQLINST="delete from ID where ID =" & numero
conn.execute (SQLINST)
response.redirect("lista2.asp")
%>
<%end sub%>


<%sub acao()
select case request.form("acaoatomar")
case "APAGAR" apagar
case else atualizar
end select%> 

<%end sub%>

<%sub atualizar()
numero = session("ID")
Set conn = Server.CreateObject("ADODB.CONNECTION")
conn.Open DB_CONNECTION
set Produtos=Server.CreateObject("ADODB.Recordset")


SQLINST = "update Produtos set parter_number ='" & Server.HTMLEncode(request.form("parter")) & "' where ID=" & numero
Produtos.Open SQLINST, conn
SQLINST = "update Produtos set codigo ='" & Server.HTMLEncode(request.form("cod")) & "' where ID=" & numero
Produtos.Open SQLINST, conn

response.redirect ("lista2.asp")
%>
<%end sub%>
O buscar eu ajustei, removi a maioria dos responses deixando response.redirect e response.write

e com isso consegui fazer a busca funcionar, agora só estou com problema no detalhes quando abre a lista da busca,

não consigo redirecionar para o proximo passo que seria alteração e exclusão do produto.

Mostra o seguinte erro

Microsoft VBScript runtime error '800a01a8' 

Object required: '' 

/magcomp/lista2.asp, line 107

Abaixo o código 

<%

Set conn = Server.CreateObject("ADODB.CONNECTION")
conn.Open DB_CONNECTION

SQLINST = "SELECT * FROM Produtos where ID=" & codigo 
Produtos.open SQLINST, conn = linha 107
%>

<%
session("ID")=Produtos ("ID") 
session("parter")=Produtos ("parter_number")
session("cod")=Produtos ("codigo")
Produtos.close
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

tente assim:

 

SQLINST = "SELECT * FROM Produtos where ID='"&codigo&"'"

 

ou

 

SQLINST = "SELECT * FROM Produtos where ID="&codigo&""

Compartilhar este post

Link para o post
Compartilhar em outros sites

Digon    0

Digon
Postado

Do Banco de Dados para que ele puxe o codigo do produto, executada pela session

<%
session("ID")=Produtos ("ID") 
session("parter_number")=Produtos ("parter_number")
session("codigo")=Produtos ("codigo")
Produtos.close
%>
<table width="450" border="1" cellspacing="0" cellpadding="0">
<tr> 
<td width="137"> 
<div align="left">ID</div>
</td>
<td width="313"> 
<div align="left"><%=session("ID")%></div>
</td>
</tr>
<tr> 
<td width="137"> 
<div align="left">Código</div>
</td>
<td width="*"> 
<div align="left"><input type="text" name="num" value="<%=session("codigo")%>"></div>
</td>
</tr>
<tr> 
<td width="137"> 
<div align="left">Parter Number</div>
</td>
<td width="*"> 
<div align="left"><input type="text" name="nom" value="<%=session("parter")%>"></div>
</td>
</tr>
</table>
<br>
Opções: <Select Name="acaoatomar">
<OPTION VALUE "1" selected>ACTUALIZAR</OPTION>
<OPTION value "2">APAGAR</OPTION>
</Select>
<br>
<br><input type="submit" value="Executar ">
<br>
<br>
<A HREF="lista2.asp">Página Principal</a> 
<br>

</form>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

mais que estranho, acho que tem algo que ainda não percebi: faz isso

 

<%
Set conn = Server.CreateObject("ADODB.CONNECTION")
conn.Open DB_CONNECTION

set Produtos = conn.execute("SELECT * FROM Produtos where ID = "&session("codigo"))
if not Produtos.eof then
session("ID")=Produtos("ID")
session("parter")=Produtos("parter_number")
session("cod")=Produtos("codigo")
end if
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

qual o erro atual?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

esse erro 800A01A8

Microsoft VBScript runtime error. Object required. Um dos motivos que faz com que esse erro ocorra é tentar utilizar a propriedade ou executar uma ação em um objeto quando o mesmo ainda não foi criado. Por exemplo, caso você tentar finalizar a instância de um objeto sem ter criando: conn.Close(). Esse tipo de ação gera o erro de número 800A01A8. Antes de finalizar a instância do objeto o mesmo deve ser criado. (Set conn = Server.CreateObject("ADODB.Connection"))

Compartilhar este post

Link para o post
Compartilhar em outros sites

Digon    0

Digon
Postado

Agora o erro é na Cint

Microsoft VBScript runtime error '800a000d' 

Type mismatch: 'Cint' 

/magcomp/lista2.asp, line 97

e no terceiro processo aparece o seguinte erro

 

Microsoft JET Database Engine error '80040e14' 

Syntax error (missing operator) in query expression 'ID ='. 

/magcomp/lista2.asp, line 104
e ele não puxa as informações na tabela

Compartilhar este post

Link para o post
Compartilhar em outros sites

Digon    0

Digon
Postado 

<%

Dim ins

Dim MMColParam

Dim numero

Dim comp

ins=0

numero=0

comp=0

ins=instr(1, MMColParam, "=")

comp=Len(MMColParam)

comp=comp - ins

comp=Cint(comp)

numero=right(MMColParam, comp)

 

numero=Cint(numero)Converte para inteiro <<- linha 97= se colocar como comentario anula o erro 97 e vi que no banco de dados codigo e parter number estã como texto

%>

 

 

<%

Set conn = Server.CreateObject("ADODB.CONNECTION")

conn.Open DB_CONNECTION

 

set Produtos = conn.execute("SELECT * FROM Produtos where ID =" &session("cod") )" <<- linha104

if not Produtos.eof then

session("ID")=Produtos("ID")

session("parter")=Produtos("parter_number")

session("cod")=Produtos("codigo")

end if

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Dá um response.write na consulta SQL

SQL="SELECT * FROM Produtos where ID =" &session("cod")"
Response.write SQL
Resnpose.End()
E verifique o que esta sendo passado na session(“cod”)

Verifque no bd que tipo de campo é, se é numérico,texto, etc

Compartilhar este post

Link para o post
Compartilhar em outros sites

Digon    0

Digon
Postado

o campo do parter number e do codigo são textos.

Site de onde eu tirei esse codigo

truques e dicas

 

 

Microsoft VBScript runtime error '800a01c2' 

Wrong number of arguments or invalid property assignment: 'execute' 

/magcomp/lista2.asp, line 103

<%
Set conn = Server.CreateObject("ADODB.CONNECTION")
conn.Open DB_CONNECTION
set Produtos = conn.execute
SQL="SELECT * FROM Produtos where ID =" &session("codigo")
Response.Write(SQL)
Response.End()
if not Produtos.eof then
session("ID")=Produtos("ID")
session("parter")=Produtos("parter_number")
session("codigo")=Produtos("codigo")
end if
%>

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

Digon    0

Digon
Postado

Usei um codigo para mostrar os erros e ficou assim

Ocorreram Erros no Script:
Número do erro=3704

Decrição do erro=Operation is not allowed when the object is closed.

Help Context=1240653

" Help Path=

Native Error=

Source=Microsoft VBScript runtime error

SQLState=

Nenhum erro com o Database

SELECT * FROM Produtos where ID =

Esqueci de comentar também mudei o set Produtos = conn.execute para nothing

 

<%
Set conn = Server.CreateObject("ADODB.CONNECTION")
conn.Open DB_CONNECTION

set Produtos = nothing

SQL="SELECT * FROM Produtos where ID =" &session("cod")
Response.write SQL
Response.End()
if not Produtos.eof then
session("ID")=Produtos("ID")
session("parter")=Produtos("parter_number")
session("cod")=Produtos("codigo")
end if
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito