FSO GetFile som JPG ?

Jeg prøver på at læse et billede (JPG) ind som en ASP fil og har prøvet lidt forskelligt, i Internet Explorer får jeg bare en Fejl 500 / intern server fejl.. og i Netscape får jeg denne her:

"The image “picture.asp” cannot be displayed, because it contains errors."

Det her er koden jeg har haft rodet med:


<% option explicit

Const ForReading = 1, ForWriting = 2, ForAppending = 8

dim fso,file,stream
set fso=Server.CreateObject("Scripting.FileSystemObject")
set file=fso.GetFile(Server.Mappath("Image.jpg"))
set stream=file.OpenAsTextStream(ForReading, -2)

Response.ContentType="image/jpg"

Response.Write(stream.readall)

set file=nothing
set fso=nothing
set stream=nothing
%>