ASPupfile og DB ENTRY

Hej Experten!

Jeg har et problem med et fil arkiv jeg er ved at designe...

Jeg har lavet et filarkiv med kategorier og det hele.. Men jeg har et problem, når man uploader en fil.

Jeg skal ha' skrevet filnavnet på den fil jeg har uploadet over i db i feltet filname. Jeg køre med access som db.

Her er min kode som den ser ud lige nu:

<%
                   
                   
                    Set Upload = Server.CreateObject("Persits.Upload")

                        ' This is needed to enable the progress indicator
                        Upload.ProgressID = Request.QueryString("PID")

                        'Count = Upload.Save


                        ' we use memory uploads, so we must limit file size
                        '    Upload.SetMaxSize 100000, True

                        ' Save to memory. Path parameter is omitted
                            Upload.Save

                                               
                        ' access subdirectory specified by user
                            subdir = Upload.Form("subdir")

                        ' Build path string
                            Path = "f:\roadi.dk\team-go\files\" & subdir

                        ' Create path, ignore "already exists" error
                            Upload.CreateDirectory Path, True

                        ' Save files to it. Our form has only one file item
                        ' but this code is generic.
   
                            For Each File in Upload.Files
                                File.SaveAs Path & "\" & File.FileName

                                Response.Write "File saved as " & File.Path & "<BR>"
                            Next   
               
               
               
               
               
               
               
                Set Conn4 = Server.CreateObject("ADODB.Connection")
                    Conn4.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../mdb/files.mdb")

                    Set rs8 = Server.CreateObject("ADODB.RecordSet")
                    strSQL = "Select * From main"
                    rs8.Open strSQL, Conn4, adOpenKeyset, adLockOptimistic


                    rs8.addnew
                        rs8("filename")            = Upload.Files("file.FileName")
                        rs8("filegroup")        = Upload.Form("subdir")
                        rs8("details")            = Upload.Form("details")
                        rs8("user")                = Upload.Form("upusername")
                        rs8("usermail")            = Upload.Form("usermail")
                        rs8("userid")            = session("adminid")
                        rs8("time")                = Now
           
                    rs8.Update
                    rs8.Close
                    Set rs8 = Nothing

                    Conn4.Close
                    set Conn4 = Nothing
                    'response.redirect "default.asp?mode=showgroup&var=" & upload.Form("subdir")
                %>

Hvad er det der går galt???

Mange hilsner

Roadi