This seems to be a great piece of work....

One question though - it seems as if there is a line missing after the last checkpoint ???

????if (select cast(databasepropertyex(db_name(), 'recovery') as...