Invalid Return Value From Stored Proc From VC++ 6.0

I have a stored procedure that takes a computer name (nvarchar) and either updates a time stamp in a matching row or adds a new row when no match is found based on the computer name (replicates a set of rows in another table as well in the case of not found).

When the row is unmatched, an output param (int) is set to 1 indicating it is new. When found, a zero is placed into the output parameter.

This stored procedure worked fine until we recently upgraded to SQL Server Express (2005).

C++ code:

_bstr_t conn_str = CONN_STR;
conn_str += (LPCTSTR)_server_name;

try
{
_ConnectionPtr epi_conn;
_CommandPtr cmd("ADODB.Command");
_ParameterPtr param;
long addfg;
_variant_t var_addfg;

//
// connect to database
//
epi_conn.CreateInstance(__uuidof(Connection));
epi_conn->Open(conn_str,"","",adConnectUnspecified);

cmd->ActiveConnection = epi_conn;
cmd->CommandText = "qry_DBUpdWorkstation";
cmd->CommandType = adCmdStoredProc;

//
// setup stored procedure call
//
param = cmd->CreateParameter (_bstr_t("@s_computer_name"), adVarChar, adParamInput, 31);
cmd->Parameters->Append(param);
param->Value = client_name;

param = cmd->CreateParameter (_bstr_t("@l_addfg"), adInteger, adParamOutput, 4);
cmd->Parameters->Append(param);

//
// debug output
//
if (trace_fp)
{
COleDateTime cur_dt = COleDateTime::GetCurrentTime();
fwprintf(trace_fp, L"%s - clsSrvrCtrlr::UpdWorkstation 1 client=%s
",
cur_dt.Format(), client_name);
fflush(trace_fp);
}

cmd->Execute(NULL, NULL, adCmdStoredProc);

var_addfg = cmd->Parameters->Item[_variant_t("@l_addfg")]->Value;
addfg = var_addfg.iVal;

//
// done with stored proc
//
epi_conn->Close();

if (trace_fp)
{
COleDateTime cur_dt = COleDateTime::GetCurrentTime();
fwprintf(trace_fp, L"%s - clsSrvrCtrlr::UpdWorkstation 2 var_addfg.vt=%d, var_addfg.iVal=%d
",
cur_dt.Format(), var_addfg.vt, var_addfg.iVal);
fflush(trace_fp);
}



and the stored proc:

set ANSI_NULLS OFF

set QUOTED_IDENTIFIER OFF

GO

-- Database Version 5.5.0

ALTER PROCEDURE [dbo].[qry_DBUpdWorkstation]

@s_computer_name nvarchar(31),

@l_addfg int OUTPUT

AS

SET NOCOUNT ON

DECLARE @d_update_dt datetime

DECLARE @l_msg_cd int

DECLARE @b_view_local bit

DECLARE @b_view_global bit

DECLARE @l_alert_type smallint

DECLARE @s_sound_file nvarchar(255)

DECLARE @l_wscd int

SELECT @d_update_dt=UpdateDT

FROM dbo.tblWorkstations

WHERE ComputerNameTxt=@s_computer_name

SET @l_addfg = 0

IF @d_update_dt IS NULL

BEGIN

INSERT tblWorkstations (ComputerNameTxt, UpdateDT, OnlineFg)

VALUES (@s_computer_name, GETDATE(), 0)

SET @l_wscd = SCOPE_IDENTITY()

DECLARE msg_cursor SCROLL CURSOR FOR

SELECT SysMsgCd, ViewLocalFg, ViewGlobalFg, AlertTypeVal, SoundFileTxt

FROM tblMsgAlerts

WHERE WorkstationCd = -1

OPEN msg_cursor

FETCH FIRST FROM msg_cursor INTO

@l_msg_cd, @b_view_local, @b_view_global, @l_alert_type, @s_sound_file

WHILE @@fetch_status = 0

BEGIN

INSERT tblMsgAlerts (WorkstationCd, SysMsgCd, ViewLocalFg, ViewGlobalFg, AlertTypeVal, SoundFileTxt)

VALUES (@l_wscd, @l_msg_cd, @b_view_local, @b_view_global, @l_alert_type, @s_sound_file)

FETCH NEXT FROM msg_cursor INTO

@l_msg_cd, @b_view_local, @b_view_global, @l_alert_type, @s_sound_file

END

CLOSE msg_cursor

DEALLOCATE msg_cursor

SET @l_addfg = 1

END

ELSE

BEGIN

UPDATE tblWorkstations

SET UpdateDT = GETDATE()

WHERE ComputerNameTxt=@s_computer_name

END



The stored proc ALWAYS returns 0 but will execute the code to insert the new row when not found and replicate the rows in the second table. Any ideas, suggestions?

Thanks