errore in download

[webfaber]

Ciao a tutti,
ho fatto ricerche sul forum, ma non riesco a risolvere questo problema. Imposto il download di un file PDF, lo apre,ma genera sempre errori, nel senso che al posto dei 250 kb previsti, ne scarica 14 kb. Perché?. Vi posto il codice

strNome = strProd
Set objStream = Server.CreateObject("ADODB.Stream")

objStream.Type = adTypeBinary
objStream.Open
objStream.LoadFromFile Server.MapPath("/public/pdf/"& strProd &".pdf")

Response.ContentType = "application/pdf"

' imposto il nome del file
Response.AddHeader "Content-Disposition", "attachment;filename=" & StrNome &".pdf"

Response.BinaryWrite objStream.Read
Response.Flush
objStream.Close
Set objStream = Nothing

[fraude]

Hai provato senza codice? Cioè a fare il download direttamente dalla barra degli indirizzi?
Solo così potrai sapere se il problema è lo script o è altro.

[webfaber]

Senza codice, lo apre perfettamente. Volevo utilizzare questa procedura,perchè rimandando a un pagina download, mettevo i pdf in una sezione _private non accessibile.
Dov'è l'errore nel codice?

[fraude]

Prova a personalizzarti questo (funziona):

 <%
  dim objStream, myFILE, fname
  Const adTypeBinary = 1
  Const adReadAll = -1
  fname = request("nomefile")
  myFILE = Server.MapPath(".") & "/docs/" & fname
  set objStream = Server.CreateObject("ADODB.Stream")
  objStream.Type = adTypeBinary
  objStream.Open
  objStream.LoadFromFile myFILE
  Response.Expires = 0
  Response.Buffer = true
  Response.ContentType = "application/octet-stream"
  Response.Addheader "Content-Disposition", "attachment; filename=" & fname
  Response.Addheader "Content-Length", objStream.size
  Response.BinaryWrite(objStream.Read(adReadAll)) 
  objStream.Close
  set objStream = nothing
  Response.End
%>

[webfaber]

Niente da fare. Ora noto che mi scarica il file nella sua interezza ma deve esserci qualche problema di decodifica...