[Resolvido] Forçando Downloads

[Ted k' 126]

Função Criada...

public function download(arquivo, pasta)
	dim objStream
	set objStream = server.createObject("ADODB.Stream")
	with (response)
		.buffer = true  
		.addHeader "Content-Type","application/x-msdownload"
		.addHeader "Content-Disposition","attachment; filename="&arquivo  
		.flush  
	end with
	with (objStream)
		.open  
		.type = 1  
		.loadFromFile server.mapPath(pasta)
	end with
	response.binaryWrite objStream.read
	set objStream = nothing
	response.flush
end function

para chamar a função...

<a href="<% call download("arquivo.pdf", "pasta") %>">baixe aqui</a>