<!--#include file="diagram.asp"-->

<%

Set D=New Diagram

Set D.Img=CreateObject("gdImage.Images.1")

D.Img.ImageCreate 300, 200

D.Img.ImageColorAllocate 0,255,255,255 'Background Color



D.Pie 100,100,10,80,0*3.6,10*3.6,"#ff6060","10%","alert(""Apples 10%"")"

D.Pie 100,100,0,80,10*3.6,40*3.6,"#ffa000","30%","alert(""Oranges 30%"")"

D.Pie 100,100,0,80,40*3.6,100*3.6,"#f6f600","60%","alert(""Bananas 60%"")"

D.Bar 200,40,280,60,"#ff6060","Apples","#000000","",""

D.Bar 200,80,280,100,"#ffa000","Oranges","#000000","",""

D.Bar 200,120,280,140,"#f6f600","Bananas","#000000","",""



FN="pie_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="pie_object.png" width=300 height=200 usemap="#map1" border=0></td></tr></table> 

<map name="map1"> 

<%Response.Write D.ImgMapData%>

</map>

</BODY>

</HTML>