codice:
Set ChartObj = Server.CreateObject("OWC10.ChartSpace") 
Set ChartConsts = ChartObj.Constants 
set NewChart = ChartObj.Charts.Add 

'6=linea spezzata
NewChart.Type = 6

'Imposta valori primo grafico 
Set Serie = NewChart.SeriesCollection.Add
Serie.Caption = ""
Serie.Line.Color = "RoyalBlue"
Serie.SetData ChartConsts.chDimCategories, ChartConsts.chDataLiteral, GraphLabels 
Serie.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, lista

ChartObj.Charts(0).Axes(0).Font.Name = "Tahoma"
ChartObj.Charts(0).Axes(0).Font.Size = 7

ChartObj.Charts(0).Axes(1).HasMajorGridlines = false
ChartObj.Charts(0).Axes(1).HasMinorGridlines = false
ChartObj.Charts(0).Axes(1).MajorGridlines.Line.Weight = 1
ChartObj.Charts(0).Axes(1).MinorGridlines.Line.Color = "lightgrey"
ChartObj.Charts(0).Axes(0).HasMinorGridLines = false
ChartObj.Charts(0).Axes(0).MinorGridlines.Line.Color = "lightgrey"
ChartObj.Charts(0).PlotArea.Interior.SetSolid "white"

ChartObj.Charts(0).HasTitle=true
ChartObj.Charts(0).Title.Font.Name = "Verdana"
ChartObj.Charts(0).Title.Font.Size = "8"
ChartObj.Charts(0).Title.Font.Bold = true
ChartObj.Charts(0).Title.Caption = ""

'Salva l'immagine 
filename = "/tmp/" & Int(rnd*10000) & ".gif"
ImagePath=server.mappath(filename) 

ChartObj.Charts(0).HasLegend = True
ChartObj.Charts(0).Legend.Position = 2

ChartObj.Charts(0).HasTitle=true
ChartObj.Charts(0).Title.Font.Name = "Verdana"
ChartObj.Charts(0).Title.Font.Size = "8"
ChartObj.Charts(0).Title.Font.Bold = true

'Salviamo l'immagine
ChartObj.ExportPicture ImagePath,"gif", 670, 260 

set NewChart = nothing 
set ChartConsts = nothing 
set ChartObj = nothing

response.write "
<center>[img][/img]</center>"
In GraphLabels hai le labels e in lista i valori