forzare il download

[ziobabba]

Scusate ragazzi ma non funziona la ricerca e allora ho deciso di scrivere per sapere se esiste una risposta.
Ho questo codice che mi forza il download di qualsiasi file senza la noiosa cosa di aprirlo da browser

Dim objStream, strFileName
strFileName = Request.QueryString("file")
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open
objStream.LoadFromFile Server.MapPath("files/"&strFileName)
Response.AddHeader "Content-Disposition", "attachment; filename=" & strFileName
Response.ContentType = "application/octet-stream"
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing

%>
ma alla riga
objStream.LoadFromFile Server.MapPath("files/"&strFileName)
quando va in esecuzione mi riporta l'errore :

ADODB.Stream (0x800A0BBA)
Impossibile aprire il file.
ho fatto un po di ricerche ma non ho trovato niente nella rete.

Avete qualche dritta??!!??

Ciao e grazie
Zio

[ziobabba]

allora sono riuscito a risolvere in questo modo

Response.ContentType = "application/x-msexcel"

Const adTypeBinary = 1
Dim strFilePath

strFilePath = "c:\...\"&request("file")

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath

Response.AddHeader "Content-Disposition", "attachment; filename=" & request("file")
Response.ContentType = "application/octet-stream"

Response.BinaryWrite objStream.Read

objStream.Close
Set objStream = Nothing


Ora c'e' qualcuno che ci capisce qualcosa perche' con il codice sopra funziona e questo qui sotto mi da' l'errore:

ADODB.Stream (0x800A0BBA)
Impossibile aprire il file.

Dim objStream, strFileName
strFileName = Request.QueryString("file")
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open
objStream.LoadFromFile Server.MapPath("files/"&strFileName)
Response.AddHeader "Content-Disposition", "attachment; filename=" & strFileName
Response.ContentType = "application/octet-stream"
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing

A me sembrano tutti e due giusti!!

Grazie a chi vorra lambicarsi il cervellino

Ciao a tutti e......
FORZA AZZURRI!!!!!!
Zio