Ir para conteúdo

POWERED BY:

Arquivado

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

luckiecroft

Recordset dando fechado

Por , em ASP Clássico

Recommended Posts

luckiecroft    0

luckiecroft
Postado

Não consiguo descobrir porque está dando esta mensagem se eu não estou fechando o meu recordset.

 

ADODB.Recordset (0x800A0E78)

Operation is not allowed when the object is closed.

/artur/includes/pesquisa.htm, line 92

 

O código está abaixo. Agradeço a ajuda desde já.

 

 

 

 

#####################################

 

ASP

[*]<center>

[*]<img border="0" src="Imgs/titulo_pesquisa.gif">

[*]<br>

[*]<%

[*]'######## VARIÁVEIS RECEBENDO OS VALORES #############

[*]

[*]n_page=request("n_page")

[*]If n_page="" Then n_page = 1

[*]var_Caixa_busca = Request.Form("Caixa_busca")

[*]var_Setor_do_site = Cint(Request.Form("Combo_busca"))

[*]

[*]'######## CONEXAO #############

[*]

[*]Call AbreConexao

[*]Set rsFiltra_Busca=Server.CreateObject("ADODB.Recordset")

[*]Set rsSel_Temas=Server.CreateObject("ADODB.Recordset")

[*]

[*]'##############################

[*]

[*]IF var_Setor_do_site = 6 THEN

[*]' SQL.....

[*]ELSE

[*]IF var_Setor_do_site = 5 THEN

[*]' SQL

[*]ELSE

[*]IF var_Setor_do_site = 4 THEN

[*]' SQL

[*]ELSE

[*]IF var_Setor_do_site = 3 THEN

[*]' ######################## BUSCA EM NOTÍCIAS ################

[*]

[*]rsFiltra_Busca.Open "SELECT * FROM Noticias WHERE Titulo_Noticias LIKE '%"&var_Caixa_busca&"%' ORDER BY (date() - Noticias.Data_Noticias)", conexaoSite, 3,3

[*]rsFiltra_Busca.PageSize=13

[*]If rsFiltra_Busca.EOF Then

[*]Response.Write "<br><br>"

[*]Response.Write "<font color='#FF0000' face='Tahoma' size='3'>" & "Não existem registros para exibição..." & "</font>"

[*]Else

[*]rsFiltra_Busca.AbsolutePage = Cint(n_page)

[*]contador=0

[*]End If

[*]

[*]' ##########################################################

[*]ELSE

[*]IF var_Setor_do_site = 2 THEN

[*]

[*]' #################### BUSCA EM QUESTÕES ###################

[*]

[*]rsFiltra_Busca.Open "SELECT * FROM Questoes WHERE Questao LIKE '%"&var_Caixa_busca&"%'", conexaoSite, 3,3

[*]rsFiltra_Busca.PageSize=3

[*]If rsFiltra_Busca.EOF Then

[*]Response.Write "<br><br>"

[*]Response.Write "<font color='#FF0000' face='Tahoma' size='3'>" & "Não existem registros para exibição..." & "</font>"

[*]Else

[*]rsFiltra_Busca.AbsolutePage = Cint(n_page)

[*]contador=0

[*]End If

[*]

[*]' ##########################################################

[*]ELSE

[*]IF var_Setor_do_site = 1 THEN

[*]' ######################## BUSCA EM AGENDA ################

[*]

[*]rsFiltra_Busca.Open "SELECT * FROM Agenda WHERE Evento LIKE '%"&var_Caixa_busca&"%' ORDER BY (date() - Agenda.Data_Evento)", conexaoSite, 3,3

[*]rsFiltra_Busca.PageSize=13

[*]If rsFiltra_Busca.EOF Then

[*]Response.Write "<br><br>"

[*]Response.Write "<font color='#FF0000' face='Tahoma' size='3'>" & "Não existem registros para exibição..." & "</font>"

[*]Else

[*]rsFiltra_Busca.AbsolutePage = Cint(n_page)

[*]contador=0

[*]End If

[*]

[*]' ##########################################################

[*]END IF

[*]END IF

[*]END IF

[*]END IF

[*]END IF

[*]END IF

[*]%>

[*]

[*]<!--Início do Meio da Pesquisa-->

[*]

[*]<table border="0" cellpadding="0" cellspacing="0" width="350">

[*]<tr>

[*]<td width="10" height="10"></td>

[*]<td width="330" height="10" colspan="2"></td>

[*]<td width="10" height="10"></td>

[*]</tr>

[*]

[*]<%

[*]DO While not rsFiltra_Busca.EOF AND contador < rsFiltra_Busca.PageSize

[*]

[*]IF var_Setor_do_site = 6 THEN

[*]' SQL.....

[*]ELSE

[*]IF var_Setor_do_site = 5 THEN

[*]' SQL

[*]ELSE

[*]IF var_Setor_do_site = 4 THEN

[*]' SQL

[*]ELSE

[*]IF var_Setor_do_site = 3 THEN

[*]' ######################## BUSCA EM NOTÍCIAS ################

[*]

[*]Num_Noticia = rsFiltra_Busca.fields("Cod_Noticias")

[*]

[*]' ##########################################################

[*]ELSE

[*]IF var_Setor_do_site = 2 THEN

[*]' ######################## BUSCA EM QUESTÕES ################

[*]

[*]Num_Noticia = rsFiltra_Busca.fields("Cod_Questoes")

[*]

[*]' ##########################################################

[*]ELSE

[*]IF var_Setor_do_site = 1 THEN

[*]' ######################## BUSCA EM AGENDA ################

[*]

[*]Num_Agenda = rsFiltra_Busca.fields("Cod_Agenda")

[*]

[*]' ##########################################################

[*]END IF

[*]END IF

[*]END IF

[*]END IF

[*]END IF

[*]END IF

[*]%>

[*]

[*]<tr>

[*]<td width="10" height="3"></td>

[*]<td width="20" height="2" valign="middle" align="center">

[*]

[*]<img border="0" src="Imgs/marcador_links.gif" width="16" height="9">

[*]

[*]</td>

[*]<td width="307" height="2" valign="top">

[*]<br>

[*]<Font face="Tahoma" size="2" color="#0000ff">

[*]

[*]<%

[*]IF var_Setor_do_site = 6 THEN

[*]' SQL.....

[*]ELSE

[*]IF var_Setor_do_site = 5 THEN

[*]' SQL

[*]ELSE

[*]IF var_Setor_do_site = 4 THEN

[*]' SQL

[*]ELSE

[*]IF var_Setor_do_site = 3 THEN

[*]' ######################## BUSCA EM NOTÍCIAS ################

[*]

[*]Response.Write rsFiltra_Busca.Fields("Data_Noticias")

[*]

[*]' ##########################################################

[*]ELSE

[*]IF var_Setor_do_site = 2 THEN

[*]' ######################## BUSCA EM QUESTÕES ################

[*]

[*]Tema_Selecionado = CInt(rsFiltra_Busca.Fields("Cod_Temas"))

[*]rsSel_Temas.Open "SELECT * FROM Temas WHERE Cod_Temas=" & Tema_Selecionado & "", conexaoSite, 3,3

[*]Response.Write rsSel_Temas.Fields("Titulo_Temas")

[*]rsSel_Temas.Close

[*]

[*]' ##########################################################

[*]ELSE

[*]IF var_Setor_do_site = 1 THEN

[*]' ######################## BUSCA EM AGENDA ################

[*]

[*]Response.Write rsFiltra_Busca.Fields("Data_Evento")

[*]

[*]' ##########################################################

[*]END IF

[*]END IF

[*]END IF

[*]END IF

[*]END IF

[*]END IF

[*]%>

[*]

[*]</font>

[*]<br>

[*]

[*]<%

[*]IF var_Setor_do_site = 6 THEN

[*]' SQL.....

[*]ELSE

[*]IF var_Setor_do_site = 5 THEN

[*]' SQL

[*]ELSE

[*]IF var_Setor_do_site = 4 THEN

[*]' SQL

[*]ELSE

[*]IF var_Setor_do_site = 3 THEN

[*]' ######################## BUSCA EM NOTÍCIAS ################

[*]

[*]Response.Write "<a href='noticias.asp?Noticia=" & rsFiltra_Busca.fields("Cod_Noticias") & "' class='links_int'>"

[*]Response.Write rsFiltra_Busca.Fields("Titulo_Noticias") & "</a>"

[*]

[*]' ##########################################################

[*]ELSE

[*]IF var_Setor_do_site = 2 THEN

[*]' ######################## BUSCA EM QUESTÕES ################

[*]

[*]Response.Write "<a href='questoes.asp?Tema=" & rsFiltra_Busca.fields("Cod_Questoes") & "' class='links_int'>"

[*]Response.Write rsFiltra_Busca.Fields("Questao") & "</a>"

[*]

[*]' ##########################################################

[*]ELSE

[*]IF var_Setor_do_site = 1 THEN

[*]' ######################## BUSCA EM AGENDA ################

[*]

[*]Response.Write "<a href='agenda.asp?Agenda=" & rsFiltra_Busca.fields("Cod_Agenda") & "' class='links_int'>"

[*]Response.Write rsFiltra_Busca.Fields("Evento") & "</a>"

[*]

[*]' ##########################################################

[*]END IF

[*]END IF

[*]END IF

[*]END IF

[*]END IF

[*]END IF

[*]%>

[*]

[*]</td>

[*]<td width="10" height="3"></td>

[*]</tr>

[*]<tr>

[*]<td width="10" height="5"></td>

[*]<td width="20" valign="middle" height="5" align="center">

[*]</td>

[*]<td width="307" valign="top" height="5">

[*]</td>

[*]<td width="10" height="5"></td>

[*]</tr>

[*]

[*]<%

[*]rsFiltra_Busca.MoveNext

[*]contador=contador+1

[*]LOOP

[*]%>

[*]

[*]<tr>

[*]<td width="10"></td>

[*]<td width="330" colspan="2"></td>

[*]<td width="10"></td>

[*]</tr>

[*]</table>

[*]<!--Fim do Meio da Pesquisa-->

[*]

[*]<%

[*]

[*]response.write "<br>"

[*]

[*]For navega= 1 to rsFiltra_Busca.PageCount

[*]

[*]If navega= Cint(n_page) Then

[*]

[*]response.write navega

[*]

[*]Else

[*]

[*]response.write " "& "<a href=pesquisa.asp?n_page="&navega&" class='saiba_mais'>"&navega&"</a>"& " "

[*]

[*]End If

[*]Next

[*]

[*]response.write "<br>"

[*]anterior=n_page-1

[*]proxima=n_page+1

[*]

[*]If not anterior = 0 Then

[*]

[*]response.write "<a href=pesquisa.asp?n_page="&anterior&" class='saiba_mais'>Anterior</a>   "

[*]

[*]End If

[*]

[*]If proxima < navega Then

[*]

[*]response.write " <a href=pesquisa.asp?n_page="&proxima&" class='saiba_mais'>Próxima</a>"

[*]

[*]End If

[*]

[*]%>

######################################

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Qual é a linha 92?

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

oláeu editei seu primeiro post, colocando a tag ASP.Assim, fica facil visualizar as linhas e os codigos.Veja se seu recordset,´que é usado na linha do erro foi aberto, ou se ele já nao foi fechado

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