Hvorfor Cannot call BinaryRead after using Request.Form

Hej jeg har et upload script, som jeg mener har virket, men ikke virker mer, Meget mærkeligt.

Når jeg prøver at uploade en fil kommer dem med følgende felj.:


Error Type:
Request object, ASP 0206 (0x80004005)
Cannot call BinaryRead after using Request.Form collection.
/bif/Upload_billedalbum.asp, line 48

og i linie 48 er følgende:


mySmartUpload.Upload

Her er hele koden:
[kode]
<!--#include file="functions.asp" -->
<%
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
dim cn    ' connection til database
set cn = server.createobject("ADODB.Connection")
cn.open = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath(DatabasePath)


    sql2="SELECT MAX(a_id) As Maximal FROM filer Where album <> ''"
    Set UploadFileItems2 = cn.execute(sql2)
   
    If NOT UploadFileItems2.eof Then
        a_id = UploadFileItems2("Maximal")
        a_id = a_id + 1
    End if
   
    If Request.Querystring("u_id1") = "" Then
        u_id = 0
    Else
        u_id = Request.Querystring("u_id1")
    End if
   
'    If Request.Querystring("u_id1") Then
   
'  On Error Resume Next
'  Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim intCount
  intCount=0
       
'  Object creation
'  ***************
'  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Only allow txt or htm files
'  ***************************
  mySmartUpload.AllowedFilesList = "jpg,jpeg,gif"

'  Only allow files smaller than 100000 bytes
'  *****************************************
  mySmartUpload.MaxFileSize = 100000


'  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(Server.MapPath("folders/" & Session("afd") & "/" & Request.Querystring("dir") & "/" & date() & "_" & file.FileName))

    sql="INSERT INTO filer (afd_id,u_id,a_id,b_id,filnavn,undermappe,dato,album) VALUES('"_
        & Session("afd") & "','"_
        & u_id & "','"_
        & a_id & "','"_
        & Session("b_id") & "','"_
        & date() & "_" & file.FileName & "','"_
        & Request.Querystring("dir") & "','"_
        & now() & "','"_
        & Request.Querystring("dir") & "')"
        Set UploadFileItems1 = cn.execute(sql)
        Set UploadFileItems1 = Nothing

      '  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>")
        intCount = intCount + 1
      End If
     
      Response.write "kommer dette med"
     
  Next

'  Display the number of files which could be uploaded
'  ***************************************************
'  Response.Write("<BR>" & mySmartUpload.Files.Count & " filer kunne blive oploaded.<BR>")

'  Display the number of files uploaded
'  ************************************
'  Response.Write(intCount & " file(r) oploaded.<BR>")
'  Trap errors
'  ***********
'  If Err Then
'    Response.Write("<b>Forkert valg : </b>" & Err.description)
  '    Response.Write "<br><br>Tryk <a href='java script:history.back(-1)'>HER</a> for at komme tilbage og vælg en ny fil."
  'Else
  '  Display the number of files uploaded
  '  ************************************
      Response.Write(intCount & " file(s) uploaded.")
      Response.Redirect "default.asp?action=billedalbum&mode=view_album&dir=" & Request.Querystring("dir") & "&afd=" & session("afd") & "&edit=edit"
  'End If


'Response.Redirect "default.asp?action=billedalbum&mode=view_album&afd=" & session("afd") & "&dir=" & Request.Querystring("dir")
cn.Close
%>

[/kode slut]

Hvad kan fejlen være?