Hjälp med felmeddelane!

Felmeddelandet:

Microsoft JET Database Engine error '80004005'

Operation must use an updateable query.

/gorza112/forum/postForm.asp, line 40

Koden:

<%
Dim objConn
Dim strConn
Dim strSQL
Dim lngThreadParent
Dim strThreadPoster
Dim strThreadName
Dim strThreadPosterEmail
Dim strThreadHeadline
Dim strThreadText
Dim dtmThreatDateTime
Dim strDummy

strDummy = "Ingen angiven"

lngThreadParent = Request.Form("threadParent")

if lngThreadParent = "" then lngThreadParent = 0

strThreadPoster = Replace(Request.Form("threadPoster"), "'", "''")
strThreadPosterEmail = Replace(Request.Form("threadPosterEmail"), "'", "''")
strThreadHeadline = Replace(Request.Form("threadHeadline"), "'", "''")
strThreadText = Replace(Request.Form("threadText"), "'", "''")
dtmThreatDateTime = Now()

if strThreadName = "" then strThreadName = strDummy
if strThreadPosterEmail = "" then strThreadPosterEmail = strDummy
if strThreadHeadline = "" then strThreadHeadline = strDummy
if strThreadText = "" then strThreadText = strDummy

Set objConn = Server.CreateObject("ADODB.Connection")

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/forum.mdb")
objConn.Open strConn

strSQL = "INSERT INTO tblForum (threadDateTime, threadPoster, threadPosterEmail, threadHeadline, threadText, threadParent) VALUES('" & dtmThreatDateTime & "', '" & strThreadPoster & "', '" & strThreadPosterEmail & "', '" & strThreadHeadline & "', '" & strThreadText & "', " & lngThreadParent & ")"

objConn.Execute(strSQL)

objConn.Close
Set objConn = nothing

Response.Redirect("default.asp")
%>