Sigo con lio ya puedo subir el archivo y renombrarlo con el codigo:
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count= Upload.Save("c:\hcrt\misitio.com\html\carpeta")
%>
<% = Count %> ficheros subidos.
<%
Dim FSO, Fich , NombreAnterior, NombreNuevo
'Inicialización
NombreAnterior = "archivo.jpg"
<- este nombre del archivo lo introduzco "a mano"
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
%>
Lo unico que no consigo
es sacar el nombre original del archivo desde el formulario de introdución de datos.
He probado con upload.form ...nada
POR FAVOOOOOOOR ¿Alguna ayudiiiiiiitaaaaaaaaa?