<% DIM sqlString DIM recID recID = Request.Form("ID") response.write("Record: " & recID & " was deleted" & vbCrLf) oConn.Open(sConnString) 'This opens the database. sqlString = "DELETE FROM Table1 WHERE ID = '"& recID &"'" Set rConn = oConn.Execute(sqlString) Set rConn = oConn.Execute("SELECT * FROM Table1 ORDER BY LastName, FirstName") %> Delete Student ID Number:
<%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 %>