if exists (select * from sysobjects where id = object_id(N'[dbo].[sp_dbinside]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_dbinside]
GO


/******************************************************
 Robert Vallee
   August 30, 1999,
   This script was created as a quick look inside any SQL 7 database. 
   I find it very useful for comparing tables, column and datatypes. 
   It will list table name, column name, datatype, column length, nullability and object type.

 
********************************************************************** */


   	
SET QUOTED_IDENTIFIER  OFF    SET ANSI_NULLS  ON 
GO

CREATE PROCEDURE [sp_dbinside] AS

SELECT SUBSTRING(sysobjects.name, 1, 45) AS Table_Name, 
    SUBSTRING(syscolumns.name, 1, 40) AS Column_Name, 
    sysobjects.crdate AS Creation_Date, 
    SUBSTRING(systypes.name, 1, 15) AS DataType, 
    syscolumns.length,
    syscolumns.isnullable AS Allow_Nulls,
 	
	CASE 
    	WHEN sysobjects.xtype = 'S' THEN 'System'
    	WHEN sysobjects.xtype = 'P' THEN 'Procedure'
    	WHEN sysobjects.xtype = 'V' THEN 'View'
    	WHEN sysobjects.xtype = 'U' THEN 'User Defined'
	ELSE 'Unknown'
	END 'Object Type'

FROM sysreferences RIGHT OUTER JOIN
    syscolumns INNER JOIN
    systypes ON 
    syscolumns.xtype = systypes.xtype INNER JOIN
    sysobjects ON syscolumns.id = sysobjects.id ON 
    sysreferences.constid = sysobjects.id

order by Table_Name, Column_Name

GO
SET QUOTED_IDENTIFIER  OFF    SET ANSI_NULLS  ON 
GO