<%
' 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 students where ID='"& Request("ID") &"'"
rs.Open sql, cn, adOpenDynamic, adLockPessimistic
On Error Resume Next
If cmd = "add" Then
rs.AddNew
rs("ID")=Request("ID")
rs("firstname")=Request("firstname")
rs("Lastname")=Request("Lastname")
rs.Update
If Err <> 0 Then
Response.Write "Could not add class! (" & Err.Description & ")"
Else
Response.Write "New class with Id " & Request("Id") & " added."
End If
End If
If cmd = "change" Then
rs("ID")=Request("Id")
rs("Firstname")=Request("firstname")
rs("Lastname")=Request("lastname")
rs.Update
If Err Then
Response.Write "Could not change class! (" & Err.Description & ")"
Else
Response.Write "Class with nr " & Request("id") & " 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 "Students with id " & Request("id") & " deleted."
End If
End If
On Error Goto 0
rs.Close
End If
%>
Existing students:
<%
sql = "select * from students"
rs.Open sql, cn, adOpenForwardOnly, adLockReadOnly
Do While Not rs.EOF
Response.Write "