<%@ LANGUAGE = VBScript %>
<% 'Dr. Thomas E. Hicks - Trinity University - File DisplayUser02.asp
'Display all information in all records 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 %>
DisplayUser02.asp
<%
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 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 [Record Set] by Name - DisplayUser02.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 %>