Hola
Creo recordar que solamente has de modificar la propiedad Get FileName
Código ASP:
Ver originalPublic Property Get FileName()
'FileName = nameOfFile
' Cambia el nombre de la imagen por el nombre del usuario, mantiene la extensión original
FileName = nuevoNombre & lcase(Right(nameOfFile, 4))
End Property
Suerte