I've altered your code just a little and it works but it doesn't exactly solve my problem. See
http://flyinghands.com/a_Download0.asp
This works as long as the file being downloaded is located on the same server as the script. I have so many files I've located them on a seperate hosting service from my web site.
Here is my version:
------------------------------------------
<%@ LANGUAGE="VBScript" %>
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
<%
Function getBinaryFile(strFilePath)
Dim oStream
Set oStream = Server.CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = adTypeBinary
oStream.LoadFromFile strFilePath
getBinaryFile = oStream.read
Set oStream = Nothing
End Function
Dim MyFile
Dim MyPath
Dim MyServer
Dim Local
MyPath = "d/lo/10/01/"
MyFile = "d100101.mp3"
Response.AddHeader "content-disposition","inline; attachment; filename=" & chr(34) & Myfile & chr(34)
Response.ContentType = "application/x-unknown"
Response.BinaryWrite getBinaryFile(Server.MapPath(MyPath & MyFile))
%>
------------------------------------------
The Line Server.MapPath(MyPath & MyFile) resolves to the local server and I need to pass a Remote URL. Any sugestions?