<% Option Explicit %> <% Dim Connect, SecurityList Set Connect = Server.CreateObject ("ADODB.Connection") Connect.Open "Security" Set SecurityList = Connect.Execute ("SELECT * FROM Users ORDER BY Name") %> Display Users - DisplayUser.asp
Dr. Thomas E. Hicks
Trinity University

---

<% do until SecurityList.EOF %> Name : <% = SecurityList ("NAME") %>
No : <% = SecurityList ("NO") %>
Password : <% = SecurityList ("PASSWORD") %>

<% SecurityList.MoveNext loop %>