Bom dia, gostaria de esclarecer uma dúvida referente a este erro apontado abaixo. Lembrando que no meu ambiente e em mais dois servidores diferentes funcionou perfeitamente o codigo. Mas quando subo para o servidor de produção ocorre este erro. Alguem teria alguma ideia do que poderia ser? Agradeço desde já.
o erro:
Microsoft OLE DB Provider for Oracle error '80004005'
ORA-01023: Cursor context not found (Invalid cursor number)
/servicos.simulador.asp, line 65
linha 65: set rs = cmd.execute
o código:
<%
set objConexao = server.createobject("adodb.connection")
objConexao.Open Application("strConexao")
objConexao.BeginTrans
strSQL = " Select QTD_SALDO_PONTO, DAT_REFERENCIA_SALDO "
strSQL = strSQL & " from fidelidade.titular "
strSQL = strSQL & " where cod_titular = " & Session("cod_titular")
set rsSaldoAtual = server.createobject("adodb.recordset")
rsSaldoAtual.ActiveConnection = objConexao'
rsSaldoAtual.Source = strSQL
rsSaldoAtual.Open
qtd_saldo = rsSaldoAtual("qtd_saldo_ponto")
rsSaldoAtual.close
set rsSaldoAtual = nothing
SQL = "{call FIDELIDADE.PK_SITE_VOCE.SP_CONSULTA_PREMIOS_FIDELIDADE(?,?,?,?,?,?,?,?,{resultset 0, p_resultado},?)}"
set cmd = server.CreateObject ("ADODB.Command")
with cmd
set .ActiveConnection = objConexao
.CommandText = SQL
.CommandType = 1
set param = .CreateParameter("p_operadora", 131 , 1 , , Session("operadora"))
.Parameters.Append param
set param = .CreateParameter("p_cod_estrutura", 8 , 1 , , "")
.Parameters.Append param
set param = .CreateParameter("p_cpf_cnpj", 8 , 1 , , Session("num_cpf"))
.Parameters.Append param
if request("processar") = "s" then
set param = .CreateParameter("p_saldo_simulacao", 131 , 1 , , request("pontos"))
.Parameters.Append param
else
set param = .CreateParameter("p_saldo_simulacao", 131 , 1 , , qtd_saldo)
.Parameters.Append param
end if
if Session("nivel") = "00" then
set param = .CreateParameter("p_varejo_corp", 131 , 1 , , "1")
.Parameters.Append param
else
set param = .CreateParameter("p_varejo_corp", 131 , 1 , , "2")
.Parameters.Append param
end if
set param = .CreateParameter("p_origem", 8 , 1 , , "V")
.Parameters.Append param
set param = .CreateParameter("p_tipo_acesso", 131 , 1 , , Session("indAcesso"))
.Parameters.Append param
set param = .CreateParameter("p_status", 8 , 3 , , "")
.Parameters.Append param
set param = .CreateParameter("p_dsc_erro", 8 , 3 , , "")
.Parameters.Append param
end with
set rs = server.CreateObject ("ADODB.Recordset")
set rs = cmd.execute
%>
.
.
imprimo o resultado fazendo um Do While Not rs.EOF
.
.
<%
objConexao.RollbackTrans
objConexao.close
set objConexao = nothing
%>
