error al subir archivo al servidor

[baditxuk]

Hola a tod@s.

Tengo una pagina para subir archivos al servidor. El codigo lo cogi de un post de este foro:
http://www.forosdelweb.com/f15/codig...gratis-378326/

El error que me da es:

Error de Microsoft VBScript en tiempo de ejecución error '800a0046'

Permiso denegado

/upload.asp, línea 165

la linea 165 es:

Set f = fso.OpenTextFile(server.mappath("..") & "\upload" &_FileName, ForWriting, True)

Yo pensaba que la carpeta upload del servidor no tenia permisos de escritura. Me explicaron los del hosting como se daba permisos y le di permiso de escritura a dicha carpeta.
La cosa es que me sigue dando el mismo error.

Alquien sabe alguna otra solucion?

gracias.

[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"

[baditxuk]

Pues siq me crea la carpeta.

Entonces el problema es del codigo? es un codigo cogido de aquí, de uno que lo a posteado y he visto uno igual en varios manuales de asp...

[yomesmo]

Entonces es del código, comprueba que la ruta a donde apunta el objeto "f" existe y es la que tiene los derechos de escritura, todo indica que es eso.

[baditxuk]

Hola, gracias x tu tiempo.

Algo he avanzado, para empezar en la linea que me da error:
Set f = fso.OpenTextFile(server.mappath("..") & "\upload" &_
FileName, ForWriting, True)

el server.mappath("..") tendria que ser ("./") para que me cojiera tb la carpeta html(es donde tengo todo el codigo metido). Aun asi me falla lo mismo.

he probado este codigo en el servidor:
<%
Dim ruta
ruta = Server.MapPath("./")
Response.Write ruta
%>

y me sale la ruta que me coge que es la siguiente:
D:\XVRT\nevodrom.es\Html

mi dominio es nevodrom.es y dentro de ahi tengo html y dentro de ahi la carpeta upload (permiso dado de escritura) donde quiero guardar mis archivos.

Lo que no se que es eso de D:\XVRT\

un saludo.

[baditxuk]

Ya logre hacerlo bien...uuffff lo que me ha costado.

asi queda la linea --> Set f = fso.OpenTextFile(server.mappath("/") & "/upload/" &FileName, ForWriting, True)

Muchas gracias yomesmo