Salut, Voilà le code pour ma page htm :
"<HTML>
<BODY BGCOLOR="white">
<H1>aspSmartUpload : Sample 7</H1>
<HR>
<A HREF="/hbook/scripts/aspSmartUpload/Sample7.asp">Download from a database</A>
</BODY>
</HTML>"
Normalement, je dois voir, quand je click sur le lien, une liste des fichiers qui sont dans ma base.
Voilà le code de la page asp qui doit faire cela :
"<%
' Variables
' *********
Dim mySmartUpload
Dim oConn
Dim strSQL
Dim oRs
' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Connect to the DB
' *****************
Set oConn = Server.CreateObject("ADODB.Connection")
curDir = Server.MapPath("\hbook\scripts\aspSmartUpload\Sample.mdb")
oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
' Open a recordset
' ****************
strSQL = "SELECT FILENAME,FILE FROM TFILES"
Set oRs = Server.CreateObject("ADODB.recordset")
Set oRs.ActiveConnection = oConn
oRs.Source = strSQL
oRs.Open
' DownloadField
' *************
mySmartUpload.DownloadField(oRs("FILE"))
' samples with optionnals
' Call mySmartUpload.DownloadFile(oRs("FILE"), "application/x-zip-compressed", "download.zip")
' Call mySmartUpload.DownloadFile(oRs("FILE"), "application/x-zip-compressed", oRs("FILENAME"))
' Destruction
' ***********
oRs.Close
oConn.Close
Set oRs = Nothing
Set oConn = Nothing
%>"
Quand je click sur le lien de mapage précédente, il me télécharge la page ASP. même si je dis : ouvrir, une seconde boite apparaît et me repose la même question.
Merci d'avance.
