ASP Upload..

Hej, sådan ser min side ud når jeg har Uploadet en fil og tekst til min DB:


Name = billed
Size = 34870
FileName = eM.jpg
FileExt = jpg
FilePathName = C:\Documents and Settings\Mjall0w-^\Skrivebord\Dreamweaver UltraDev 4\test\eM\image\eM.jpg
ContentType = image/pjpeg
ContentDisp = form-data
TypeMIME = image
SubTypeMIME = pjpeg

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/test/news/upload.asp, line 63

Ved godt det er noget med at Item ikke kan blive fundet, men har prøvet at fjerne den linie men så springer den bare videre til den næste asp.Mysmartupload.form og skriver den samme fejl..
Scriptet ser følgende ud:

<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim intCount
  intCount=0
       
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
  mySmartUpload.Upload


'  Select each file
'  ****************
  For each file In mySmartUpload.Files
  '  Only if the file exist
  '  **********************
      If not file.IsMissing Then
      '  Save the files with his original names in a virtual path of the web server
      '  ****************************************************************************
       
        'file.SaveAs("/../konkurrence" & file.FileName)
        ' sample with a physical path
        file.SaveAs("images" & file.FileName)

      '  Display the properties of the current file
      '  ******************************************
        Response.Write("Name = " & file.Name & "<BR>")
        Response.Write("Size = " & file.Size & "<BR>")
        Response.Write("FileName = " & file.FileName & "<BR>")
        Response.Write("FileExt = " & file.FileExt & "<BR>")
        Response.Write("FilePathName = " & file.FilePathName & "<BR>")
        Response.Write("ContentType = " & file.ContentType & "<BR>")
        Response.Write("ContentDisp = " & file.ContentDisp & "<BR>")
        Response.Write("TypeMIME = " & file.TypeMIME & "<BR>")
        Response.Write("SubTypeMIME = " & file.SubTypeMIME & "<BR>")

'  Select each item
'  ****************
  For each item In mySmartUpload.Form
  '  Select each value of the current item
  '  *************************************
      For each value In mySmartUpload.Form(item)
'Tilføjer brugeren til databasen
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("em.mdb") & ";UID=admin;PWD=;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From bruger"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

   
'Tilføjer brugeren til databasen og sender ham/hende til login siden
    rs.AddNew
    rs("navn") = mySmartUpload.Form("navn")
    rs("posted") = mySmartUpload.Form("posted")
    rs("news") = mySmartUpload.Form("news")
    rs("billed") = file.FileName
    rs("Dato") = Now()
    rs.update


        intCount = intCount + 1
        Response.Write(item & " = " & value & "<BR>")
      Next
  Next
End If
'  Display the number of files which could be uploaded
'  ***************************************************
  Response.Write("<BR>" & mySmartUpload.Files.Count & " files could be uploaded.<BR>")

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(s) uploaded.<BR>")
  next
%>