AspImage - tager ikke værdien til udskrivning - arh

I forbindelse med udskrivning af flere billede efter hinanden tager AspImage ikke værdierne for det første billede.

I nedenstående kode som ellers virker fint, sålænge at AspImage bruges engang.

Problemet opstår når jeg vil have genereret flere billeder. Så bliver firkanten ikke sat det rigtige sted på det første billede. x1, y1, x2 og y2 får værdien -5 eller 5. Men for det andet billede får x1, y1, x2 og y2 den rigtige værdi, dvs. 35/45 og 55/65.

Nedenfor følger scriptet

?????:-)  karsten_larsen

<%
  dim var_x, var_y, var_resultat_x, var_resultat_y
    var_x = 0
    var_y = 0
    var_resultat_x = 0
    var_resultat_y = 0

  Function koordinat_x (var_x)
      var_resultat_x = 0
      var_resultat_x = (var_x - 20) * (256/60)
    x = var_resultat_x
  end function
 
  Function koordinat_y (var_y)
    var_resultat_y = 0
      var_resultat_y = 256 - ((var_y - 20) * (256/60))
    y = var_resultat_y
  end function

' billede 1
  Set Image = Server.CreateObject("AspImage.Image")

  Image.AntiAliasText = True
  Image.PadSize = 0
  Image.MaxX = 256
  Image.MaxY = 256

  ' baggrundsbillede
  path = Server.Mappath("/grafer/graf.jpg")
  Image.LoadImage path


    ' firkanter
  Image.BackgroundColor = vbRed
  koordinat_x (40)
  koordinat_y (60)
  x1 = x - 5
  x2 = x + 5
  y1 = y - 5
  y2 = y + 5
   
  Image.Rectangle x1, y1, x2, y2


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

    ' renser
  Set Image = nothing

' billede 2
  Set Image = Server.CreateObject("AspImage.Image")

  Image.AntiAliasText = True
  Image.PadSize = 0
  Image.MaxX = 256
  Image.MaxY = 256

    ' baggrundsbillede
    path = Server.Mappath("/grafer/graf.jpg")
    Image.LoadImage path


    ' firkanter
  Image.BackgroundColor = vbRed

  koordinat_x (40)
  koordinat_y (60)
  x1 = x -5
  x2 = x +5
  y1 = y -5
  y2 = y + 5
   
  Image.Rectangle x1, y1, x2, y2


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

    ' renser
  Set Image = nothing

%>