jajajaja, no te preocupes, nos pasa a todos.
Si vas a dejar los archivos y el script en el mismo sitio si te conviene usar MapPath:
1 - Instancia una variable con el mapPath:
path = server.MapPath(".") & "\" ' Indica que averigue donde esta el directorio actual y añadimos una barra invertida al final para indicar que es un directorio
2 - Cambia todas las direcciones absolutas por la variable
Count= Upload.Save("
d:/clients/misitio/carpetaftp/without_flash/newfile") por Count= Upload.Save(path)
Set Fich = FSO.GetFile("
d:/clients/misitio/carpetaftp/without_flash/newfile" & NombreAnterior) por Set Fich = FSO.GetFile(path & NombreAnterior)
Call Fich.Copy("
d:/clients/misitio/carpetaftp/without_flash/newfile" & NombreNuevo) por Call Fich.Copy(path & NombreNuevo)
Ya nos cuentas
Un saludo