Operação Não Permitida Quando O Objeto Está Fechado.

[fnm.claudia]

ProtIndTipoProtocolo = CStr(Request("ProtIndTipoProtocolo"))

Logado = CStr(Request("Logado"))

UnidNomUnidade = CStr(Request("Unidade"))

CodMenor = CStr(Request("CodMenor"))

CodMaior = CStr(Request("CodMaior"))

Dt1 = Request("dt1")

Dt2 = Request("dt2")

set rsr = server.CreateObject("adodb.recordset")

strsql= "EXEC SpRelatorioMovimentacao '" & Dt1 &"','" & Dt2 &"','" &CodMenor & "','" & CodMaior & "','" & Logado & "','" & UnidNomUnidade &"','" & ProtIndTipoProtocolo & "' "

set con = server.CreateObject("adodb.connection")

Con.Open("Provider=SQLOLEDB.1;Password=;Persist Security Info=False;Initial Catalog=CPRODWeb;Data Source=127.0.0.1;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=20096;User Id=sa;")

Set rsr = Con.Execute(strSQL)

rsr.Open strsql, con, 3

'Response.Write(strsql)

'response.end

%>

O erro ocorre nessa linha : <% if Not rsr.eof Then %>

O erro é :

ADODB.Recordset (0x800A0E78)

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

/ENAP_ASP/CprodWeb/Relatorio/Movimentacao.asp, line 36

[bareta]

o seu rs esta sendo fechado........

e o seu rs ainda esta sendo definido duas vezes

set rsr = server.CreateObject("adodb.recordset")

e

Set rsr = Con.Execute(strSQL)