Ciao a tutti

ho un problema: ho creato una zona in ci scaricare file pdf, ma pur scaricandoli correttamente aprendoli mi dice che sono corrotti perchè non correttamente decodificati. Vi posto il codice: qualcuno può aiutarmi?

Grazie

pagina download:

if LoginResult = vlValidLogin then
strResDown = Download(strProd, Session("User"))

***Pagina che controlla il download***
Function Download(stringa, strUser)
timetable = now()


response.contenttype="application/pdf"
response.addheader "Content-Disposition","attachment; filename=" & chr(34) & stringa &".pdf" & chr(34)
response.binarywrite getBinaryFile(server.mappath("/_private/"& stringa &".pdf"))
Download = 0
end function

function getBinaryFile(fileSpec)
Dim adTypeBinary
adTypeBinary = 1
Dim oStream
set oStream = server.createobject("ADODB.Stream")
oStream.Open
oStream.Type = adTypeBinary
oStream.LoadFromFile fileSpec
getBinaryFile= oStream.read
set oStream=nothing
end function