Eccolo qui:

codice:
<%
'Creiamo l'oggetto 
Set ChartObj = Server.CreateObject("OWC10.ChartSpace") 
Set ChartConsts = ChartObj.Constants 
set NewChart = ChartObj.Charts.Add 
NewChart.HasLegend = True
NewChart.PlotArea.Interior.Color = "LightYellow" 
NewChart.HasTitle = True
NewChart.Title.Caption = "INDICI"
set fnt = NewChart.Title.Font
fnt.Name = "Tahoma"
fnt.Size = 10
fnt.Bold = True
set ax = NewChart.Axes(ChartConsts.chAxisPositionBottom)
ax.HasTitle = True
ax.Title.Caption = "Anni"
set fnt = ax.Title.Font
fnt.Name = "Tahoma"
fnt.Size = 8
fnt.Bold = True
set ax = NewChart.Axes(ChartConsts.chAxisPositionLeft)
'ax.NumberFormat = "Currency"
ax.HasTitle = True
ax.Title.Caption = "Commesse"
set fnt = ax.Title.Font
fnt.Name = "Tahoma"
fnt.Size = 8
fnt.Bold = True
'Settiamo il tipo di grafico 
NewChart.Type = 1
'Passiamo i valori al grafico 
Set Serie = NewChart.SeriesCollection.Add 
Serie.SetData ChartConsts.chDimCategories, ChartConsts.chDataLiteral, Anni 
Serie.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, Valori 
'Settiamo il path dell'immagine che verrà creata 
ImagePath=server.mappath("report.gif") 
'Salviamo l'immagine 
ChartObj.ExportPicture ImagePath,"gif", 800, 600 
set oChart=nothing 
%> 
[img]report.gif[/img]
Anni e Valori sono due array costruiti da una query su un DB