результат возвращается в параметре

никогда не писал на ASP, но в Delphi, используя tlb (C:\Program Files\Common Files\System\ado), т.е. без использования ее собственных компонент нижеприведенный код работает.


CREATE PROCEDURE GET_SP_RESULT
AS
RETURN 444

------------

uses ActiveX, ADODB_TLB;

procedure TForm1.Button1Click(Sender: TObject);
const
CONN_STRING = 'Provider=SQLOLEDB.1;....'
var
FConnection: _Connection;
FCommand: _Command;
RecordsAffetched: OleVariant;
AParams: OleVariant;
Parameter:_Parameter;
begin
CoCreateInstance(CLASS_Connection, nil, CLSCTX_INPROC_SERVER or
CLSCTX_LOCAL_SERVER, _Connection, FConnection);
FConnection.Open(CONN_STRING, '', '', adConnectUnspecified);
FConnection.CursorLocation := adUseClient;
CoCreateInstance(CLASS_Command, nil, CLSCTX_INPROC_SERVER or
CLSCTX_LOCAL_SERVER, _Command, FCommand);
FCommand.CommandText := 'GET_SP_RESULT';
FCommand.CommandType := adCmdStoredProc;
FCommand.Set_ActiveConnection(FConnection);

-----
Parameter:= FCommand.CreateParameter('RETURN_VALUE',
adInteger, adParamReturnValue, 0, 0);
FCommand.Parameters.Append(Parameter);

или

FCommand.Parameters.Refresh;
-----

FCommand.Execute(RecordsAffetched, AParams, adOptionUnspecified);
Caption:= FCommand.Parameters[0].Value;
end;