<%@ LANGUAGE = VBScript %> <% 'Dr. Thomas E. Hicks - Trinity University - File DisplayUser11.asp - QUERY 'Display all information in all records in which the Name contains 'o' from table 'Users of the Security Database alphabetically in ascending order by Name. 'Use the Record Set approach - approach ok for output, edit, and add!%> <% Option Explicit %> <% Dim Conn, UsersRecSet, Query 'Create a Connection Object Set Conn = Server.CreateObject ("ADODB.Connection") 'Open Security ODBC with the Connection Object Conn.Open "Security" 'Define the Query - declared as a variable because often long! Query = "SELECT * FROM Users WHERE [Name] LIKE '%o%' " Query = Query + "ORDER BY [Name]" 'Create the Record Set Object Set UsersRecSet = Server.CreateObject ("ADODB.Recordset") 'Fill the UsersRecSet with the Results of the SQL Query Set UsersRecSet = Conn.Execute (Query) %> Display Users Whose Name Contains an 'o' [Query] by Name - DisplayUser11.asp
Dr. Thomas E. Hicks
Trinity University

---

<% Do Until UsersRecSet.EOF %> Name : <% = UsersRecSet ("NAME") %>
No : <% = UsersRecSet ("NO") %>
Password : <% = UsersRecSet ("PASSWORD") %>
ID No : <% = UsersRecSet ("IDNO") %>

<% UsersRecSet.MoveNext Loop ' Close the Connection. I try to close the connection asap. Conn.Close %>