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