Asp Image - baggrundsbillede fungerer ikke!

Hvordan får jeg et baggrundsbillede bag tekst, linier, etc.?

? :-)  karsten_larsen


<%
  Set Image = Server.CreateObject("AspImage.Image")

  Image.AntiAliasText = True

  Image.MaxX = 200
  Image.MaxY = 200

    ' gradient
  'Image.GradientTwoWay vbBlue / 2, vbWhite, 0, 1

    ' skygge om billde
' Image.BackgroundColor = vbBlue
' Image.FrameRect 15, 15, Image.MaxX - 15, Image.MaxY -20


    ' baggrundsbillede
    path = Server.MapPath("graph1.jpg")
    Image.AddImage(path, 0, 0)


    ' firkanter
  Image.BackgroundColor = vbGreen
  Image.Rectangle 30, 35, 60, 100
  Image.BackgroundColor = vbYellow
  Image.Rectangle 70, 35, 100, 130
  Image.BackgroundColor = vbBlue
  Image.Rectangle 110, 35, 140, 150
  Image.BackgroundColor = vbRed
  Image.Rectangle 150, 35, 180, 170

    ' tegning
  Image.PenWidth = 2
  Image.PenStyle = 1

    ' udgangspunkt 
  Image.LineTo 30, 30

    ' polygon - streger   
    Dim RgnPts(3,1)

    RgnPts(0,0) = 30
    RgnPts(0,1) = 30
    RgnPts(1,0) = 64
    RgnPts(1,1) = 86
    RgnPts(2,0) = 47
    RgnPts(2,1) = 88
    RgnPts(3,0) = 150
    RgnPts(3,1) = 150   
    Image.PolyLine RgnPts


    ' skriftstyper
  Image.FontColor = vbBlack
  Image.Italic = False
  Image.Bold = True
  Image.FontName = "Arial"
  Image.FontSize = 8
  Image.PadSize = 10

    ' tekst
  Image.TextOut "NE", 27, 11, false
  Image.TextOut "NW", 65, 11, false
  Image.TextOut "SE", 107, 11, false
  Image.TextOut "SW", 145, 11, false

  Image.FontColor = vbBlack
  Image.TextOut "100", 25, 90, false
  Image.TextOut "130", 65, 120, false
  Image.TextOut "150", 105, 140, false
  Image.TextOut "170", 145, 160, false

    ' tekst i bunden som er align = center
  Image.Italic = True
  Image.FontColor = vbBlack
  Image.PadSize = 0
  Image.FontSize = 10
  Image.Bold = True
  strLabel = "Demo tekst"
  Image.TextOut strLabel, (Image.MaxX / 2) - (Image.TextWidth(strLabel) / 2), Image.MaxY - 18, false

    ' lav fil navn og gem fil
    Image.FileName = Server.Mappath("/log/billede.jpg")
    if Image.SaveImage then
      Response.Write "<img src=""/log/billede.jpg""><br>"
    else
      Response.Write "<h2>Fejl. Billedet kunne ikke gemmes</h2>"
    end if

    ' renser
  Set Image = nothing

%>