<!-- Collection of code snippets by Arne Vajhøj -->
<!-- posted to eksperten.dk, usenet and other places (2002-now) -->
<% Option Explicit %>
<%
Response.ContentType = "text/plain"
Dim db
db = "C:\Databases\MSAccess\Test.mdb"
Dim cat
Set cat = Server.CreateObject("ADOX.Catalog")
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
Dim tbl 
For Each tbl In cat.Tables
    Response.Write "tabel " & tbl.Name & vbCrLf
    Dim col
    For Each col In tbl.Columns
        Response.Write "  kolonne " & col.Name & " " & col.Type & " " & col.DefinedSize & vbCrLf 
    Next
    Dim idx
    For Each idx In tbl.Indexes
        Response.Write "  index " & idx.Name & " " & idx.PrimaryKey & vbCrLf 
        Dim idxcol
        For Each idxcol In idx.Columns
            Response.Write "    index kolonne " & idxcol.Name & vbCrLf 
        Next
    Next
Next
%>