Upload med aspSmartUpload

UploadFileItems.Files.Count <- Mener jeg er fejlen. Put den i en variabel lige efter UploadFileItems.Upload. Det tror jeg løser problemet.

Hmm jeg kan ikke se det jeg har skrevet i mit indlæg, kan det være fordi jeg ikke her skrevet noget...? det ved jeg ikke, men jeg prøver lige igen:

Jeg har lavet et script med AspSmartUpload, og får følgende fejl:

Fejltype:
Request-objekt, ASP 0206 (0x80004005)
BinaryRead kan ikke kaldes, når Request.Form-samling er brugt.
/bif/functions.asp, line 3409


Her er scriptet:

Function Upload() ' denne funktion fjerner et link fra databasen.
'-------------------------------------------------------------------------------------
Upload = Upload & "<b>Upload af billeder</b><br><br>"_
    & "Billederne skal være af typen jpeg(*.jpg) og have en filstørelse på <b>max.</b> 50 kbyte,<br>"_
    & "dog helst mellem 0 kbyte og 35 kbyte. Dette er for at tage hensyn til sidens loade hastighed.<br>"_
    & "Jo størrer billeder, jo langsomere bliver siden."_
    & "<FORM METHOD='POST' ACTION='default.asp?action=UploadFile' ENCTYPE='multipart/form-data'>"_
    & "<INPUT TYPE='FILE' NAME='FILE1' SIZE='50'><BR>"_
    & "<INPUT TYPE='SUBMIT' VALUE='Upload'>"_
    & "</FORM>"
'-------------------------------------------------------------------------------------
End Function


Function UploadFile() ' denne funktion fjerner et link fra databasen.
'-------------------------------------------------------------------------------------
  intCount=0     

  Set UploadFileItems = Server.CreateObject("aspSmartUpload.SmartUpload")

  UploadFileItems.Upload

  For each file In UploadFileItems.Files

      If not file.IsMissing Then

        file.SaveAs("folders/" & Session("afd") & "/" & Session("afd") & "_" & date() & "_" & file.FileName) 

        UploadFile = UploadFile & "<br>Name = " & file.Name & "<BR>"
        UploadFile = UploadFile & "Size = " & file.Size & "<BR>"
        UploadFile = UploadFile & "FileName = " & file.FileName & "<BR>"
        UploadFile = UploadFile & "FileExt = " & file.FileExt & "<BR>"
        UploadFile = UploadFile & "FilePathName = " & file.FilePathName & "<BR>"
        UploadFile = UploadFile & "ContentType = " & file.ContentType & "<BR>"
        UploadFile = UploadFile & "ContentDisp = " & file.ContentDisp & "<BR>"
        UploadFile = UploadFile & "TypeMIME = " & file.TypeMIME & "<BR>"
        UploadFile = UploadFile & "SubTypeMIME = " & file.SubTypeMIME & "<BR>"
        intCount = intCount + 1
       
        Dim UploadFileItems1
       
        sql="INSERT INTO filer (afd_id,b_id,filnavn,dato) VALUES('"_
        & Session("afd") & "','"_
        & Session("b_id") & "','"_
        & file.FileName & "','"_
        & now() & "')"
        Set UploadFileItems1 = cn.execute(sql)
        Set UploadFileItems1 = Nothing
      End If
  Next

  UploadFile = UploadFile & "<BR>" & UploadFileItems.Files.Count & " filer kunne oploades.<BR>"

  UploadFile = UploadFile & intCount & " fil(er) blev oploadet.<BR><br>"
  UploadFile = UploadFile & "<br><a href='java script:history.back(-1)'>Tilbage</a>"
'  response.redirect(request.servervariables("http_referer"))
'-------------------------------------------------------------------------------------
End Function


Og her er linien hvor der er fejl:

UploadFileItems.Upload

Hvad er fejlen???

stadig denne fejl


Fejltype:
Request-objekt, ASP 0206 (0x80004005)
BinaryRead kan ikke kaldes, når Request.Form-samling er brugt.
/bif/functions.asp, line 3409

For at sige det lige ud, så ved jeg det ikke. Mit gæt er, at der er en eller anden rækkefølge, der er blevet brudt. Find en toturial til det, som virker, og sammenlign så. Det er det bedste, jeg kan komme med så.

TAKKER

LUKKET