||cw

Alter PROCEDURE sp_active_web_notification@RECIPIENT char(255),@MESSAGE char(255)ASDECLARE @object int,	@hr int,	@property varchar(255),	@return varchar(255)EXEC @hr = sp_OACreate 'ActiveNotification.clsNotification', @object OUTIF @hr <> 0BEGIN	EXEC sp_displayoaerrorinfo @object, @hr	RETURNENDEXEC @hr = sp_OASetProperty @object,'Recipient', @RECIPIENTIF @hr <> 0BEGIN	EXEC sp_displayoaerrorinfo @object, @hr	RETURNENDEXEC @hr = sp_OASetProperty @object,'Message', @MESSAGEIF @hr <> 0BEGIN	EXEC sp_displayoaerrorinfo @object, @hr	RETURNENDEXEC @hr = sp_OAGetProperty @object,'SendNotification', @property OUTIF @hr <> 0BEGIN	EXEC sp_displayoaerrorinfo @object, @hr	RETURNENDEXEC sp_OADestroy @object,'SendNotification', @object, @hrIF @hr <> 0BEGIN	EXEC sp_displayoaerrorinfo @object, @hr	RETURNEND