Ancora aiuto

[vegra]

Questo codice ASP mi va a leggere in una tabella del DB per l'approvazione dei brani mp3 inviato....fino ad ora ho scaricato manualmente i brani con FTP poi riinviati sempre con FTP

Il problema di inviarli al server l'ho risolto grazie al vostro aiuto con la discussione precedente.

Ora mi servirebbe collegare nella lettura del nome brano <%=RS("Filename")%> il download del brano stesso.
In pratica dovrei fare il dovnload del brano che risiede in public/TS/mp3 online.

Grazie



<%
Set OBJConn = server.createobject("ADODB.Connection")
OBJConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("\MDB-DATABASE\talentscout\talentscout.mdb")
OBJConn.open
set RS=server.CreateObject("ADODB.Recordset")
Sql="SELECT * FROM DaApprovare"
RS.Open Sql,objconn,1,1
Do While Not Rs.Eof
%>


<%=RS("IDBrano")%>

<%=RS("Artista")%>

<%=RS("Titolo")%>

<%=RS("Filename")%>

<%=RS("PermettiDownload")%>


<%
Rs.MoveNext
Loop
Rs.Close
Set RS = Nothing
OBJConn.Close
Set OBJConn = Nothing
%>

Tutto questo mi serve per migliorare il progetto TalentScout
http://www.vegramusic.it/TalentScout/index.asp

[Enrique_Rojas]

<%=Rs("Filename")%>

[vegra]

Grazie per la risposta ma mi da questo errore

Directory Listing Denied
This Virtual Directory does not allow contents to be listed.

Anche perche entra nella cartella public ma nn mi selezione il file

ecco il link restituito
http://www.vegramusic.it/Public/TalentScout/ZIP/

nn c'è il nome file...esempio:
http://www.vegramusic.it/Public/Tale...IP/miofile.mp3

...a dire il vero da quando ho il server windows 2003 anche se digito il link diretto nn mi scarica piu il file

[Enrique_Rojas]

non c'è il nome del file? e cos'è fileName?

[vegra]

si...è il nome del file...ma nn dovrebbe restituire un link del genere
http://www.vegramusic.it/Public/Tale...04_Track03.cda
invece di
http://www.vegramusic.it/Public/TalentScout/ZIP/
????

[Enrique_Rojas]

scusa ma come recuperi il nome del file?

[vegra]

dal database con:
<%
Set OBJConn = server.createobject("ADODB.Connection")
OBJConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("\MDB-DATABASE\talentscout\talentscout.mdb")
OBJConn.open
set RS=server.CreateObject("ADODB.Recordset")
Sql="SELECT * FROM DaApprovare"
RS.Open Sql,objconn,1,1
Do While Not Rs.Eof
%>


<%=RS("IDBrano")%>

<%=RS("Artista")%>

<%=RS("Titolo")%>

<%=RS("Filename")%>

<%=RS("PermettiDownload")%>


<%
Rs.MoveNext
Loop
Rs.Close
Set RS = Nothing
OBJConn.Close
Set OBJConn = Nothing
%>

[Enrique_Rojas]

prova a stampare quello che recuperi.

[vegra]

Ecco

[vegra]

Pardon...ecco