Læsning af binære filer

Jeg ønsker at hente nogle binære data, men det bliver ikke vist som det skal.

Det virket fint når jeg bare skal hente fra en fil og bruger følgende kode:


    Const adTypeBinary = 1

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

    objStream.Open
    objStream.Type = adTypeBinary
    objStream.LoadFromFile Server.Mappath(\"image.gif\")

    response.binarywrite objStream.Read

    objStream.Close
    Set objStream = Nothing



Men når jeg bruger følgende kode, så bliver filen ikke vist rigtigt:



<%
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set txt = fso.OpenTextFile(server.mappath(\"image1.gif\"), 1)

    response.binarywrite txt.readall

    txt.close
    Set fso = Nothing
%>

Jeg har prøvet at lægge denne kode på følgende side:
http://www.bioonline.dk/hentfil.asp


Hvor den skulle hente dette billede:
http://www.bioonline.dk/image1.gif



Der er samme problem når jeg bruger følgende kode:


<%
Set pop3 = Server.CreateObject(\"JMail.POP3\")
pop3.Connect session(\"pop3username\"), session(\"pop3password\"), session(\"servername\"), session(\"serverport\")

    Set msg = pop3.Messages.item(pop3.count)

    Set Attachments = msg.Attachments

    Set at = Attachments(0)

    response.binarywrite at.data

pop3.disconnect
%>


Kan det skyldes at den opfatter indholdet af filen som tekst i stedet for binary. Eller skyldes at man skal konvertere fra tekst til binary eller findes der en anden løsning?