estou tentando fazer download de arquivo mp3. estou usando o código abaixo. porém, o download está sendo feito errado,pois o arquivo no servidor tem mais de 3 mega e quando salvo na minha máquina o tamanho do arquivo está de 0 kb.
qual é o erro? o que falta?
<%
musica = request("musica")
dir = "diretorio_servidor"
call download(musica, dir)
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&"/"&arquivo)
end with
response.binaryWrite objStream.read
set objStream = nothing
response.flush
end function
%>