Entering New Grade
<%
' 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")
' get only the entry I want to delete/change
sql = "select * from grades"
rs.Open sql, cn, adOpenDynamic, adLockPessimistic
rs.AddNew
rs("class")=Request("class")
rs("student")=Request("student")
rs("grade")=Request("grade")
rs("date")=now()
On Error Resume Next
rs.Update
If Err Then
Response.Write "Unable to enter grade for student " & Request("student") & " " &_
"
Reason: " & Err.Description
Else
Response.Write "Grade for student " & Request("student") & " added."
End If
On Error Goto 0
'close DB
set rs = Nothing
cn.Close
Set cn = Nothing
%>
Back to grading