Set conn = Server.Createobject("ADODB.Connection")
conn.Open "......"
Set rst = conn.OpenSchema(20)
do while not rst.eof
response.write rst.fields("TABLE_NAME").Value
rst.movenext
loop
rst.Close
set rst = nothing
conn.Close
Set conn = Nothing
2. use SQL:
SELECT MSysObjects.Name
FROM MSysObjects
WHERE ((Left([name],4)<>"MSys") AND ((MSysObjects.Type)=1))
ORDER BY MSysObjects.Name