Hente ut database informasjon fra MS SQL Database

Det ligger en ferdig SP som heter sp_spaceused i MS SQL Databasen.

    set adoCn = Server.CreateObject("ADODB.Connection")
    adoCn.Open strConn
        set adoRs = Server.CreateObject("ADODB.Recordset")
        strSQL = "sp_spaceused"
        set adoRs = adoCn.Execute(strSQL)
            Dim strSQLDatabaseName
            strSQLDatabaseName = adoRs("database_name")
            Dim strSQLDatabaseSize
            strSQLDatabaseSize = adoRs("database_size")
            Dim strSQLDatabaseUSpace
            strSQLDatabaseUSpace = adoRs("unallocated space")
        adoRs.Close
        set adoRs = nothing
    adoCn.Close
    set adoCn = nothing