Alter PROCEDURE sp_active_web_notification
@RECIPIENT char(255),
@MESSAGE char(255)
AS

DECLARE @object int,
	@hr int,
	@property varchar(255),
	@return varchar(255)

EXEC @hr = sp_OACreate 'ActiveNotification.clsNotification', @object OUT

IF @hr <> 0
BEGIN
	EXEC sp_displayoaerrorinfo @object, @hr
	RETURN
END

EXEC @hr = sp_OASetProperty @object,'Recipient', @RECIPIENT
IF @hr <> 0
BEGIN
	EXEC sp_displayoaerrorinfo @object, @hr
	RETURN
END
EXEC @hr = sp_OASetProperty @object,'Message', @MESSAGE
IF @hr <> 0
BEGIN
	EXEC sp_displayoaerrorinfo @object, @hr
	RETURN
END
EXEC @hr = sp_OAGetProperty @object,'SendNotification', @property OUT
IF @hr <> 0
BEGIN
	EXEC sp_displayoaerrorinfo @object, @hr
	RETURN
END
EXEC sp_OADestroy @object,'SendNotification', @object, @hr
IF @hr <> 0
BEGIN
	EXEC sp_displayoaerrorinfo @object, @hr
	RETURN
END