Vis billed med binarywrite

Bruger det her kode til at hente et billed, men en download boks vises i stedet for et billede.
Det må være Response.BinaryWrite objStream.Read der skal ændres, men til hvad?

<%
Const adTypeBinary = 0

Set uAgent = Request.ServerVariables("HTTP_USER_AGENT")
if (inStr(uAgent, "IE")) Then
' Explorer
Response.ContentType = "m_type"
Response.AddHeader "Content-Disposition", "atachment; filename="& file
Else
' NetScape
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition", "attachment; filename="& chr(34) & file & chr(34)
End if

Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")

objStream.Type = adTypeBinary
objStream.Open
objStream.LoadFromFile server.mappath(file)
Response.BinaryWrite objStream.Read

objStream.Close
Set objStream = Nothing

Response.Flush
%>