<%
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
%>