Hjælp til fejlmeddelse

Hej.
Håber der er nogle kloge hoveder der kan hjælpe.
Jeg får følgende fejlmeddelse:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Filename'

/shop/admin/odbc_upload_add.asp, line 50

Kode er som følgende:
(line 50 er den med file.filename)


            <%
                                Set Upload = Server.CreateObject("Persits.Upload.1")
                           
                                ' Capture files
                                Upload.Save Server.MapPath("../../fpdb/")
                                ' Obtain file object
                                Set File = Upload.Files("productPicture")
                           
                                If Not File Is Nothing Then
                                    Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../fpdb/storedb.mdb")
                           
                                    SQL = "INSERT INTO Products( product_name, product_price, product_picture, product_category, product_briefdesc, product_fulldesc, product_status ) VALUES('"
                              SQL = SQL & Replace(Upload.Form("ProductName"), "'", "''") & "', '"
                              SQL = SQL & Replace(Upload.Form("productPrice"), "'", "''") & "', '"
                              SQL = SQL & File.Filename & "', '"
                              SQL = SQL & Replace(Upload.Form("productCategory"), "'", "''") & "', '"
                              SQL = SQL & Replace(Upload.Form("productBriefDesc"), "'", "''") & "', '"
                              SQL = SQL & Replace(Upload.Form("productFullDesc"), "'", "''") & "', "
                              SQL = SQL & Replace(Upload.Form("productStatus"), "'", "''") & ")"
                           
                                    ' Save to database
                                    File.ToDatabase Connect, SQL
                                    Response.Write productName & " er blevet tilføjet databasen"
                                Else
                                    Response.Write "Du har ikke valgt et billede."
                                End If
                            %>