problemi download file mdb

[mrstex]

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

<% 
<% 

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!!!

[orcim]

Ma che fai scarichi il db in locale?

[mrstex]

Ho provato questo codice su diversi server. Su Aruba funziona bene, mentre su Natan mi scarica solo 30 kb del file mdb.
Non ne so il motivo ma vorrei risolvere il problema!

[orcim]

Allora contatta l'assistenza natan è un problema di configurazione server.

[mrstex]

...