Udskrive billede, fra database

mener du:

Response.Write "<img src='billedetsnavn.gif'>"

'-- Billedet vises
        Response.Clear
        Response.ContentType = "image/gif"

        set conn = Server.CreateObject("ADODB.Connection")
        conn.Open strConn
       
        set rs = Server.CreateObject("ADODB.Recordset")
        rs.Open "SELECT * FROM PicTable WHERE ID=" & CLng(Request.QueryString("PicID")), conn
        rs.MoveFirst

        Response.BinaryWrite rs("Pic")

        rs.Close
        set rs = Nothing
        set conn = Nothing
        Response.End

gigaload>> Nej, for det virker ikke - da billedet ligger som binary i databasen.
berdum>> Prøver lige dit forlag - det er sådan set kun linien Response jeg mangler :)

bredum>> Nu skriver den da noget ud, men det er "ascii" tekst og ikke billedet der vises - jeg har denne her:

    do while not RS.eof
            response.write "<hr>"
            response.write RS("ID") & "<br>"
            response.write RS("FileName") & "<br>"
            response.write RS("ByteSize") & " " & RS("ContentType") & "<br>"
            response.write RS("Comment") & " <br>"
            Response.BinaryWrite rs("FileBinary")

            RS.movenext
        loop
 
    end if

har opgivet Blop metoden, men bredum, godt svar alligevel :)