binary upload af filer!!!

Hej!

jeg prøver at uploade/gemme filer binært til en database v.h.a SA Fileup-objektet, men har et problem.

Det virker når man gør sådan her:
<input TYPE="FILE" Size="40" NAME="EXEC_FILE">
og
objSAFileUp.form("EXEC_FILE").SaveAsBlob objRs.Fields("file_Data")

altså via en form. Men nu har jeg en række filer fra en sti jeg vil prøve at køre igennem, men denne her linie fejler:
objSAFileUp.SaveAsBlob objRs("Data")
(den uploader nemlig ingenting i det binære felt i databasen...)

min kode er her:


Sub SaveFileToDB

Set objSAFileUp = Server.CreateObject("SoftArtisans.FileUp")

Server.ScriptTimeout = 500

If len(szTempPath) > 0 then
    objSAFileUp.Path = szTempPath
End if
   
Set fso = CreateObject("Scripting.FileSystemObject")

'all the files you want to put in database, shall be located here
Source = "sti\"

Set objRS = Server.CreateObject("adodb.recordset")

objRs.Open "TEST", Application("SSS_Conn"), 2, 3

If fso.FolderExists(Source) Then

    Set myFolder = fso.GetFolder(Source)
   
    Set myFiles = myFolder.Files
   
    'loop to get all files
    For Each File In myFiles
           
    objRs.AddNew
   
'her er fejlen
    objSAFileUp.SaveAsBlob objRs("Data")
   
    objRs.Update
   
    Next
   
    objRS.Close
   
    Set objRs = Nothing
   
End If

Set fso = Nothing

End Sub