error al subir archivo al servidor

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