The code from the ASP script follows - once again the "ServerProerty" statement is used which is not support by 7.0 - SO - how do we correct this pray tell ???
Script portion is -
strSQL = "CREATE PROCEDURE [dbo].[" & strDbProc & "DBinfo] "
strSQL = strSQL & "As "
strSQL = strSQL & vbCrLf & "Declare @low int"
strSQL = strSQL & vbCrLf & "Declare @dbsize dec(10,2)"
strSQL = strSQL & vbCrLf & "Declare @dbpath nvarchar(100)"
strSQL = strSQL & vbCrLf & "Declare @logpath nvarchar(100)"
strSQL = strSQL & vbCrLf & "Declare @dbfilesize dec(10,2)"
strSQL = strSQL & vbCrLf & "Declare @logfilesize dec(10,2)"
strSQL = strSQL & vbCrLf & "Declare @maxdbfilesize dec(10,2)"
strSQL = strSQL & vbCrLf & "Declare @maxlogfilesize dec(10,2)"
strSQL = strSQL & vbCrLf & " "
strSQL = strSQL & vbCrLf & "--Minimum Database Size"
strSQL = strSQL & vbCrLf & "select @low = low from master.dbo.spt_values"
strSQL = strSQL & vbCrLf & " where type = N'E' and number = 1"
strSQL = strSQL & vbCrLf & "--Calculation of current Database Size in MB"
strSQL = strSQL & vbCrLf & "select @dbsize = (convert(dec(15),sum(size)) * @low / 1048576)"
strSQL = strSQL & vbCrLf & "from [sysfiles]"
strSQL = strSQL & vbCrLf & "--Actual File Size of Log and Data File"
strSQL = strSQL & vbCrLf & "Select TOP 1 @dbpath = [filename] from [sysfiles] where groupid = 1"
strSQL = strSQL & vbCrLf & "Select TOP 1 @logpath = [filename] from [sysfiles] where groupid = 0"
strSQL = strSQL & vbCrLf & "Select @dbfilesize = convert(dec(10,2),sum([size]))/128 from [sysfiles] where [filename] = @dbpath --in MB"
strSQL = strSQL & vbCrLf & "Select @logfilesize = convert(dec(10,2),sum([size]))/128 from [sysfiles] where [filename] = @logpath --in MB"
strSQL = strSQL & vbCrLf & "Select TOP 1 @maxdbfilesize = convert(dec(10,2),[maxsize])/128 from [sysfiles] where [filename] = @dbpath"
strSQL = strSQL & vbCrLf & "Select TOP 1 @maxlogfilesize = convert(dec(10,2),[maxsize])/128 from [sysfiles] where [filename] = @logpath"
strSQL = strSQL & vbCrLf & "If @maxdbfilesize = (-.01) Set @maxdbfilesize = -1"
strSQL = strSQL & vbCrLf & "If @maxlogfilesize = (-.01) Set @maxlogfilesize = -1"
strSQL = strSQL & vbCrLf & " "
strSQL = strSQL & vbCrLf & "---Creating Output Table"
strSQL = strSQL & vbCrLf & "select @dbsize Databasesize, @dbpath DataLocation , @logpath LogLocation, "
strSQL = strSQL & vbCrLf & " @dbfilesize DatabaseFileSize, @logfilesize Logfilesize,"
strSQL = strSQL & vbCrLf & " @maxdbfilesize MaxDBSize, @maxlogfilesize MazLogSize,"
strSQL = strSQL & vbCrLf & " ServerProperty('edition') Edition, "
strSQL = strSQL & vbCrLf & " CASE ServerProperty('IsCluster') "
strSQL = strSQL & vbCrLf & " WHEN 0 THEN 'No Cluster'"
strSQL = strSQL & vbCrLf & " WHEN 1 THEN 'Cluster'"
strSQL = strSQL & vbCrLf & " ELSE 'No Cluster/Unknown' "
strSQL = strSQL & vbCrLf & " END Cluster,"
strSQL = strSQL & vbCrLf & " CASE ServerProperty('License_Type')"
strSQL = strSQL & vbCrLf & " WHEN 'PER_SEAT' THEN 'Seat Licensing (' + Convert(nvarchar(5),ServerProperty('NumLicenses')) + ')'"
strSQL = strSQL & vbCrLf & " WHEN 'Per_Processor' THEN 'Processor Licensing (' + Convert(nvarchar(5),ServerProperty('NumLicenses')) + ')'"
strSQL = strSQL & vbCrLf & " ELSE 'Licensing Disabled / Unknown'"
strSQL = strSQL & vbCrLf & " END Licensing,"
strSQL = strSQL & vbCrLf & " ServerProperty('ProductLevel') PLevel"