memorizzare filename durante upload

[agenti]

<%
'############UPLOAD FILE ##################
Dim oUpload
Dim file(3)
file(i) = "file(i)"

Set oUpload= new cUpload
With oUpload

.EnabledAspUpload = False
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "\italiano\upload"
.Load
.UploadOnly "files"

While Not .Eof
i=i+1
.Save
file(i)=.GetFileName

.MoveNext
Wend

in poche parole dovrei memorizzare i nome dei file che si creano durante l'upload per poi usarli per un invio di uan mail alla fine dell'upload stesso.

Potete darmi una dritta?
Grazie.