Secondo voi per quale oscuro motivo questo codice scarica solo 30kb del file DB
codice:
<% 
<% 

call downloadFile(replace(replace(Request("file"),"\",""),"/",""))

function downloadFile(strFile)


' crea path completa del file
strFilename = server.MapPath("filename")


' buffer
Response.Buffer = True
Response.Clear

' crea stream
Set s = Server.CreateObject("ADODB.Stream")
s.Open

' imposta a binario
s.Type = 1

' carica il file
on error resume next


' controlla esistenza
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strFilename) then
Response.Write("<h1>Errore:</h1>" & strFilename & " non esiste

")
Response.End
end if


' ricava grandezza file
Set f = fso.GetFile(strFilename)
intFilelength = f.size


s.LoadFromFile(strFilename)
if err then
Response.Write("<h1>Errore: </h1>" & err.Description & "

")
Response.End
end if

' invia headers al browser
Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
Response.AddHeader "Content-Length", intFilelength
Response.Charset = "UTF-8"
Response.ContentType = "application/octet-stream"

' download file in output
Response.BinaryWrite s.Read
Response.Flush


' chiude tutto
s.Close
Set s = Nothing


end function

%>
Grazie!!!