Preciso de Ajuda - Como mudar o nome no arquivo upload

[Paulo Prudente]

Por favor, alguém poderia me ajudar.

Como faço para mudar o nome do arquivo na hora de salvar no servidor.
O código esta funcionado perfeitamente
 

<%
Dim objUpload
Set objUpload = Server.CreateObject("Dundas.Upload.2")
objUpload.MaxFileSize = 6500000
objUpload.UseVirtualDir = True
objUpload.UseUniqueNames = False
'..................local onde o arquivo sera salvo
objUpload.Save "up"

'......................nome do arquivo
For Each objUploadedFile in objUpload.Files 
pp = Right(objUploadedFile.path,Len(objUploadedFile.path)-InstrRev(objUploadedFile.path,"\")) 
Next 
Set objUpload = Nothing

%>