Ayuda Urgente - No me funciona el FTP

Con el siguiente codigo leo el contenido de un directorio Documentos_PDF
(El
contenido de los mismos es unicamente es el nombre)
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set lista_archivos = fs.GetFolder(Server.MapPath("./Documentos_PDF"))

'Mostramos los archivos...
For each filefound in lista_archivos.files
Response.Write filefound.Name & "<BR>"
Next
%>
Mi pregunta es como descargo mediante ftp privado desde un servidor que
contiene los documentos integros

MyRuta="ftp://usuario:contraseñ/Directorio/"
El enlace que trato de poner y no me funciona es
For each filefound in lista_archivos.files
<a target="_blank" href="<%Response.Write MyRuta&filefound.Name%>"> <%
Response.Write filefound.Name %> </a>

Next
En la barra de estado muestra perfectamente la ruta pero al intentar
descargarlo no es posible

Gracias

Ojo que asi estas haciendo publica tu clave de ftp... :-S, cualquiera puede
verla desde codigo fuente

en cualquier caso prueba a copiar el acceso directo y pegarlo en una nueva
ventana de explorador, a ver que te dice (puede ser archivo no encontrado, o
imposible contactar con el servidor, o similares) , puede ser problema de
haber olvidado la carpeta raiz del ftp o algo similar...

"Cristina M." escribió en el mensaje
news:
> Con el siguiente codigo leo el contenido de un directorio Documentos_PDF
> (El
> contenido de los mismos es unicamente es el nombre)
> <%
> Set fs = Server.CreateObject("Scripting.FileSystemObject")
> Set lista_archivos = fs.GetFolder(Server.MapPath("./Documentos_PDF"))
>
> 'Mostramos los archivos...
> For each filefound in lista_archivos.files
> Response.Write filefound.Name & "<BR>"
> Next
> %>
> Mi pregunta es como descargo mediante ftp privado desde un servidor que
> contiene los documentos integros
>
> MyRuta="ftp://usuario:contraseñ/Directorio/"
> El enlace que trato de poner y no me funciona es
> For each filefound in lista_archivos.files
> <a target="_blank" href="<%Response.Write MyRuta&filefound.Name%>"> <%
> Response.Write filefound.Name %> </a>
>
> Next
> En la barra de estado muestra perfectamente la ruta pero al intentar
> descargarlo no es posible
>
> Gracias
>