Error en Upload ASP

[tammander]

No uses el MapPath. Segun veo el script que ejecuta las instrucciones anteriores no esta en el camino de los archivos que guardas (/without_flash/Upload_new.asp). Usa directamente la direccion absoluta, tal como haces para guardar con el Upload:

Count= Upload.Save("/c:/clients/misitio/data")


Quedaria asi:

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count= Upload.Save("/c:/clients/misitio/data")
%>
<% = 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("c:\clients\misitio\data\" & NombreAnterior)
' llamamos a la funcion copiar,
'y duplicamos el archivo pero con otro nombre
Call Fich.Copy("c:\clients\misitio\data\" & NombreNuevo)
' finalmente borramos el fichero original
Call Fich.Delete()


Copialo y pegalo en tu script.