Problem Modify ASPUpload Function

I tried to make the function below to return three separate values, so I can store them in Access Table separately.
Here is the function:
==========================
function FileNames
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

FileNames = ""
ks = Upload.UploadedFiles.keys
if (UBound(ks) <> -1) then
FileNames = "<B>Files uploaded:</B><BR>"
for each fileKey in Upload.UploadedFiles.keys
FileNames = FileNames & "<BR>" & Upload.UploadedFiles(fileKey).FileName
FileNames = FileNames & " (" & Upload.UploadedFiles(fileKey).Length & "Bytes) "
FileNames = FileNames & Upload.UploadedFiles(fileKey).ContentType


next
else
FileNames = "The file name specified in the upload form does not correspond to a valid file in the system."
end if
end function
===================================
The above function will give me all three attributes (filename, size, type) as one value. I wanting it return three separate values. Can anyone help?

 

 

 

 

Top