codice:
'apertura connessione (strconnessione è la stringa di connessione
set conn=server.createobject("adodb.connection")
conn.open strconnessione
'dichiarazione del recordset
adSchemaTables=20
Set Rs = Conn.OpenSchema(adSchemaTables)
While Not Rs.EOF
  If Rs("TABLE_TYPE") = "TABLE" Then
    NomeTabella = Rs("TABLE_NAME")
    response.write NomeTabella & "
"
  End If
  Rs.MoveNext
Wend