Grade Students

<% ' open DB openstr = "driver={Microsoft Access Driver (*.mdb)};" &_ "dbq=" & Server.MapPath("grades.mdb") Set cn = Server.CreateObject("ADODB.Connection") cn.Open openstr Set rs = Server.CreateObject("ADODB.Recordset") %> <% 'close DB set rs = Nothing cn.Close Set cn = Nothing %>

Manage Students | Manage Classes

1. Select student
2. Select class
3. Enter Grade