dim str as string = nothing

sub TotalString(value as string)
str &= IIf(system.string.IsNullOrEmpty(str), string.Format("{0}", value), string.Format("{0}, ", value))
end sub;
function GetString() as string
return str
end function

dim str as string = nothing

sub TotalString(value as string)
str &= IIf(system.string.IsNullOrEmpty(str), string.Format("{0}", value), string.Format("{0}, ", value))
end sub

function GetString() as string
return str
end function

DECLARE @tbl TABLE (id nvarchar( 4000 ) PRIMARY  KEY,  list nVARCHAR(max))

SET NOCOUNT ON

DECLARE @c nvarchar(max), @p nVARCHAR(max), @cNext nvarchar(max), @pNext nVARCHAR(max)

DECLARE c CURSOR FOR

select name, username
from
(select cc.Name, uc.UserName 
from Catalog cc, PolicyUserRole pc, Users uc
where cc.PolicyID = pc.PolicyID and pc.UserID=uc.UserID)d
order by Name, UserName; 

        OPEN c ;

        FETCH NEXT FROM c INTO @cNext, @pNext ;

        SET @c = @cNext ;

        WHILE @@FETCH_STATUS =  0  BEGIN

             IF @cNext > @c BEGIN

                  INSERT @tbl SELECT @c, @p ;

                  SELECT @p = @PNext, @c = @cNext ;

             END ELSE

                  SET @p = COALESCE(@p + ',', SPACE( 0 )) + @pNext ;

             FETCH NEXT FROM c INTO @cNext, @pNext

        END

        INSERT @tbl SELECT @c, @p ;

        CLOSE c ;

DEALLOCATE c ;

SELECT * FROM @tbl ;