List table schema SQL2000 & SQL2005

-------to export table schema    SQL2005------------------------
Declare @TableName varchar(20)
select @TableName='%'
SELECT
      (case when a.colorder=1 then d.name else '' end) TableName,
      a.colorder FieldID,
      a.name FieldName,
      (case when COLUMNPROPERTY( a.id,a.name,'IsIdentity')=1 then '√'else '' end) Tag,
      (case when (SELECT count(*)
      FROM sysobjects
      WHERE (name in
                (SELECT name FROM sysindexes WHERE (id = a.id) AND (indid in (SELECT indid FROM sysindexkeys WHERE (id = a.id) AND (colid in
                                      (SELECT colid FROM syscolumns WHERE (id = a.id) AND (name = a.name))))))) AND (xtype = 'PK'))>0 then '√' else '' end) PrimaryKey,
      b.name as Type,
      a.length as UsedLen,
      COLUMNPROPERTY(a.id,a.name,'PRECISION') as Length,
      isnull(COLUMNPROPERTY(a.id,a.name,'Scale'),0) as Decimal,
      (case when a.isnullable=1 then '√'else '' end) as AllowNull,
      isnull(e.text,'') as DefaultValue,
      isnull(g.[value],'') AS FieldDesc,
      a.collation as Collation
FROM  syscolumns  a left join systypes b
on  a.xtype=b.xusertype
inner join sysobjects d
on a.id=d.id  and  d.xtype='U' and  d.name<>'dtproperties'
left join syscomments e
on a.cdefault=e.id
left join sys.extended_properties  g
on a.id=g.major_id AND a.colid = g.minor_id   where d.name like @tablename
order by a.id,a.colorder

---------------------SQL 2000------------------

-------to export table schema
Declare @TableName varchar(20)
select @TableName='%'
SELECT
      (case when a.colorder=1 then d.name else '' end) TableName,
      a.colorder FieldID,
      a.name FieldName,
      (case when COLUMNPROPERTY( a.id,a.name,'IsIdentity')=1 then '√'else '' end) Tag,
      (case when (SELECT count(*)
      FROM sysobjects
      WHERE (name in
                (SELECT name FROM sysindexes WHERE (id = a.id) AND (indid in (SELECT indid FROM sysindexkeys WHERE (id = a.id) AND (colid in
                                      (SELECT colid FROM syscolumns WHERE (id = a.id) AND (name = a.name))))))) AND (xtype = 'PK'))>0 then '√' else '' end) PrimaryKey,
      b.name as Type,
      a.length as UsedLen,
      COLUMNPROPERTY(a.id,a.name,'PRECISION') as Length,
      isnull(COLUMNPROPERTY(a.id,a.name,'Scale'),0) as Decimal,
      (case when a.isnullable=1 then '√'else '' end) as AllowNull,
      isnull(e.text,'') as DefaultValue,
      isnull(g.[value],'') AS FieldDesc,
      a.collation as Collation
FROM  syscolumns  a left join systypes b
on  a.xtype=b.xusertype
inner join sysobjects d
on a.id=d.id  and  d.xtype='U' and  d.name<>'dtproperties'
left join syscomments e
on a.cdefault=e.id
left join sysproperties g
on a.id=g.id AND a.colid = g.smallid   where d.name like @tablename
order by a.id,a.colorder