Titta på OpenSchema() metoden på connection objektet. Retunerar recordset med tabell information:Sv: Antal tabeller?
<code>
<%
Dim fldField
Dim recordset
Dim connection
Const adSchemaTables = 20
Set connection = Server.CreateObject("ADODB.Connection")
connection.Open "<<<Din connection sträng>>>"
Set recordset = connection.OpenSchema(adSchemaTables)
Response.Write "<TABLE><TR>"
For Each fldField In recordset.Fields
Response.Write "<TD><B>" & fldField.Name & "</B>"
Next
If Not recordset.EOF Then
Response.Write "</TD></TR><TR><TD>"
Response.Write recordset.GetString(, , "</TD><TD>", "</TD></TR><TR><TD>", " ")
End If
Response.Write "</TD></TR></TABLE>"
%>
</code>