[Resolvido] caixa de mensagem

Olá pessoal, estou reabrindo este post, devido que estou tendo dificuldades e não estou conseguindo achar uma solução, façodo download e o arquivo vem corrompido, ja vi e revi o código comparando com deste post e nada de solução... por favor quem puder me ajudar agradeço !

Linha que chama a própria página para fazer o download.

response.Write("<a href=http://www.art-final.com/Upload/download.asp?sit=D&arquivo="&trim(Item.name)&">"&trim(Item.name)&"</a>")

Trecho que faz o download acontecer.

If request.QueryString("sit") = "EX" then
Session.LCID = 1046
Set Fso = Server.CreateObject ("Scripting.FileSystemObject")
caminho = "D:\Domains\art-final.com\wwwroot\UpLoad\Arquivos\"
Fso.DeleteFile(Caminho & request.QueryString("arquivo"))
response.Redirect("download.asp")
end if

if request.QueryString("sit") = "D" then

'É necessário passar o nome do arquivo no FORM
Dim Arquivo
Arquivo = request.QueryString("arq")
Response.Buffer = True
Response.AddHeader "Content-Type","application/x-msdownload"
Response.AddHeader "Content-Disposition","attachment; filename=" & Request.QueryString("arquivo")
Response.Flush
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile Server.MapPath("\Upload\arquivos\" & trim(Request.QueryString("arquivo")))
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
Response.Flush

response.Write Server.MapPath("\Upload\arquivos\" & trim(Request.QueryString("arquivo")))
response.End()

end if

Dúvida referente ao tópico "Caixa de mensagem"