Aspsmartupload. Hjælp til at finde fejlen.

Hej !!!

Hvad går der galt ???
-----------------------------------------------------------------
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

/mobilsalg/admin/Produkt_Opret_Handler.asp, line 49
-----------------------------------------------------------------

HER ER SÅ PRODUKT_OPRET_HANDLER.ASP :

-----------------------------------------------------------------

<%
'  Variables
'  *********

  intCount=0
       
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
  mySmartUpload.Upload
  mySmartUpload.AllowedFilesList = "jpg,JPG,bmp,BMP,JPEG,jpeg,gif,GIF,PNG,png,Tiff,TIFF,tiff"

  mySmartUpload.files.item(1).SaveAs("d:\web\localuser\pivskid.dk\public_html\mobilsalg\produkter\" & mySmartUpload.files.item(1).FileName)

'  Connect to the DB
'  *****************

  Set oConn = Server.CreateObject("ADODB.Connection")
  oConn.Open "PROVIDER=MSDASQL; UID=; PWD=; DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")

'  Open a recordset
'  ****************
  strSQL = "SELECT * FROM Produkter"

  Set oRs = Server.CreateObject("ADODB.recordset")
  Set oRs.ActiveConnection = oConn
  oRs.Source = strSQL
  oRs.LockType = 3
  oRs.Open

'  Select each file
'  ****************
  For each file In mySmartUpload.Files
  '  Only if the file exist
  '  **********************
      If not file.IsMissing Then

      '  Add the current file in a DB field
      '  **********************************
        oRs.AddNew
        oRs("Billede") = mySmartUpload.files.item(1).FileName
        oRs("Navn") = mySmartUpload.Form("Navn")
        oRs("Beskrivelse") = mySmartUpload.Form("Beskrivelse")
        oRs("Pris") = mySmartUpload.Form("Pris")
        oRs("Kategori") = mySmartUpload.Form("Kategori")
        oRs.Update
        intCount = intCount + 1
      End If
  Next

'  Display the number of files uploaded
'  ************************************
  Response.Write("Billedet er blevet uploadet!<BR>")

'  Destruction
'  ***********
  oRs.Close
  oConn.Close
  Set oRs = Nothing
  Set oConn = Nothing
%>

-----------------------------------------------------------------

Håber der er hjælp at hente her, har prøvet og prøvet....
Kan da ihvertfald konstantere at billederne bliver lagt op på serveren....