SELECT @cmptlevel = (SELECT cmptlevel  
              FROM master.dbo.sysdatabases  
              WHERE dbid = DB_ID()) 

CREATE TABLE #DatabaseRoleMatrix( 
  [DatabaseUserName] VARCHAR(256),
  [DatabaseUserType] VARCHAR(10), 
  [DatabaseRoleName] VARCHAR (256), 
  [RoleAccess]   CHAR(1)) 

INSERT INTO #DatabaseRoleMatrix([DatabaseUserName],
     [DatabaseUserType],  
     [DatabaseRoleName], [RoleAccess]) 
SELECT  NULL AS 'DatabaseUserName', 
     'Role' AS 'DatabaseUserType',  
     name AS 'DatabaseRoleName', NULL AS 'RoleAccess' 
FROM dbo.sysusers 
WHERE issqlrole = 1 
UNION ALL 
SELECT  b.name AS 'DatabaseUserName', 
     CASE
        WHEN b.issqlrole = 1 THEN 'Role'
        ELSE  'User' 
     END, 
     c.name AS 'DatabaseRoleName', 'X' AS 'RoleAccess' 
FROM dbo.sysusers b LEFT OUTER JOIN  
     dbo.sysmembers  a ON a.memberuid = b.uid LEFT OUTER JOIN  
     dbo.sysusers c ON a.groupuid = c.uid  
WHERE   b.name NOT IN('db_owner','db_accessadmin',
     'db_securityadmin','public', 
 'db_ddladmin','db_backupoperator','db_datareader',
 'db_datawriter',
 'db_denydatareader','db_denydatawriter')  

IF @cmptlevel > 80 
BEGIN 
  SELECT @DatabaseRoles = COALESCE(@DatabaseRoles +  
        ',[' + CAST(DatabaseRoleName AS VARCHAR) + ']', 
        '[' + CAST(DatabaseRoleName AS VARCHAR)+ ']') 
  FROM #DatabaseRoleMatrix 
  WHERE DatabaseRoleName IS NOT NULL 
  GROUP BY DatabaseRoleName 

  SET @SQLSTMT = ' 
SELECT db_name() as ''db_name'', * 
FROM #DatabaseRoleMatrix 
PIVOT 
( 
MAX(RoleAccess) 
FOR [DatabaseRoleName] 
IN (' + @DatabaseRoles + ') 
) 
AS p
WHERE DatabaseUserName IS NOT NULL
ORDER BY DatabaseUserType DESC, DatabaseUserName' 

  EXECUTE(@SQLSTMT) 
END 

IF @cmptlevel < 90 
BEGIN 
  CREATE TABLE #WhileDatabaseRole( 
     [RowNum] INT IDENTITY (1,1) PRIMARY KEY, 
      [DatabaseRoleName] NVARCHAR(256)) 
   
  DECLARE @RowCount INT 
  DECLARE @DatabaseRoleList NVARCHAR(MAX) 
  DECLARE @DatabaseRoleName NVARCHAR(MAX) 
  SET @DatabaseRoleList = '' 

  INSERT INTO #WhileDatabaseRole([DatabaseRoleName]) 
  SELECT   DISTINCT DatabaseRoleName  
  FROM  #DatabaseRoleMatrix  
  WHERE DatabaseRoleName IS NOT NULL 
  ORDER BY DatabaseRoleName 
   
  SELECT @RowCount = MAX([RowNum]) FROM #WhileDatabaseRole 

     SET @SQLSTMT = 'SELECT db_name() as ''db_name'',  
DatabaseUserName, DatabaseUserType,  ' 
   
  WHILE @RowCount <> 0 
  BEGIN 
     SET @DatabaseRoleName = (SELECT [DatabaseRoleName]  
                        FROM #WhileDatabaseRole  
                        WHERE [RowNum] = @RowCount) 
     SET @SQLSTMT = @SQLSTMT + ' MAX(
CASE WHEN DatabaseRoleName = '  
              + CHAR(39) + @DatabaseRoleName + CHAR(39) + 
              ' THEN ''X'' END) AS ' +  
              CHAR(39) + @DatabaseRoleName + CHAR(39) + ',' 
     DELETE FROM #WhileDatabaseRole WHERE [RowNum] = @RowCount 
     SET @RowCount = @RowCount - 1 
  END 
   
  SELECT @SQLSTMT = SUBSTRING(@SQLSTMT, 1, LEN(@SQLSTMT)-1) + 
        ' FROM #DatabaseRoleMatrix  
  WHERE DatabaseUserName IS NOT NULL  
  GROUP BY DatabaseUserName, DatabaseUserType  
  ORDER BY DatabaseUserType DESC, DatabaseUserName' 
   
  EXEC sp_executesql @SQLSTMT 
   
  DROP TABLE #WhileDatabaseRole 
   
END