<%@ LANGUAGE = VBScript %> <% 'Dr. Thomas E. Hicks - Trinity University - File DisplayUser04.asp 'Display only the Name and IDNo of all records from table Users of the Security Database 'in order by IDNo. Select only those with IDNo >- 3. Use the Record Set approach! %> <% 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 [Name], [IDNo] FROM Users WHERE [IDNo] >= 3" Query = Query & " ORDER BY [IDNo] " '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 Name, IDNo [IDNo >= 3] by IDNo- DisplayUser04.asp
Dr. Thomas E. Hicks Trinity University

---

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

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