Chamada de RecordSet

[mariano.nunes 0]

Galera não estou consequindo chamar esse recorset .... esta dando erro

 

ADODB.Recordset error '800a0e78'

 

Operation is not allowed when the object is closed.

 

O codigo é esse :

 

Function Abre_Conexao ()	Dim Conexao	'mssql02.bighost.com.br'	Set objConexao = server.createObject("adodb.connection")	'conexao BigHost	'objConexao.Open "DSN=;UID=dantell_guest;PWD=;database="	'conexao ISM'	objConexao.Open "DSN=;UID=;PWD=;database="	Conexao = "Provider=SQLOLEDB; Data Source=;Network Library=DBMSSOCN;Initial Catalog=; User Id=; Password="	Set objConexao = server.createObject("adodb.connection")	objConexao.open Conexao			Set Abre_Conexao = ObjConexao	End FunctionFunction Abre_Recordset (strSQL, objConexao)	Dim objRecordset	Set objRecordset = Server.CreateObject("ADODB.Recordset")	objRecordset.Open strSQL, objConexao		Set Abre_Recordset = objRecordset	Set objRecordset = Nothing		End Function

Chamada no codigo :

 

<%

Function Consulta_Datas_Campanha(strCodigo_Ra)

Dim strSql

'A SP foi substituída, pois não posso mudar o código durante o uso

'Agora passamos o código da ra e/ou o setor

 

'strSql = "Execute CEN_C10_SP_DATAS_CAMPANHA_CALL " & strCodigo_Ra & Chr(10)

strSql = "Execute CEN_C10_SP_DATAS_CAMPANHA_CALL_WEB '" & strCodigo_Ra & "',''" & Chr(10)

 

Set objConexao = Abre_Conexao

Set Consulta_Datas_Campanha = Abre_Recordset(strSql, objConexao)

'Response.Write("EXECUTOU SP")

 

end function

%>

 

 

 

'Select na tabela de dados da revendedora

Set objRecordset = Consulta_Datas_Campanha(Session("CODIGO_RA"))

 

if (objRecordset.EOF) then

Response.Write("Datas de campanha não encontradas")

Response.End

else

busca

end if

[silas_i 0]

Só uma coisa, você colocou os dados do seu banco aqui !?

[mariano.nunes 0]

Po valeu .. vacilei legal agora ...

[silas_i 0]

é só editar.rs

[mon123 0]

não entendi ??colocar o : objRecordset.Open strSQL, objConexao Só depois ???