Check if there is a new created Database on the Server

USE [master]
GO
/****** Object: StoredProcedure [dbo].[Check_DBCreated] Script Date: 12/19/2008 10:24:54 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER Procedure [dbo].[Check_DBCreated]
As
--checks if all user databases are created today
Declare @Aantal int
Declare @SecondenDelayMax int
Declare @MaxInserted datetime
Declare @message nvarchar(200)
Declare @ret int
Declare @nieuwestebericht int

select @Aantal=count(*) from sysdatabases where dbid>4 and datediff(d,crdate,getdate())>0

If @Aantal > 0
Begin
set @ret=1
End
Else
Begin
set @ret=0
End
Set @message='Er zijn '+ cast(@Aantal as varchar(6)) +' databases ouder dan een dag.'
select ret=@ret, message=@message