Me ha vuelto loco esto
:
Set f = fso.OpenTextFile(server.mappath("..") & "
\upload\upload"
Al ponerlo así te renombra el archivo
upload+nombre del archivo... al estar usando otra carpeta con más archivos no los veía y parecía que no los subía hasta darme cuenta del error.
Lo ideal es solo con una barra más de como está en el código inicial y por cierto, a mi no me funciona con dos puntos yo tengo que quitarle uno entre los paréntesis:
Set f = fso.OpenTextFile(server.mappath
(".") & "
\upload\"
Sencillo y funcional, gracias por la colaboración
SaLu2