Opret billede med oplysninger

Hej

Jeg får følgende fejl :

Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'mySmartUpload.Form'

/admin/billede_opret_handler.asp, line 21

Siden billede_opret_handler.asp :

<!--#include file="../conn.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\galleri\" & mySmartUpload.files.item(1).FileName)


If mySmartUpload.Form("guest") <> -1 then
mySmartUpload.Form("guest") = ""
end if

If mySmartUpload.Form("bruger") <> -1 then
mySmartUpload.Form("bruger") = ""
end if

If mySmartUpload.Form("super_bruger") <> -1 then
mySmartUpload.Form("super_bruger") = ""
end if

If mySmartUpload.Form("coadmin") <> -1 then
mySmartUpload.Form("coadmin") = ""
end if

If mySmartUpload.Form("admin") <> -1 then
mySmartUpload.Form("admin") = ""
end if

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

  Set oRs = Server.CreateObject("ADODB.recordset")
  Set oRs.ActiveConnection = Conn
  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("Filnavn") = mySmartUpload.files.item(1).FileName
        oRs("Overskrift") = mySmartUpload.Form("Overskrift")
        oRs("Beskrivelse") = mySmartUpload.Form("Beskrivelse")
        oRs("Lagt_op") = mySmartUpload.Form("Lagt_op")
        oRs("Kategori") = mySmartUpload.Form("Kategori")
        oRs("guest") = mySmartUpload.Form("guest")
        oRs("bruger") = mySmartUpload.Form("bruger")
        oRs("super_bruger") = mySmartUpload.Form("super_bruger")
        oRs("coadmin") = mySmartUpload.Form("coadmin")
        oRs("admin") = mySmartUpload.Form("admin")
        oRs("dato") = FormatDateTime(Now, vbLongDate)
        oRs("Hits") = 0
        oRs.Update
        intCount = intCount + 1
      End If
  Next

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

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