Truncate all the table in a DB (MS-Sql 2000 & MS-Sql 2005)

Ms-Sql 2000

declare @SQL varchar(8000)

set @SQL = ''

select @SQL = @SQL + ' truncate table ' + name from sysobjects where type = 'U' and name <> 'dtproperties'

exec(@SQL)

Ms-Sql 2005

Exec sp_MsForEachTable 'TRUNCATE TABLE ?'