Quesito su Upload di Baol

[zetaweb]

ragazzi avendo questo codice, come faccio ad assegnare un nome ad ogni file uploadato?

<%
Dim oUpload 
Set oUpload = new cUpload 
oUpload.AutoRename = True 
oUpload.Overwrite = False 
oUpload.SetPath "public\" 
oUpload.Upload 

while not oUpload.EOF 
oUpload.Save() 
nome = oUpload.GetFileNAme() 
oUpload.MoveNext 
Wend 
%>

Ho provato aggiungengo la riga che vedete in neretto, ma se i file sono piu di uno ovviamente mi restituisce soltanto l'ultimo aggiunto.

Potete aiutarmi?
Grazie mille!