Download de doc/gif/jpg

Preciso criar uma lista de arquivos para download, no click, é iniciado o download do arquivo escolhido. Até aí, tudo bem. o problema é que quando eu termino de baixar um arquivo .doc/ .gif/ .jpg ele vem com defeito, os de imagem não abrem e o .doc, fica com lixo.

Segue o código que eu estou usando:

Response.Buffer = True response.AddHeader "Content-Type","application/x-msdownload" response.AddHeader "Content-Disposition","attachment; filename="&arquivo Response.Flush Const adTypeBinary = 1 Dim strFilePath Set objStream = Server.CreateObject("ADODB.Stream") objStream.Open objStream.Type = adTypeBinary objStream.LoadFromFile pasta Response.BinaryWrite objStream.Read objStream.Close Set objStream = Nothing Response.Flush

Sendo

pasta = endereço físico do arquivo

arquivo = nome do arquivo