Mostrar uploads en ASP

[dragerk]

Tengo 1 probela que puede tener 2 soluciones a mi parecer, creo:

.Problema. Hago un Upload al servidor, despues d esto esta muy bien todo pero la cosa es que tengo que mostrar estos uploads (imagenes, zips, exe, etc) en una pagina donde este el nombre del archivo y un link a este para descargar, lo "importante es el link", pero que sea peridicamente ya que se estarian haciendo uploads constantemente.

.sol1. Hay un script ASP que despliega los archivos contenidos en un directorio pero solo demuestra el nombre (archivo.zip), pero falta el link.
Hay forma de modificar este codigo para que lo haga automaticamente

[COLOR=LightBlue]<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set lista_archivos = fs.GetFolder(Server.MapPath("./sa"))

'Mostramos los archivos...
For each filefound in lista_archivos.files
Response.Write filefound.Name & "<BR>"
Next
%>[/COLOR]

.sol2. Insertar los uploads a una base de datos como datos binarios, si los puedo subir pero el problema es en la siguiente linea y no estoy muy familiarizado aun con SQL asi que no logro que la acepte por mas cambios que le hago a esta sentencia:

Sentencia.
rs.Open "select [ID],[File Name],[File Size],[Content Type],[First Name]" & _
"[Last Name],[Profession] from Files order by [ID] desc", connStr, 3, 4
Error.
Microsoft JET Database Engine (0x80040E14)
Error de sintaxis (falta operador) en la expresión de consulta '[First Name][Last Name]'.


Si alguien tiene alguna sugerencia, aqui esta mi correo: [email protected] o tambien por el foro por si alguien mas necesita que le responadan alguna duda parecida.

[tomyguan]

Iniciado por dragerk

<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set lista_archivos = fs.GetFolder(Server.MapPath("./sa"))

'Mostramos los archivos...
For each filefound in lista_archivos.files
Response.Write filefound.Name & "<BR>"
Next
%>

Hola si te entendio bien quieres que tenga un link, seria asi
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set lista_archivos = fs.GetFolder(Server.MapPath("./sa"))

'Mostramos los archivos...
ruta=Server.MapPath("./sa") & "/"
For each filefound in lista_archivos.files
Response.Write ("<a href='" & ruta & filefound.Name & "' target='_blank'>"& filefound.Name &"</a><BR>"
Next
%>

Espero haberte entendido.

[dragerk]

Gracias Tomyguan, fue un exito la rutina que me proporcionaste, solo tube que cambiar .....ruta=Server.MapPath("./sa") & "/", esta linea por ruta="url de mi sitio", ya que si no la ruta que manejaba devido al host que tengo no la reconocia como ruta valida de algo para descargar.
nuevamente gracias.

[tomyguan]

Me alegro el haber podido ayudarte. a (B) for you

un saludo.