Ir para conteúdo

POWERED BY:

Arquivado

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

Marcelo Pescador

[Resolvido] Response Buffer Limit Exceeded

Por , em ASP Clássico

Recommended Posts

Marcelo Pescador    0

Marcelo Pescador
Postado

Pessoal, estou com um problema com meu códido abaixo, ele da o seguinte erro: "Response Buffer Limit Exceeded", alguém pode me dar uma luz ?

 

<!--#include file="conexao.asp"-->

<%
dim sessao
sessao = Request.QueryString("sessao") 
Session("sessao") = sessao
strsql1="select * from usuario where codigo=" & Session("cod_usuario")
set rs1=Conn.execute(strsql1)
%>

<HTML>
<STYLE type=text/css>
@import url("style.css");
</STYLE>
<HEAD>
<TITLE>Resultado Consulta</TITLE>

</script>
<style media="print">
.oculta
{
visibility: hidden
}
</style>
</script>

<%
Session.LCID = 1046
Session.TimeOut = 600
%>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</HEAD>
<BODY>
<div align="left"><img src="../base_rsvp/images/banner_painel.jpg" width="754" height="100"><br>
 <br>
 <br>
</div>
<table width="755" border="0" cellpadding="0" cellspacing="0">
 <tr>
   <td width="140" valign="top">
     <!--#INCLUDE FILE = "menu.asp" -->    </td>
   <td width="614" align="center" valign="top"><table width="605" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#666666" bgcolor="#663333">
       <tr> 
         <td width="591" colspan="6" bgcolor="#142E61" class="style4"><div align="center">..:: Resultado da Consulta ::..</div></td>
       </tr>
       </table>
     <br>
     <br>
     <br>
     <table width="605" border="0" cellspacing="0" cellpadding="0">
       <tr>
         <td width="12" height="60" bgcolor="#0E2E61"> </td>
         <td width="971" align="center" bgcolor="#FFFFFF"><br />
<% 
query_busca = request.querystring("palavra")
pg = HTTP_REFERER 'pega o nome completo da página

'----------------- Define o número de registros por página ----------------------------

Set rsQuery = Server.CreateObject("adodb.recordset")
rsQuery.CursorLocation = 3
rsQuery.CursorType = 0
rsQuery.LockType = 1

rsQuery.Open"select * from contratos where noiva like '%"& query_busca &"%'", Conn 

Const NumPorPage = 10 'Numero de registros por página
colNun=1
if rsQuery.eof then
%>
<span class="style4">Nenhum resultado com a Palavra</span> <span class="b"><%=query_busca%></span>
<% 

else 
Dim PagAtual
IF Request.QueryString("PagAtual") = "" Then
PagAtual = 1 'Primeira página
Else
PagAtual = Request.QueryString("PagAtual")
End If

rsQuery.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros

rsQuery.MoveFirst 'Move o RecorSet para o início '
rsQuery.PageSize = NumPorPage 'Coloca a quantidade de páginas

Dim TotalPages 'Pega o número total de páginas
TotalPages = rsQuery.PageCount
rsQuery.AbsolutePage = PagAtual  'Configura a página atual
Count = 0 'Zera o contador
DO WHILE NOT rsQuery.EOF And Count < rsQuery.PageSize 

%>
</span>
<table width="99%" border="1" align="center" cellpadding="1" cellspacing="0">
<tr bordercolor="000000">
<% 

For n = 0 To limite
%>

<%
Dim n
n = 0 
do while n < colNum and NOT rsQuery.eof
%>

               <td height="25" colspan="3" valign="top"><div align="center" class="style1">
                 <div align="left" class="style1">
                   <table width="100%" border="0" cellspacing="0">
                     <tr>
                       <td bgcolor="#999999"><font class="style3">  </font><span class="style2"><%=rsQuery("cod_contrato")%></span><span class="style3"> <span class="style2"><%=rsQuery("noiva")%></span></span></td>
                     </tr>
                   </table>
                 </div>
               </div></td>
<%
Count = Count + 1 
n = n + 1
rsQuery.MoveNext

Response.Flush()

LOOP
%>
<% next %>

</tr>

<% loop %>

           </table>
           <br>
           <div align="center" class="nomelink"> <span class="busca4"><br>
             <br>
             </span><span class="style4">Há</span> <%= rsQuery.RecordCount %> <span class="style4">Cadastros</span><br>
<%
Response.Write("<span class='busca4'>Página " & PagAtual & " de " & TotalPages & "<br></span>")
IF PagAtual > 1 THEN 
Response.Write("<a href='"& pg &"?palavra=" & query_busca &"&PagAtual=" & 1 & "' class='nomelink'>")
Response.Write("Primeira") 

Response.Write(" ") 

Response.Write("<a href='"& pg &"?palavra=" & query_busca &"&PagAtual=" & PagAtual - 1 & "' class='nomelink'>")
Response.Write("<<") 

Response.Write(" ") 

Else

Response.Write("Primeira") 
Response.Write(" ") 

Response.Write("<<") 
Response.Write(" ") 


End If

'------------------- numero -------------------------
'---------- Numero de numeros para ser mostrados ----

max_n_mostrados = 10

intervalo = Int(max_n_mostrados /2)
inicio = PagAtual - intervalo
final = PagAtual + intervalo

If CInt(inicio) <1 Then 
inicio = 1
final = max_n_mostrados
END IF
If CInt(final) > CInt(TotalPages) Then final = TotalPages

For i = inicio To final
If CInt(i)=CInt(PagAtual) Then
Response.Write "<font class='b'>[ <B>" & i & "</B>]</font> "

END IF
If CInt(i) < CInt(PagAtual) Then
Response.Write "<a href='"& pg &"?palavra="&query_busca&"&PagAtual=" & i & "' class='nomelink'>" & i & "</a> "
END IF
If CInt(i) > CInt(PagAtual) Then
Response.Write "<a href='"& pg &"?palavra="&query_busca&"&PagAtual=" & i & "' class='nomelink'>" & i & "</a> "
END IF
Next

'------------------------------------------------------

IF CInt(PagAtual) <> CInt(TotalPages) THEN 

'Se estiver na Última página, mostra apenas o botão Anterior e Primeira

Response.Write("<a href='"& pg &"?palavra=" & query_busca &"&PagAtual=" & PagAtual + 1 & "' class='nomelink'>")
Response.Write(">>")
Response.Write(" ") 

Response.Write("<a href='"& pg &"?palavra=" & query_busca &"&PagAtual=" & TotalPages & "' class='nomelink'>")
Response.Write("Ultima")
Else
Response.Write(" ") 

Response.Write(">>") 
Response.Write(" ") 
Response.Write("Ultima") 
End If %>
             <br>
             <br>
           </div>
           <% end if %></td>
         <td width="13" bgcolor="#0E2E61"></td>
       </tr>
     </table></td>
 </tr>
</table>
<div align="center">
 <table width="755" border="0" align="left" cellpadding="0" cellspacing="0">
   <tr>
     <td width="141"> </td>
     <td width="614" class="style7"><div align="center">--------------------------------------------------------------------------------------------------------------------------</div></td>
   </tr>
 </table>
</div>
</body>
</html>
<% 
function iif ( condicao, valor1, valor2 ) 
if condicao then iif = valor1 else iif = valor2 
end function 

function min( value1, value2 ) 
min = iif( value1 < value2, value1, value2 ) 
end function 

function max( value1, value2 ) 
max = iif( value1 > value2, value1, value2 ) 
end function 
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

coloca assim:

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% 
  Response.Buffer = True
...
...
...
   Response.Flush
...
...
...

     Response.Clear

     Response.end()

não esqueça de colocar o Response.Clear para limpar qualquer buffer de saída HTML, se Response.Buffer for falso, esse método irá causar um erro de tempo de execução.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcelo Pescador    0

Marcelo Pescador
Postado

Coloquei os comandos nas seguintes linha: 58, 125 e no final 230,231, mas não rolou tb, olha o código:

 

<!--#include file="conexao.asp"-->

<%
dim sessao
sessao = Request.QueryString("sessao") 
Session("sessao") = sessao
strsql1="select * from usuario where codigo=" & Session("cod_usuario")
set rs1=Conn.execute(strsql1)
%>

<HTML>
<STYLE type=text/css>
@import url("style.css");
</STYLE>
<HEAD>
<TITLE>Resultado Consulta</TITLE>

</script>
<style media="print">
.oculta
{
visibility: hidden
}
</style>
</script>

<%
Session.LCID = 1046
Session.TimeOut = 600
%>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</HEAD>
<BODY>
<div align="left"><img src="../base_rsvp/images/banner_painel.jpg" width="754" height="100"><br>
<br>
<br>
</div>
<table width="755" border="0" cellpadding="0" cellspacing="0">
 <tr>
   <td width="140" valign="top">
     <!--#INCLUDE FILE = "menu.asp" -->    </td>
   <td width="614" align="center" valign="top"><table width="605" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#666666" bgcolor="#663333">
       <tr> 
         <td width="591" colspan="6" bgcolor="#142E61" class="style4"><div align="center">..:: Resultado da Consulta ::..</div></td>
       </tr>
       </table>
     <br>
     <br>
     <br>
     <table width="605" border="0" cellspacing="0" cellpadding="0">
       <tr>
         <td width="12" height="60" bgcolor="#0E2E61"> </td>
         <td width="971" align="center" bgcolor="#FFFFFF"><br />

<%

Response.Buffer = True

query_busca = request.querystring("palavra")
pg = HTTP_REFERER 'pega o nome completo da página

Set rsQuery = Server.CreateObject("adodb.recordset")
rsQuery.CursorLocation = 3
rsQuery.CursorType = 0
rsQuery.LockType = 1

rsQuery.Open"select * from contratos where noiva like '%"& query_busca &"%'", Conn 

Const NumPorPage = 10 'Numero de registros por página
colNun=1
if rsQuery.eof then
%>
<span class="style4">Nenhum resultado com a Palavra</span> <span class="b"><%=query_busca%></span>
<% 
else 
Dim PagAtual
IF Request.QueryString("PagAtual") = "" Then
PagAtual = 1 'Primeira página
Else
PagAtual = Request.QueryString("PagAtual")
End If

rsQuery.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros

rsQuery.MoveFirst 'Move o RecorSet para o início '
rsQuery.PageSize = NumPorPage 'Coloca a quantidade de páginas

Dim TotalPages 'Pega o número total de página
TotalPages = rsQuery.PageCount
rsQuery.AbsolutePage = PagAtual  'Configura a página atual
Count = 0 'Zera o contador
DO WHILE NOT rsQuery.EOF And Count < rsQuery.PageSize 

%>

</span>
<table width="99%" border="1" align="center" cellpadding="1" cellspacing="0">
<tr bordercolor="000000">

<% 
For n = 0 To limite
%>

<%
Dim n
n = 0 
do while n < colNum and NOT rsQuery.eof
%>

               <td height="25" colspan="3" valign="top"><div align="center" class="style1">
                 <div align="left" class="style1">
                   <table width="100%" border="0" cellspacing="0">
                     <tr>
                       <td bgcolor="#999999"><font class="style3">  </font><span class="style2"><%=rsQuery("cod_contrato")%></span><span class="style3"> <span class="style2"><%=rsQuery("noiva")%></span></span></td>
                     </tr>
                   </table>
                 </div>
               </div></td>
<%
Count = Count + 1 
n = n + 1
rsQuery.MoveNext

Response.Flush()

loop

%>

<% next %>

</tr>

<% loop %>

</table>
<br>
<div align="center" class="nomelink"> <span class="busca4"><br>
<br>
</span><span class="style4">Há</span> 

<%= rsQuery.RecordCount 

%> <span class="style4">Cadastros</span><br>

<%
Response.Write("<span class='busca4'>Página " & PagAtual & " de " & TotalPages & "<br></span>")
IF PagAtual > 1 THEN 
Response.Write("<a href='"& pg &"?palavra=" & query_busca &"&PagAtual=" & 1 & "' class='nomelink'>")
Response.Write("Primeira") 

Response.Write(" ") 

Response.Write("<a href='"& pg &"?palavra=" & query_busca &"&PagAtual=" & PagAtual - 1 & "' class='nomelink'>")
Response.Write("<<") 

Response.Write(" ") 

Else

Response.Write("Primeira") 
Response.Write(" ") 

Response.Write("<<") 
Response.Write(" ") 

End If


max_n_mostrados = 10

intervalo = Int(max_n_mostrados /2)
inicio = PagAtual - intervalo
final = PagAtual + intervalo

If CInt(inicio) <1 Then 
inicio = 1
final = max_n_mostrados
END IF
If CInt(final) > CInt(TotalPages) Then final = TotalPages

For i = inicio To final
If CInt(i)=CInt(PagAtual) Then
Response.Write "<font class='b'>[ <B>" & i & "</B>]</font> "

END IF
If CInt(i) < CInt(PagAtual) Then
Response.Write "<a href='"& pg &"?palavra="&query_busca&"&PagAtual=" & i & "' class='nomelink'>" & i & "</a> "
END IF
If CInt(i) > CInt(PagAtual) Then
Response.Write "<a href='"& pg &"?palavra="&query_busca&"&PagAtual=" & i & "' class='nomelink'>" & i & "</a> "
END IF
Next

IF CInt(PagAtual) <> CInt(TotalPages) THEN 

'Se estiver na Última página, mostra apenas o botão Anterior e Primeira

Response.Write("<a href='"& pg &"?palavra=" & query_busca &"&PagAtual=" & PagAtual + 1 & "' class='nomelink'>")
Response.Write(">>")
Response.Write(" ") 

Response.Write("<a href='"& pg &"?palavra=" & query_busca &"&PagAtual=" & TotalPages & "' class='nomelink'>")
Response.Write("Ultima")
Else
Response.Write(" ") 

Response.Write(">>") 
Response.Write(" ") 
Response.Write("Ultima") 
End If %>
             <br>
             <br>
           </div>
           <% end if %></td>
         <td width="13" bgcolor="#0E2E61"></td>
       </tr>
     </table></td>
 </tr>
</table>
<div align="center">
 <table width="755" border="0" align="left" cellpadding="0" cellspacing="0">
   <tr>
     <td width="141"> </td>
     <td width="614" class="style7"><div align="center">--------------------------------------------------------------------------------------------------------------------------</div></td>
   </tr>
 </table>

Response.Clear
Response.end()

</div>
</body>
</html>
<% 
function iif ( condicao, valor1, valor2 ) 
if condicao then iif = valor1 else iif = valor2 
end function 

function min( value1, value2 ) 
min = iif( value1 < value2, value1, value2 ) 
end function 

function max( value1, value2 ) 
max = iif( value1 > value2, value1, value2 ) 
end function 
%>

 

Só não coloquei essa linha: "<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>"

 

Achei o erro, na verdade uma outra linha que estava errada: ao invés de escrever: "colNun=1" - "n", o correto é com "M" - "colNum=1".

Valeu pela força de todos.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

coloque o Option Explicit no topo da página significa que você terá que declarar todas as variáveis antes de usá-las. Ou seja, você não poderá simplesmente usar variavel = "algum_valor", tem que ter o Dim variavel antes. Isso o ajuda a manter o código bem estruturado, fácil de entender, erro de nome de variavel e ainda há um pequeno ganho de performance.

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