<%
' 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")
%>
<%
If Not Request("command") = "" Then
cmd = LCase(Request("command"))
' get only the entry I want to delete/change
sql = "select * from classes where nr='"& Request("nr") &"'"
rs.Open sql, cn, adOpenDynamic, adLockPessimistic
On Error Resume Next
If cmd = "add" Then
rs.AddNew
rs("Nr")=Request("nr")
rs("Title")=Request("title")
rs("Credits")=Request("credits")
rs.Update
If Err <> 0 Then
Response.Write "Could not add class! (" & Err.Description & ")"
Else
Response.Write "New class with nr " & Request("nr") & " added."
End If
End If
If cmd = "change" Then
rs("Nr")=Request("nr")
rs("Title")=Request("title")
rs("Credits")=Request("credits")
rs.Update
If Err Then
Response.Write "Could not change class! (" & Err.Description & ")"
Else
Response.Write "Class with nr " & Request("nr") & " changed."
End If
End If
If cmd = "delete" Then
rs.Delete
If Err Then
Response.Write "Could not delete class! (" & Err.Description & ")"
Else
Response.Write "Class with nr " & Request("nr") & " deleted."
End If
End If
On Error Goto 0
rs.Close
End If
%>
Existing classes:
<%
sql = "select * from classes"
rs.Open sql, cn, adOpenForwardOnly, adLockReadOnly
Do While Not rs.EOF
Response.Write "