create procedure ClearTables
as begin

declare @sql varchar(255)
declare @name varchar(30)

create table #names ( name varchar(30) )

insert into #names
select name from sysobjects (nolock)
where type = 'u'

set rowcount 1
while @@error = 0 begin
select @name = name from #names
delete from #names if @@rowcount < 1 break
select @sql = 'truncate table ' + @name
exec ( @sql )
end
set rowcount 0

return (0)

end
GO