<%
Dim Connect, SecurityList
Set Connect = Server.CreateObject ("ADODB.Connection")
Connect.Open "Security"
Set SecurityList = Connect.Execute ("Select * From Users")
%>
Dr. Thomas E. Hicks - ASP1
<% do until SecurityList.EOF %>
Name : <% = SecurityList ("NAME") %>
No : <% = SecurityList ("NO") %>
Password : <% = SecurityList ("PASSWORD") %>
<% SecurityList.MoveNext
loop %>