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

Enter Student ID Number to Update:

<%Do While Not rConn.EOF%> <%rConn.MoveNext Loop %>

<%=rConn.Fields("StudentID").Value%>

<%=rConn.Fields("LastName").Value%>

<%=rConn.Fields("FirstName").Value%>

<%=rConn.Fields("Major").Value%>

<%=rConn.Fields("Year").Value%>

<%=rConn.Fields("GPA").Value%>

<% 'Destroy the connections oConn.Close set oConn = Nothing %>