<% @Language = VBScript %> <% Option Explicit %> <% 'Open up a connection to the database Dim objConn Set objConn = Server.CreateObject("ADODB.Connection") 'objConn.ConnectionString = "DSN = structures2-conv.mdb" objConn.Open "structures2.mdb" 'query the sysobjects table where type = 'U' Dim strsql strsql = "SELECT * FROM sysobjects WHERE type = 'U' " 'Execute the query Dim objRS Set objRS = objConn.Execute(strSQL) 'Display the table names Do While not objRS.EOF Response.Write objRs("Name") & "
" objRS.MoveNext Loop 'Clean up.. objConn.Close SetObjConn = Nothing %>