El error que me da es este
Error de Microsoft VBScript en tiempo de ejecución error '800a0046'
Permiso denegado
el error está en esta linea
Set f = fso.OpenTextFile(FileName, ForWriting, True)
He comprobado los permisos del IIS y estan todos habilitado , tambien he dado permisos IWuser _miordenador , a la cuenta de invitado de usuario de internet dentro de mi sistema operativo para que pueda hacer lo que quiera y ni aun asi, de todas formas si veis un ejemplo de upload sencillo avisadme