Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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 />'----------------- 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 min( value1, value2 )
min = iif( value1 < value2, value1, value2 )
end function
function max( value1, value2 )
max = iif( value1 > value2, value1, value2 )
end function
%>
Carregando comentários...