<%@ Language=VBScript %> <% dim conn Set Conn = Server.CreateObject ("ADODB.Connection") ' Open the connection to the database. I use a system DSN here, but ' you can use whatever method you wish conn.Open("DSN=powerlearn; UID=powerlearn; PWD=gfry6g;") ' Open the database schema to query the list of tables. Extract the ' list in a Recordset object Set Rs = Conn.OpenSchema (adSchemaTables) %> Currently <%=Application("CurUsers")%> Active User(s) using DS Viewer

<% Rs.Close Set Rs = Nothing Conn.Close Set Conn = Nothing %>