<% @ Language=VBScript %> <%' Option Explicit %> <% 'DB Info MOD created by Michael Baumann for Web Wiz Forums 7.x 'Web Wiz Forums are Copyrighted by Bruce Corkhill 'Checking to see if SQL Server is being used, if no....boot him out. If strDatabaseType = "SQLServer" Then strSQL = "EXECUTE " & strDbProc & "DBinfo" Else 'Clean up Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing Response.Write "This page only works on SQL Server but your Database Type is set to Access" Response.End End If 'Getting in the results from the SProc rsCommon.Open strSQL, adoCon While Not rsCommon.EOF Databasesize = rsCommon("Databasesize") DataLocation = rsCommon("DataLocation") LogLocation = rsCommon("LogLocation") DatabaseFileSize = rsCommon("DatabaseFileSize") LogFileSize = rsCommon("LogFileSize") MaxDBSize = rsCommon("MaxDBSize") MaxLogSize = rsCommon("MazLogSize") Edition = rsCommon("Edition") Cluster = rsCommon("Cluster") Licensing = rsCommon("Licensing") PLevel = rsCommon("PLevel") rsCommon.MoveNext Wend rsCommon.Close %> SQL Server Database Database Info

SQL Server Database Information
Return to the the Administration Menu

Size Information
SQL Server DB Size: <% = Databasesize %> MB    
Database File Size: <% = DatabaseFileSize %> MB Log File Size <% = LogFileSize %> MB
Database File Location: <% = DataLocation %> Log File Location <% = LogLocation %>
Maximum DB Size <% If MaxDBSize = "-1" THEN Response.Write "Unrestricted" ELSE Response.Write MaxDBSize & " MB" END IF %> Maximum Log Size <% If MaxLogSize = "-1" THEN Response.Write "Unrestricted" ELSE Response.Write MaxLogSize & " MB" END IF %>
Server Information
SQL Server Edition: <% = Edition %> Service Pack: <% = PLevel %>
Server is Clustered? <% = Cluster %> Server Licensing: <% = Licensing %>
<% 'Clean up Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing %>