profit/loss per day profit/loss per day profit/loss per day profit/loss per day profit/loss per day profit/loss per day profit/loss per day profit/loss per day profit/loss per day profit/loss per day profit/loss per day profit/loss per day
<!--#include file="diagram.asp"-->
<%
Set D=New Diagram
Set D.Img=CreateObject("gdImage.Images.1")
D.Img.ImageCreate 560, 300
D.Img.ImageColorAllocate 0,255,255,255 'Background Color

D.SetFrame 80, 40, 520, 240
D.SetBorder UTC(2000,12,15,0,0,0), UTC(2001,12,15,0,0,0),  -300, 1100
D.SetText "","", "profit/loss per day during the last year"
D.XScale=4
D.YScale=" $"
D.Draw "#FFFFCC", "#000000", false, "", ""
b=D.ScreenY(0)
t1=D.ScreenX(UTC(2000,12,15,0,0,0))
P1=0
for i=0 to 11
  t0=t1
  P0=P1
  t1=D.ScreenX(UTC(2001,i+1,15,0,0,0))
  P1=P1+Round(20*i-Rnd()*100)
  D.Area t0, D.ScreenY(P0), t1, D.ScreenY(P1), "ff0000", b, "profit/loss per day", "alert(""" & P0 & " -> " & P1 & """)"
next

FN="area_object.png"
if isObject(Server) then FN=Server.mappath(FN) 
D.Img.ImagePng 0, FN
D.Img.ImageDestroy 0
Set D.Img=Nothing
%>
<HTML><HEAD></HEAD> 
<BODY bgcolor="#eeeeee"> 
<table border><tr><td><IMG src="area_object.png" width=560 height=300 usemap="#map1" border=0></td></tr></table> 
<map name="map1"> 
<%Response.Write D.ImgMapData%>
</map> 
</BODY> 
</HTML>