Posso specificare un nome per un file uppato con Baol?

[Sanjet]

Esempio, io inserisco come avatar del mio profilo utente l'immagine "133.gif".
Nel codice, però, voglio che sia rinominata come "nomeutente.gif".
E' fattibile?

<%
Dim oUpload
Set oUpload= new cUpload
with oUpload
.EnabledAspUpload = False
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "avatar/"
.GetFileName Session("nome_pg") & "." & .Ext
.Load
.UploadOnly "Images"
While Not .Eof
If .Files("Height")>200 or .Files("Width")>200 then
 Response.write ("<font face='Verdana' size=2>Le dimensioni dell'immagine " &_
 .GetFileName() &" non sono corrette (" &_
 .Files("Height") &"x" & .Files("Width") &"): File non caricato
</font>"  )
else
 .Save
 Response.Write "<font face='Verdana' size=2>Upload di " & .GetFileName() & " avvenuto con successo!!
</font>"
 avatar_uppato = .GetFileName()
end if
.MoveNext
Wend
End With
%>

Ho provato a far così ma, laddove ho grassettato la stringa, presenta l'errore:

Object doesn't support this property or method: 'ext'

Voi come fareste? Come potrei fare?

[Santino83_02]

se una funzione iniza con Get s'intende che restituisca solo un valore. Set che lo imposti invece

per salvare puoi fare, ad esempio:

nuovonome="pincopallino"


oUpload.saveAs(nuovonome & "." & oUpload.Files("ext"))