<% DIM sqlString DIM strLastName, strFirstName DIM strMajor, strYear strLastName = Request.Form("LastName") strFirstName = Request.Form("FirstName") strMajor = Request.Form("Major") strYear = Request.Form("Year") oConn.Open(sConnString) 'This opens the database. sqlString = "INSERT INTO Table1 (LastName, FirstName, Major, Year)" sqlString = sqlString & "VALUES ('"& strLastName &"', '"& strFirstName &"', '"& strMajor &"', '"& strYear &"')" Set rConn = oConn.Execute(sqlString) Set rConn = oConn.Execute("SELECT * FROM Table1 ORDER BY LastName, FirstName") %> <%Do While Not rConn.EOF%> <%rConn.MoveNext Loop %>

<%=rConn.Fields("ID").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 %>