Visualizzare le tabelle contenute in un database

<%

Set Conn = Server.CreateObject(“ADODB.Connection”)

Conn.Open “Driver={Microsoft Access Driver (*.mdb)};dbq=” &

Server.MapPath(“percorso/database.mdb”)

Set Rs = Conn.OpenSchema(20)

Do While not Rs.EOF

If Trim(Rs(“TABLE_TYPE”)) = “TABLE” then

Response.Write Rs(“TABLE_NAME”) & “<br>”

End if

Rs.MoveNext

Loop

Rs.Close

Set Rs = Nothing

Conn.Close

Set Conn = Nothing

%>