Billedupload fejl med aspSmartUpload

dette er fejlen jeg får:

aspSmartUpload error \'800a0009\'

Subscript out of range

/danskadmin/billeddatabase/includes/picbase_inc.asp, line 22

------ function (fejlen ligger i mySmartUpload.Upload)

function funcSaveSimpleImage(intMaxSize, strAcceptFiles)

    dim mySmartUpload   
    Set mySmartUpload = Server.CreateObject(\"aspSmartUpload.SmartUpload\")
    mySmartUpload.AllowedFilesList = strAcceptFiles   
    \'  Only allow files smaller than 250000 bytes (250K)
    \'  *****************************************
      mySmartUpload.MaxFileSize = intMaxSize   
      mySmartUpload.Upload

   
    dim oRs
    set oRs = server.createobject(\"ADODB.recordset\")
   
    strSQL = \"SELECT * FROM Images\"
    oRs.open strSQL, oConn, 1, 3
   
   
    \'## PUT IMAGE IN DATABASE
    oRS.AddNew
    For each file In mySmartUpload.Files
       
        If not file.IsMissing Then
       
        file.FileToField oRs.Fields(\"Image\")       
        end if
           
    next
    oRs.Update
   
    oRs.close
    set oRs = nothing


end function