SQLConn = "' stringa di conn

 set conn = server.createobject("ADODB.Connection")
 conn.open sqlconn

' informazioni sul database
 set rs = conn.OpenSchema(adSchemaTables)
 

 Do while not rs.eof
   if rs("table_type") = "TABLE" then

     response.write "<tr><td>" & rs("table_name") & "</td>"
   
 ' calcolo spazio occupato
 set rsC = conn.Execute("EXEC sp_spaceused " & rs("table_name"))

     
     response.write "<td>" & rsC("data") & "</td>"
     response.write "<td>" & rsC("rows") & "</td></tr>"
 
 
 rsC.Close
 set rsC = Nothing

    end if
    rs.movenext
 loop
 


 rs.close
 set rs = Nothing
 conn.close
 set conn = Nothing