Response.Contentype

SKal du have en
Response.Addheader "Content-Disposition", "attatchment; filename=billed.jpg"
på ?

dunno, hvad betyder det?

Den genererer en Header til din web side, og der skal altid genereres en header inden du sende et output til en side. !

Hvis du skriver et billede ud direkte fra databasen, skal du bruge response.binarywrite

Dette er hvad jeg gør nu.

Response.ContentType = rs("Image_Type")
Response.BinaryWrite rs("billede")

hvad mere skal jeg gøre?

rs("Image_Type") = image/gif eller image/jpeg, alt efter hvad filen er.

benson, Response.Contentype genererer vel hvilken mimetype filen skal være?

joker> Jep ! Det er korrekt. Jeg kan heller ikke finde på andet end det med headeren. Sorry !-(

Med mindre du har sat response.buffer = true, skal din response.contenttype = x eller response.addheader ligge i toppen af din kode, da de modificerer HTTP headers.

Da du henter værdien til contenttype fra et recordset, er response.buffer = true reelt den eneste mulighed. Og du må vel at mærk ikke udskrive noget til klienten med response.flush inden.

Kan jeg ikke få et script der viser hvordan jeg skal gøre?

Hvis du kan vise noget af din kode, skal jeg prøve at smide det ind. Men helst ikke 200 liniers kode, som ingen betydning har for dette :-)

IntID = Request.QueryString("id")
        Set myConn = Server.CreateObject("ADODB.Connection")
        tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb") & ";UID=admin;PWD=;"
        myConn.Open tempConn

    strSQL = "SELECT billede, Image_Type FROM kataloger WHERE (ID = " & intID & ");"
    Set rs = myConn.Execute(strSQL)
    If Not rs.EOF Then

        Response.ContentType = rs("Image_Type")
        Response.BinaryWrite rs("billede")

    End If
    myConn.Close
    Set myConn = Nothing
    Response.End

<%@ Language=VBScript %>
<%
    response.buffer = true

    IntID = Request.QueryString("id")
        Set myConn = Server.CreateObject("ADODB.Connection")
        tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb") & ";UID=admin;PWD=;"
        myConn.Open tempConn

    strSQL = "SELECT billede, Image_Type FROM kataloger WHERE (ID = " & intID & ");"
    Set rs = myConn.Execute(strSQL)
    If Not rs.EOF Then

        Response.ContentType = rs("Image_Type")
        Response.BinaryWrite rs("billede")

    End If
    myConn.Close
    Set myConn = Nothing
    Response.End

%>

Der skal faktisk nok lidt mere til, ift. at hive billedet ud. Se dette link som har et komplet script incl. demodatabase:

http://www.freevbcode.com/ShowCode.Asp?ID=893

(du skal download .zip filen)

Det nytter ikke noget, jeg må finde på noget andet.

Hvad så med at lagre billederne i filsystemet og blot gemme sti/navn i databasen. Når du så vil vise billedet, laver du en

<IMG SRC="<% rs("ImageName") %>">

Faktisk vil det også give dig en meget bedre performance. Sig til hvsi du skal have hjælp til dette.

Det kan jeg godt finde ud af ;)
ellers tak.