<% Option Explicit %> <% Dim Connect, SecurityList Set Connect = Server.CreateObject ("ADODB.Connection") Connect.Open "Security" Set SecurityList = Connect.Execute ("SELECT * FROM Users ORDER BY Name") SecurityList.Filter = "Name Like '*o*' " %> Display Users [ Filter: Name Contains Letter = 'o'] - DisplayUser4.asp
Dr. Thomas E. Hicks
Trinity University

---

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

<% SecurityList.MoveNext loop %>