ASPImage

Jeg har et problem:

Min kode:

<%
arrVinkler = Array(90,90,80,100)
arrFarver = Array(vbRed,vbGreen,vbYellow,vbBlue)
intS = 90 'Størrelsen på lagkagen

Set Image = Server.CreateObject("AspImage.Image")
Image.MaxX = intS
Image.MaxY = intS

X_2 = (0.5*intS)
Y_2 = 0

For i = 0 to Ubound(arrVinkler)

  X_1 = (0.5*intS)
  Y_1 = (0.5*intS)

  X_R = (X_2 - X_1)
  Y_R = (Y_2 - Y_1)

  pi = 4 * Atn(1)
       
  CosAng = Cos(arrVinkler(i)*pi/180)
  SinAng = Sin(arrVinkler(i)*pi/180)

  X_3 = ((X_R*CosAng)-(Y_R*SinAng))+X_1
  Y_3 = ((Y_R*CosAng)+(X_R*SinAng))+Y_1

  Image.BackgroundColor = arrFarver(i)
  Image.Pie 0, 0, intS, intS, X_2, (intS-Y_2), X_3, (intS-Y_3)
           
  X_2 = X_3
  Y_2 = Y_3
       
Next

Response.ContentType = "image/gif"
Response.BinaryWrite Image.Image

Set Image = nothing
%>

Retunere noget mærkelige,
et afsnit af det:
"... &iŸø>“ÿ‘(ÿ†‘ñý šgþ¤ÿäJ?ÕìÇùþþH?â_âþUÿÖ< ¨S«ËÈÜ Ó”ot”e-ZjïMºŸ‹<7§x3ã'Ä/èÖÿcÑôoêšm¶ö&ÞÉb‰71,ÛQe‰'$žk¯³ÿà«Ÿ åðWí+‹£ ..."

Hvad er problemet?
jeg VED jeg har ASPImage !