ASP upload renombrar archivo

[Anushka]

Ole Yoooooooooooooo!!!!!!!!!!!!!!!
Ya lo tengo!!!!!!!!!!!!!!!!!
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count= Upload.Save("c:\chrt\misitio.com\html\carpeta")
imagen = Upload.Files("ar").FileName
%>
<% = Count %> ficheros subidos.
<%
Dim FSO, Fich , NombreAnterior, NombreNuevo
'Inicialización
NombreAnterior = imagen
NombreNuevo ="Nuevo.jpg"

' Instanciamos el objeto
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
' Asignamos el fichero a renombrar a la variable fich
Set Fich = FSO.GetFile(Server.MapPath("\carpeta\" & NombreAnterior))
' llamamos a la funcion copiar,
'y duplicamos el archivo pero con otro nombre
Call Fich.Copy(Server.MapPath("\carpeta\" & NombreNuevo))
' finalmente borramos el fichero original
Call Fich.Delete()

Set Fich = Nothing
Set FSO = Nothing


%>
<%
Set Upload = Nothing
%>