Descargar con VBScript

[chacart]

¿Como se puede hacer un link en VBScript que genere una descarga de un archivo cuyo nombre lo tomo de una Base de Datos en SQL Server 2000?. En PHP se hacerlo, es algo como lo siguiente:

mysql_connect("localhost","root","root");
$result=mysql_db_query("BD","select * from tabla");

while ($row=mysql_fetch_array($result))
{
echo '<a href="Sitio Web\\'.$row["Nombre del archivo"]. '">'.$row["Nombre del archivo"].'</a>';
}


Lo que esta dentro del ciclo while es precisamente lo que no he encontrado como hacer en VBScript

[u_goldman]

Pues es muy similar:

Creas un recordset, asumiendo que ya tienes una conexion activa

Set rsArchivos = Server.CreateObject("ADODB.Recordset")
strSQLArchivos = "SELECT * FROM tabla"
rsArchivos.Open strSQLArchivos, ObjConn, 3, 3

While Not rsArchivos.EOF
Response.write("<a href= SitioWeb/" & rsArchivos("campo_archivo") & ">" & rsArchivo("campo_archivo") & "</a><br>")
rsArchivos.MoveNext
Wend

rsArchivos.Close
Set rsArchivos = Nothing

Salu2,