Forçar download

[new 0]

Pessoal queria saber onde está errado no código abaixo... Eu precisava forcar o download de arquivos que estão em outro servidor. Tenho tendado de várias formas, (esta é uma delas) mas não consigo

 

 

<%Dim FileName, strFilePath, sFileTypeFileName = "nomedoarquivo.pdf"strFilePath = "http://www.meusite.com.br/"'// INDICAMOS O TIPO DE ARQUIVO QUE QUEREMOSresponse.AddHeader "Content-Type", "application/pdf"'// INDICAMOS O NOME DO ARQUIVO E LIMPAMOS O BUFFERResponse.AddHeader "Content-Disposition","attachment; filename="& FileNameResponse.FlushResponse.Buffer = True'// CRIAMOS O OBJETO NECESSÁRIO PARA DOWNLOAD DO ARQUIVO DE FORMA BINÁRIADim objStreamSet objStream = Server.CreateObject("ADODB.Stream")objStream.OpenobjStream.Type = 1  'adTypeBinary'// INDICAMOS O CAMINHO COMPLETO INCLUINDO O NOME PARA O DOWNLOADobjStream.LoadFromFile strFilePath & FileNameResponse.BinaryWrite objStream.Read'// FECHAMOS E DESTRUÍMOS OS OBJETOS UTILIZADOSobjStream.CloseSet objStream = NothingResponse.Flush%>

[Salgado 4]

Salvo engano, não é possível fazer uso do ADODB.Stream em arquivos que não estão no mesmo Server que o Script. Uma forma possível seria usar XMLHttp, dê uma pesquisada aqui mesmo no fórum e faça um teste.