liste alle tabeller i en database

Er det en Access-database?

Ja, men det må i princippet være ligegyldigt.

<%
Dim rs, Conn, DSN, strTables, arTables

Const adSchemaTables = 20

Set rs = Server.CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN

Set rs = Conn.OpenSchema(adSchemaTables)

Do Until rs.EOF
    If rs("TABLE_TYPE") = "TABLE" Then
        strTables = strTables & rs("TABLE_NAME") & ","
    End If
rs.MoveNext
Loop

If Len(strTables) >= 1 Then
    strTables = Left(strTables, Len(strTables)-1)
End If

arTables = Split(strTables, ",")

For t = 0 To UBound(arTables)
    Response.Write arTables(t) & "<br>"
Next

%>

(dine tabelnavne bliver lagt i tabellen "arTables")

sateme så! tak skal du have

selv tak :)