バイナリを読み込んで出力するには、ADODB.Stream オブジェクトを使用するだけです。  
ADODB.Stream MSDN ライブラリを参照してください: 
http://msdn.microsoft.com/en-us/library/ms675032(VS.85).aspx
Experts Exchange からも見つけた例を次に示します。
Function ReadBinaryFile(strFileName) 
        on error resume next 
        Set oStream = Server.CreateObject("ADODB.Stream") 
        if Err.Number <> 0 then 
                ReadBinaryFile=Err.Description 
                Err.Clear 
                exit function 
        end if 
        oStream.Type = 1  
        oStream.Open 
        oStream.LoadFromFile strFileName 
        if Err.Number<>0 then 
                ReadBinaryFile=Err.Description 
                Err.Clear 
                exit function 
        end if 
        ReadBinaryFile=oStream.Read 
        oStream.Close 
        set oStream = nothing 
        if Err.Number<>0 then ReadBinaryFile=Err.Description 
End Function