---

Hej,

Jeg har brug for at gemme billedfiler i en database og senere hente dem
igen.

Jeg har gjort følgende (forkortet) og det virker ikke efter hensigten:

Function ReadImageFromDisk
....
End function

Function InsertImage (pid)
image = ReadImageFromDisk
strSQL = "UPDATE tbl_billede SET billede = '" & escape(image) & "'
WHERE persidnr = " & pid
objConn.execute (strSQL)
End function

Function GetImage (pid)
strSQL = SELECT billede FROM tbl_billede WHERE persidnr = " & pid
set objRS = objConn.execute (strSQL)
Response.ContentType "image/jpg"
Response.BinaryWrite unescape(objRS("billede"))
End function

InsertImage
GetImage

Resultatet bliver blot en lang række unicode karakterer. Det er som om,
at karaktererne ikke unescapes!


Hvis jeg gør sådan her, så vises billedet faktisk i browseren:

image = ReadImageFromDisk
imageCopy = escape (image)
Response.ContentType "image/jpg"
Response.BinaryWrite unescape(imageCopy)

Kan nogen give mig en forklaring?

Med venlig hilsen
Peter Falk