Ese componente me encanta
<%@ language="vbscript" %>
<%
'Instancia del Objeto ChartDirector
Set cd = CreateObject("ChartDirector.API")
'Informa los datos para el gráfico
data = Array(250, 180, 150)
'Informa la etiquetas
labels = Array("Locaweb", "Locamail", "Locavoz")
'Cria una imagene con tamaño de 280 x 240 pixels
Set c = cd.PieChart(280, 240)
'Ajusta localicacion del gráfico (140, 120) y su tamaño en 80 pixels
Call c.setPieSize(140, 120, 80)
'Muestre el gráfico en 3D
Call c.set3D()
'Muestra un titulo al grafico
Call c.addTitle("Locaweb")
'Ajusta la transparencia
Call c.setColors(cd.transparentPalette)
'Ajusta los datos y el grafico
Call c.setData(data, labels)
'Separa la ultima ultima parte
Call c.setExplode(2)
'Exibe el gráfico en el browser
Response.ContentType = "image/png"
Response.BinaryWrite c.makeChart2(cd.PNG)
'elimina el objeto c
Set c = nothing
'elimina el Objeto ChartDirector
Set cd = nothing
%>