<% 
    dbname = "databasename" 
    
    ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" 
    ConnStr = ConnStr & "\" & dbname & ".mdb" 
    
    Set adox = CreateObject("ADOX.Catalog") 
    Set conn = CreateObject("ADODB.Connection") 
    conn.open ConnStr 
    adox.activeConnection = conn 
    
    for each table in adox.tables 
    if table.type="TABLE" then 
    response.write table.name & " - " 
    set rs = conn.execute("SELECT COUNT(*) FROM " & table.name) 
    response.write rs(0) & "
" 
    end if 
    next 
    
    conn.close 
    set conn = nothing 
    set adox = nothing 
%>