Logfile schreiben

[timmy]

hallo zusammen,

ich habe vom Netz freeASPupload heruntergeladen und bin den code am modifizieren.

http://www.freeaspupload.net/

Es soll ein logfile geschrieben werden. Der entsprechende Code Teil, wo nach erfolgreichem upload die datei angezeigt wird sieth so aus:
-------------------------------------------------------
function SaveFiles
    Dim Upload, fileName, fileSize, ks, i, fileKey

Set Upload = New FreeASPUpload
    Upload.Save(uploadsDirVar)

' If something fails inside the script, but the exception is handled
 If Err.Number<>0 then Exit function

SaveFiles = ""
    ks = Upload.UploadedFiles.keys
    if (UBound(ks) <> -1) then
        SaveFiles = "<B>Files uploaded:<br></B> "
        for each fileKey in Upload.UploadedFiles.keys
            SaveFiles = SaveFiles & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) "
        next
    else
        SaveFiles = "The file name specified in the upload form does not correspond to a valid file in the system."
    end if
 SaveFiles = SaveFiles & "<br>New name = " & Upload.Form("enter_a_number") & "<br>"
 SaveFiles = SaveFiles & "Format = " & Upload.Form("checkbox_values") & "<br>"
----------------------------------------------
Ich habe in die Function noch folgendes angefügt:
'----------Logfile schreiben----------------------
   dim strNamelog, strFilelog
   dim fso, objFS, objFile, strFileContent

strNamelog = "," & Upload.Form("enter_a_number") & "," & Upload.Form("checkbox_values")
   Upload.Form("checkbox_values")
   strFilelog = "\rabmed98\c$\Inetpub\wwwroot\konvert\logfile.txt"

set fso = CreateObject("Scripting.FileSystemObject")
   If Not fso.FileExists(strFilelog) Then
      fso.CreateTextFile(strFilelog)
   End If

If Len(strNamelog) > 0 Then
      Set objFS = CreateObject("Scripting.FileSystemObject")
      Set objFile = objFS.OpenTextFile(strFilelog, 8)

objFile.WriteLine strNamelog
      objFile.Close

End If

Set fso = CreateObject("Scripting.FileSystemObject")
   Set objFile = fso.OpenTextFile(strFilelog, 1)
   While Not objFile.AtEndOfStream
      strFileContent = strFileContent & objFile.ReadLine & "<br>"
   Wend
   objFile.Close
'-------------------------------------------------

Aber leider fehlt mir die entsprechende Variabel um den dateinamen im logfile.txt zu speichern.

im browser gibt er mir folgendes aus nach einem upload:
Files uploaded:
strophe4.mp3 (659866B)
New name = test
Format = 2

im logfile steht nur ,test, 2 (weil die variabel noch fehlt)