Getting the following error trying to update a record in a Access Database
Error Type:
Microsoft JET Database Engine (0x80040E14)
Syntax error in UPDATE statement.
/Project UIv Slight Changes/courseupdate3.asp, line 31
I can't seem to see the error any help would be appreciated
<html>
<head>
<title>Course Update</title>
</head>
<body>
<%
Set oConn = Server.CreateObject("ADODB.Connection")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("db\HR System.mdb") & ";"
oConn.Open(sConnection)
%>
<p><font face="Arial" size="6" color="#000080">Update a Course Record Confirmation</font></p>
<%
sSQL = "SELECT * FROM Course where CourseNo='" & Request("CourseNo") &"'"
Set oRS = oConn.Execute(sSQL)
If Request("submit") = "Update" Then
sSQL = "Update Course set "
sSQL = sSQL & "CourseNo = '" & Request("CourseNo") & "', "
sSQL = sSQL & "EmployeePPS = '" & Request("EmployeePPS") & "', "
sSQL = sSQL & "CourseTitle = '" & Request("CourseTitle") & "', "
sSQL = sSQL & "CourseDescription = '" & Request("CourseDescription") & "', "
sSQL = sSQL & "StartDate = '" & Request("StartDate") & "', "
sSQL = sSQL & "FinishDate = '" & Request("FinishDate") & "',"
sSQL = sSQL & "ManagerAuthorisation= '" & Request("ManagerAuthorisation") & "', "
sSQL = sSQL & "WHERE CourseNo = '" & Request("CourseNo") & "',"
End If
oConn.Execute (sSQL)
Response.Write "Course <b>" & Request("CourseNo") & "</b> has been successfully updated<br>"
oRS.Close
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
%>
<p>
<a href="JavaScript:window.close()">Close</a>
</body>
</html>
