TExt på billede ASPImage

<!--METADATA
    TYPE="TypeLib"
    NAME="Microsoft ActiveX Data Objects 2.5 Library"
    UUID="{00000205-0000-0010-8000-00AA006D2EA4}"
    VERSION="2.5"
-->
<%
lngImageID = Request.QueryString("ID")
Dim Image
strDSN = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("/db/xxxxxx.mdb")

Set    rs = Server.CreateObject("ADODB.RecordSet")



strSQL = "SELECT Billede FROM Vaerker WHERE [ID] = " & lngImageID
rs.Open    strSQL,    strDSN,3, 1
       
If Not rs.EOF Then
  Response.ContentType = "image/jpeg"
 
  Set Image = Server.CreateObject("AspImage.Image")

    Image.Loadblob rs(0).value, 1
    Image.FontColor = vbYellow
    Image.Italic = True
    Image.Bold = True
    Image.FontName = "Arial"
    Image.FontSize = 8
    Image.PadSize = 10

    strMessage = "Copyright " & year(now) & " xxxxxxxxxx." & vbcrlf & _
                " xxxxxxxx"

    Height = Image.MaxY - Image.TextHeight (strMessage)
    Image.TextOut strMessage, 1, Height - 20, True
    Response.BinaryWrite Image.Image

  Set Image = nothing
Else
    Response.Write "Image not found."
End If

rs.Close


Set rs = Nothing

%>