mi da questo errore:
ADODB.Stream error '800a0bba'
File could not be opened.
/download.asp, line 32
il codice della pagina download è:
che richiamo da una pagina in cui estraggo dal db una lista di files:codice:<% src = Server.MapPath("/mdb-database/Archivio.mdb") Set adoCon = Server.CreateObject("ADODB.Connection") sConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & src adoCon.Open sConnStr Dim DataConn, rsDC Dim sRequestIP, FileToDownload Dim objRecordset FileToDownload=Clng(Request.QueryString("ID")) if Len(Trim(FileToDownload)) = 0 then 'controllo che ci sia scritto qualcosa response.write "Impossibile effettuare l'operazione. Non è stata selezionata nessuna canzone" Else sRequestIP=Request.ServerVariables("REMOTE_ADDR") Set rsDC = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM Archivio WHERE ID =" & FileToDownload rsDC.Open strSQL, adoCon If Not rsDC.EOF Then numDLCount = rsDC("Download") + 1 Dim objStream Set objStream = Server.CreateObject("ADODB.Stream") objStream.Type = 1 ' adTypeBinary objStream.Open objStream.LoadFromFile Server.MapPath("karSTOP/" & FileToDownload) 'objStream.LoadFromFile Server.MapPath(FileToDownload) ' Istruiamo il browser sul tipo di file Response.AddHeader "Content-Disposition", "attachment; filename=" & FileToDownload Response.ContentType = "application/octet-stream" Response.BinaryWrite objStream.Read objStream.Close Set objStream = Nothing Set objRecordset = Server.CreateObject("ADODB.Recordset") strSQL = "UPDATE Archivio SET Archivio.Download='" & numDLCount & "' WHERE ID =" & FileToDownload objRecordset = adoCon.Execute(strSQL) else response.write "Il file richiesto non è disponibile per il download" end if Set rsDC = Nothing Set objRecordset = Nothing adoCon.Close End if Set adoConn = Nothing %>
<td width="5%" height="20" align="left"><%=rs(3)%></td>
qualcuno sa aiutarmi?

Rispondi quotando
