Rediction Limit exceeded

[rXhalogene]

<%
   Dim objConn
   Dim objCmd
   Dim SQLQuery
   Dim strConn
   Dim blnMayUpdate
   Dim benutzernr

strConn = "PROVIDER=Microsoft.Jet.OleDb.4.0;Data Source=" & _
      Server.MapPath("../update.mdb")

If  Request ("blnMayUpdate") = "yes" then

SQLQuery = "UPDATE Benutzer SET Kommentar = '" & REQUEST("Kommentar") & "' WHERE BenutzerNR = " & SESSION("Benutzer_ID")
      SQLQuery = SQLQuery & "('Kommentar') VALUES "
      SQLQuery = SQLQuery & "(Request('Kommentar')"

Set objCmd = CreateObject("ADODB.Command")
      objCmd.ActiveConnection = objConn
      objCmd.CommandText = SQLQuery
      objCmd.Execute
end if

Response.Redirect(Request.ServerVariables("SCRIPT_NAME") & "?saved=true")
      Response.End

objConn.Close
      Set objConn = Nothing
      Set objCmd = Nothing

%>