<% oConn.Open(sConnString) 'This opens the database. Set rConn = oConn.Execute("SELECT * FROM Table1 ORDER BY LastName, FirstName") %>

<%Do While Not rConn.EOF%> <%=rConn.Fields("LastName").Value%> <%rConn.MoveNext Loop %> <% 'Destroy the connections oConn.Close set oConn = Nothing %>