upload funciona en un ordenador y no en otro (Trabajando con IIS)

[sqa212]

'Create the file.
Set fso = CreateObject("Scripting.FileSystemObject")
'ABAJO ESTA LA LINEA 156
Set f = fso.OpenTextFile(server.mappath("..") & "\forojb\activos\imagenes\" &_
FileName, ForWriting, True)
f.Write strFileData
Set f = nothing
Set fso = nothing

lngNumberUploaded = lngNumberUploaded + 1

End if