comm = Server.CreateObject ("ADODB.Command");
comm.ActiveConnection = conn;
comm.CommandType = adCmdStoredProc;
comm.CommandText = "usp_check";
comm.Parameters.Append (comm.CreateParameter ("_id", adInteger, adParamInput,  4 , Number (Request.QueryString ("id"))));
r_set = comm.Execute ();
if (r_set.BOF || r_set.EOF)
   Response.Write ("<H1>проверкa успешна.<H1>");
else
{
   .....
}

ADODB.Recordset (0x800A0E78)
Operation is not allowed when the object is closed.