<%
Set oChart = CreateObject("OWC11.ChartSpace")
Set c = oChart.Constants
oChart.Border.Color = c.chColorNone

Dim categories(4), Serie1(4), Serie2(4)

'Definir os valores para primeira Serie
Serie1(0) = 8
Serie1(1) = 13
Serie1(2) = 44
Serie1(3) = 21
Serie1(4) = 33

' Definir os valores para a segunda Serie.
Serie2(0) = 35
Serie2(1) = 25
Serie2(2) = 15
Serie2(3) = 45
Serie2(4) = 32

' Criar grafico de colunas com 2 series e Cinco Categorias
' Criar array para as categorias. Elas serao identicas para as duas series.
categories(0) = "Inglaterra"
categories(1) = "Espanha"
categories(2) = "França"
categories(3) = "Alemanha"
categories(4) = "Brasil"

With oChart

' Acrescentar objeto de grafico
.Charts.Add

' Definir o tipo do gráfico.
.Charts(0).Type = oChart.Constants.chChartTypeColumn3d

' Acrescentar a primeira Serie ao grafico.
.Charts(0).SeriesCollection.Add

' Ajustar o Subtitulo da série (Legenda).
.Charts(0).SeriesCollection(0).Caption = "Pontos Fase 1"

' Acrescentar categorias e valores da primeira serie.
.Charts(0).SeriesCollection(0).SetData c.chDimCategories, c.chDataLiteral, categories
.Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, Serie1

End With

' Acrescentar a segunda Serie no grafico, assim como legenda, categorias e valores.
With oChart

.Charts(0).SeriesCollection.Add
.Charts(0).SeriesCollection(1).Caption = "Pontos Fase 2"
.Charts(0).SeriesCollection(1).SetData c.chDimCategories, c.chDataLiteral, Categories
.Charts(0).SeriesCollection(1).SetData c.chDimValues, c.chDataLiteral, Serie2

.Charts(0).HasLegend = True
.Charts(0).HasTitle = True

End With

Response.Expires = 0
Response.Buffer = true
Response.Clear
Response.ContentType = "image/gif"

' Definir tamanho do grafico (figura).
Response.BinaryWrite oChart.GetPicture("gif",800, 600)
%>