Ir para conteúdo

POWERED BY:

Arquivado

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

cgrunenberg

Erro: Operação não permitida quando o objeto está fechado.

Por , em ASP Clássico

Recommended Posts

cgrunenberg    0

cgrunenberg
Postado

Oi pessoal, estou aprendendo ASP e tenho um código que peguei da net que não tá funcionando. Será que vcs podem ajudar-me??? Obrigada.

 

Erro:

ADODB.Recordset erro '800a0e78'

Operação não permitida quando o objeto está fechado.

/resultados.asp, line 44

 

Código:

43) exe.PageSize = intPageSize

44) If Not(exe.EOF) Then exe.AbsolutePage = intCurrentPage

 

Código Completo:

<%@ LANGUAGE="VBSCRIPT"%><!--#include file="includes/config.asp"--><!--#include file="includes/abrebanco.asp"--><!--#include file="includes/adovbs.inc"--><%var_categoria = Request.form("f_categoria") 'variável "var_categoria" recebe o valor por meio de um controle (método post) que o usuário digitou no "f_categoria" var_tipo = Request.form("f_tipo")var_local = Request.form("f_local")var_valor = Request.Form("f_valor")Response.Expires = 0 'toda pesquisa deverá ser efetuada no servidor e não no buffer"Const intPageSize = 20 If Request.Querystring = "" then 'se o valor da variavel (metodo get) for igual a vazio, então	intCurrentPage = 1  'exiba uma linha Else 'senão	intCurrentPage = CInt(Request.Querystring("CurrentPage")) '	Select Case Request.Querystring("Submit")		Case "Previous" 'caso Anterior			intCurrentPage = intCurrentPage -1'volte uma página		Case "Next" 'caso Próxima			intCurrentPage = intCurrentPage +1 'avance uma página		End Select 'fim selectEnd If 'fim seSet exe = Server.CreateObject("ADODB.Recordset")exe.CursorLocation = adUseClientexe.CursorType = adOpenStaticexe.CacheSize = intPageSizeIf var_valor = "Informe o valor" Then var_valor = "> 0"End Ifsql_categ = "SELECT DISTINCT categoria FROM imoveis"sql_tipo = "SELECT DISTINCT tipo FROM imoveis"sql_local = "SELECT DISTINCT bairro FROM imoveis"Set exe_categ = banco.execute(sql_categ)Set exe_tipo = banco.execute(sql_tipo)Set exe_local = banco.execute(sql_local)exe.PageSize = intPageSizeIf Not(exe.EOF) Then exe.AbsolutePage = intCurrentPageintTotalPages = exe.PageCount%><title><%=titulo%></title><body background="fundo.jpg" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><link href="<%=local%>includes/styles/link.css" rel="stylesheet" type="text/css"><table width="765" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">  <tr>	<td> <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="765" height="140" VIEWASTEXT>		<param name="movie" value="topo.swf">		<param name="quality" value="high">		<param name="wmode" value="transparent">		<embed src="topo.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="765" height="140"></embed></object></td>  </tr>  <tr>	<td><table width="750" border="0" align="center" cellpadding="0" cellspacing="0">		<tr>		  <td width="53" height="284" valign="top"> </td>		  <td width="637" height="0" valign="top"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">			  <tr> 				<td height="0"> </td>			  </tr>			  <tr> 				<td height="0"><%=fonte02%><strong>Resultado da busca</strong></td>			  </tr>			  <tr> 				<td height="0"> </td>			  </tr>			  <tr> 				<td height="0"><div align="center"><%=fonte02%> 					<%						If var_categoria = "Informe a categoria" Then							Response.Write "Informe a categoria"						Elseif var_tipo = "Informe o tipo" Then							Response.Write "Informe o tipo"						Elseif var_local = "Informe o bairro" Then							Response.Write "Informe o bairro"						Else					%>				  </div></td>			  </tr>			  <tr> 				<td height="0"> 				<%						If exe.EOF then							Response.Write fonte02 & "<center>Não foi encontrado nenhum imóvel com essas especificações.</center>"						Else				%>				  <div align="center"></div>				  <table width="100%" cellpadding="0" cellspacing="1" bgcolor="<%=table_color%>">					<tr> 					  <td width="60" bgcolor="<%=tit_fundo%>"><%=fonte03%> <div align="center">Cód.</div></td>					  <td width="122" height="20" bgcolor="<%=tit_fundo%>"><%=fonte03%> 						<div align="center">Local</div></td>					  <td width="55" bgcolor="<%=tit_fundo%>"><%=fonte03%> <div align="center">Área</div></td>					  <td width="60" bgcolor="<%=tit_fundo%>"><%=fonte03%> <div align="center">Dorm.</div></td>					  <td width="53" bgcolor="<%=tit_fundo%>"><%=fonte03%> <div align="center">Suítes</div></td>					  <td width="56" bgcolor="<%=tit_fundo%>"><%=fonte03%> <div align="center">Foto</div></td>					  <td width="62" bgcolor="<%=tit_fundo%>"><%=fonte03%> <div align="center">Tipo</div></td>					  <td width="109" bgcolor="<%=tit_fundo%>"><%=fonte03%> <div align="center">Preço(R$)</div></td>					  <td width="35" bgcolor="<%=tit_fundo%>"><div align="center"></div></td>					</tr>					<%For intI = 1 to exe.PageSize%>					<%IF linha THEN%>					<tr bgcolor="<%=td_color01%>"> 					  <%ELSE%>					<tr bgcolor="<%=td_color02%>"> 					  <%END IF : linha = not linha%>					  <td width="60"><div align="center"><%=fonte01%><%=exe("id")%></div></td>					  <td><div align="left"></div>						<%=fonte01%><%=exe("bairro")%></td>					  <td><div align="center"><%=fonte01%><%=exe("area")%></div></td>					  <td><div align="center"><%=fonte01%><%=exe("dormitorio")%></div></td>					  <td><div align="center"><%=fonte01%><%=exe("suite")%></div></td>					  <td width="56"><div align="center"> 						  <%If exe("foto1") = "" Then Response.Write foto_nao Else Response.Write foto_sim End If%>						</div></td>					  <td><div align="center"><%=fonte01%><%=exe("tipo")%></div></td>					  <td><div align="left"></div>						<%=fonte01%><%=FormatCurrency(exe("preco"))%></td>					  <td width="35"><div align="center"><a href="mais.asp?categoria=<%=exe("categoria")%>&id=<%=exe("id")%>"><strong><%=fonte01%>mais</strong></a></div></td>					</tr>					<%exe.movenext					If exe.EOF Then Exit For					Next%>					<tr> 					  <td height="20" colspan="9" bgcolor="<%=tit_fundo%>"><div align="right"> 						  <%response.write fonte04&"Página: "for i = 1 to exe.pagecountif i = cint(intCurrentPage) then   response.write i & " "else   response.write "<a href='" & request.servervariables("script_name") & "?currentpage=" & i & "'>" & i & "</a> "end ifnext%>						</div></td>					</tr>				  </table>				  <%End ifEnd If%>				</td>			  </tr>			  <tr>				<td height="0"> </td>			  </tr>			  <tr> 				<td height="0"><div align="center"></div></td>			  </tr>			  <tr> 				<td height="0"><div align="center"><%=fonte01%><a href="javascript:window.history.go(-1)">Voltar</a>   -   <a href="<%=local%>">Retornar 					a pág</a><a href="<%=local%>">ina principal</a> </div></td>			  </tr>			  <tr> 				<td height="0"> </td>			  </tr>			</table></td>		  <td width="60" valign="top"><div id="Layer2" style="position:absolute; left:707px; top:0px; width:188px; height:127px; z-index:52"> 			  <form action="resultados.asp" method="post">				<table width="165" height="110" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="0072b8">				  <tr> 					<td height="25" align="center" valign="middle"><font color="0072b8"><img src="imagens/index/banner/busca.jpg" width="137" height="22"></font></td>				  </tr>				  <tr> 					<td height="25" align="center" valign="middle"> <div align="center"> 						<select name="f_categoria" size="1" class="formindex">						  <option selected>Informe a categoria</option>						  <%							WHILE NOT exe_categ.eof								Response.Write "<option>"& exe_categ("categoria") &"</option>"								exe_categ.MOVENEXT							WEND						  %>						</select>					  </div></td>				  </tr>				  <tr> 					<td height="25" align="center" valign="middle"> <div align="center"> 						<select name="f_tipo" size="1" class="formindex">						  <option selected>Informe o tipo</option>						  <%							WHILE NOT exe_tipo.eof								Response.Write "<option>"& exe_tipo("tipo") &"</option>"								exe_tipo.MOVENEXT							WEND						  %>						</select>					  </div></td>				  </tr>				  <tr> 					<td height="25" align="center" valign="middle"> <div align="center"> 						<select name="f_local" size="1" class="formindex">						  <option selected>Informe o local</option>						  <%							WHILE NOT exe_local.eof								Response.Write "<option>"& exe_local("bairro") &"</option>"								exe_local.MOVENEXT							WEND						  %>						</select>					  </div></td>				  </tr>				  <tr> 					<td height="20"> <div align="center"> 						<input name="imageField" type="image" src="imagens/index/banner/buscar.jpg" width="76" height="18" border="0">					  </div></td>				  </tr>				</table>			  </form>			</div></td>		</tr>	  </table></td>  </tr>  <tr>	<td valign="top"><img src="imagens/index/rodape.jpg" width="765" height="17" align="top"></td>  </tr></table></body><!--#include file="includes/fechabanco.asp"-->

Compartilhar este post

Link para o post
Compartilhar em outros sites

Buscopan    0

Buscopan
Postado

Não olhei o código, mas normalmente este erro ocorre quando você fecha o recordset e depois tenta extrair um dado dele ...Verifique se não é isso que aconteceu ... E deixe para fechar depois q você exibir / processar o que precisa ...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Daniel1    1

Daniel1
Postado

Deu esse erro, agora:

Instrução esperada

/resultados.asp, line 43

If Not(exe.EOF) Then <br>

---------------------^

 

 

O que eu faço??

Faltou o End if no código

Espero ajudar.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

acho que o erro ai são os parenteses tudo junto

 

alias eles são desnecessário neste caso

 

retire-os e veja se resolve

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