<% Option Explicit %>
DisplayUser2.asp
<%
Dim Connect, SecurityList
Set Connect = Server.CreateObject ("ADODB.Connection")
Connect.Open "Security"
Set SecurityList = Connect.Execute ("SELECT * FROM Users ORDER BY Name")
SecurityList.Filter = "No >= 3"
%>
Display Users [ Filter: NO >= 3] - DisplayUser2.asp
Dr. Thomas E. Hicks
Trinity University
<% do until SecurityList.EOF %>
Name : <% = SecurityList ("NAME") %>
No : <% = SecurityList ("NO") %>
Password : <% = SecurityList ("PASSWORD") %>
<% SecurityList.MoveNext
loop %>