Ciao, sto compilando questa parte del codice, ma fintanto che scarico i dati sotto 5mb tutto funziona, superato quella soglia non funziona più. Mi potete aiutare? ecco il codice.
codice:<%@LANGUAGE = VBScript%><% ' Recupero il file da scaricare Dim download, files if request("tf")=1 then ' file programmazione files="/public/itcsantagata/programmazione/" & Request.QueryString("file") elseif request("tf")=2 then 'file progra files="/public/itcsantagata/programsostegno/" & Request.QueryString("file") elseif request("tf")=3 then 'file progetti files="/public/itcsantagata/progetti/" & Request.QueryString("file") elseif request("tf")=4 then 'file dip. disciplinari files="/public/itcsantagata/dip_disciplinari/" & Request.QueryString("file") elseif request("tf")=5 then 'file circolari files="/public/itcsantagata/circolari/" & Request.QueryString("file") elseif request("tf")=6 then 'file decreti files="/public/itcsantagata/decreti/" & Request.QueryString("file") elseif request("tf")=7 then 'file modulistica files="/public/itcsantagata/modulistica/" & Request.QueryString("file") elseif request("tf")=8 then 'file verbali cons files="/public/itcsantagata/verbcons/" & Request.QueryString("file") elseif request("tf")=9 then 'file curriculum files="/public/itcsantagata/curriculum/" & Request.QueryString("file") elseif request("tf")=10 then 'file musica mp3 files="/public/itcsantagata/coro/" & Request.QueryString("file") elseif request("tf")=11 then 'file formclero files="/public/itcsantagata/formclero/" & Request.QueryString("file") elseif request("tf")=12 then 'file ufficio liturgico files="/public/itcsantagata/ufflitur/" & Request.QueryString("file") end if ' Creo l'oggetto ADODB.Stream Set download = Server.CreateObject("ADODB.Stream") ' Apro la connessione e carico il file download.Type = 1 download.Open download.LoadFromFile Server.MapPath(files) 'Aggiungo le intestazioni del tipo di file Response.AddHeader "Content-Disposition", "attachment; filename=" & Request.QueryString("file") Response.ContentType = "application/octet-stream" Response.BinaryWrite download.Read download.Close Set download = Nothing %>