error al subir archivo al servidor

[yomesmo]

Pues tiene toda la pinta de que efectivamente no tienes derecho de escritura en esa carpeta. Prueba con un código mas sencillo, por ejemplo create una nueva página con este código:

<%


Set fs = Server.CreateObject("Scripting.FileSystemObject")


Ruta_fisica = Server.MapPath("/carpeta_donde_quieres_subir_las_fotos/carpeta_prueba/")

fs.CreateFolder(Ruta_fisica)

Set fs = Nothing %>

debería de crearte una carpeta con el nombre de "carpeta_prueba"