forçar download

[Patricia 0]

tem 300 milhões de posts aqui com o mesmo tema, e eu já tentei seguir a dica do pessoal

 

CODE

Dim strFileName

strFileName = rs("ds_upload")

 

Response.AddHeader "Content-Type","application/x-msdownload"

Response.AddHeader "Content-disposition","attachment;filename=" & strFileName

 

Set objStream = Server.CreateObject("ADODB.Stream")

objStream.Open

objStream.Type = 1 '1=binary 2=text

objStream.LoadFromFile rs("ds_upload_binary")

 

Response.BinaryWrite objStream.Read

 

objStream.Close

Set objStream = Nothing

 

mas quando abro o arquivo que acabei de salvar na minha máquina, não vem com o conteúdo certo, vem com:

 

CODE

ADODB.Stream error '800a0bba'

 

File could not be opened.

 

/sisci/v1/include_funcoes/generico_funcoes_forcaDownload.asp, line 26

 

ou seja, o LoadFromFile num rolou!!

 

alguém sabe me dizer, aonde que eu to comendo bola?

[jrcardozo 4]

acontece algum erro?

o arquivo está na mesma pasta que este arquivo que força o download?

[Patricia 0]

o arquivo não está em nenhum pasta, o arquivo está salvo em um campo binário do sql

 

eu clico no link que acessa esse código aí que citei, aparece a mensagem se eu quero ou salvar o arquivo, mas quando eu salvo, o conteúdo é aquela mensagem de erro.

[Patricia 0]

Usando o seguinte código:

 

CODE

Response.ContentType = rs("ds_upload_type")

Response.BinaryWrite rs("ds_upload_binary")

 

já força do download de arquivos do tipo .doc. xls

 

mas no caso de imagem e txt, ele mostra no browser, por isso que eu estou testando com o Stream, mas acho qeu no meu caso, não preciso desse componente.

 

Mas não sei como faço =/