Gemme binære filer i Access database

Du kan prøve at følge denne step by step. jeg har ikke slev prøvet den...
http://stardeveloper.com:8080/articles/033101-1.shtml

Mange tak, det var lige det jeg skulle bruge! Det virker faktisk helt helt som det skal.

(jeg kan ikke give dig point, når du har skrevet som kommentar).

ok det lyder godt.

helt i orden og du får dine point :)

Jeg er lige kommet ind i et nyt problem. 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?