<%@ language="vbscript" %>
<%
Set cd = CreateObject("ChartDirector.API")
' The data for the pie chart
data = Array(25, 18, 15, cd.NoValue, 8, 30, 35)
' The labels for the pie chart
labels = Array("Labor", "Licenses", "Taxes", "Legal", "Non-Debt", "Facilities", _
"Production")
' Create a PieChart object of size 600 x 270 pixels
Set c = cd.PieChart(600, 270)
' Set the center of the pie at (150, 100) and the radius to 80 pixels
Call c.setPieSize(150, 135, 100)
' add a legend box where the top left corner is at (330, 50)
Call c.addLegend(330, 60)
' modify the sector label format to show percentages only
Call c.setLabelFormat("{label}")
' Set the pie data and the pie labels
Call c.setData(data, labels)
' Use rounded edge shading, with a 1 pixel white (FFFFFF) border
Call c.setSectorStyle(cd.RoundedEdgeShading, &Hffffff, 1)
Call c.getLegend().setText( _
"<*block,valign=top*><*block,width=160*>" & _
"{label}<*/*><*block,width=40,halign=right*>{value|2}<*/*>%")
' Output the chart
Response.ContentType = "image/png"
Response.BinaryWrite c.makeChart2(cd.PNG)
Response.End
%>
|