Gráficos com OWC

[kania 0]

Pessoal, estou testando aqui a montagem de um gráfico com OWC, porém quando estou trabalhando com datas ela da pau. veja o código

 

Código que da erro

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

Dim categories(6), Serie1(6)

' Valores da primeira Serie
Serie1(0) = 8
Serie1(1) = 13
Serie1(2) = 24
Serie1(3) = 21
Serie1(4) = 33
Serie1(5) = 53
Serie1(6) = 39

categories(0) = "10/07/2010"
categories(1) = "11/07/2010"
categories(2) = "13/07/2010"
categories(3) = "15/07/2010"
categories(4) = "18/07/2010"
categories(5) = "23/07/2010"
categories(6) = "25/07/2010"

With oChart

' Acrescentar objeto de grafico
.Charts.Add

' Definir o tipo do gráfico.
.Charts(0).Type = 1

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

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

' 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

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

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

Se tirarmos a primeira ou a última datas o gráfico funciona, alguém já viu este erro?

 

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

Dim categories(6), Serie1(6)

' Valores da primeira Serie
Serie1(0) = 8
Serie1(1) = 13
Serie1(2) = 24
Serie1(3) = 21
Serie1(4) = 33
Serie1(5) = 53
Serie1(6) = 39

categories(0) = "10/07/2010"
categories(1) = "11/07/2010"
categories(2) = "13/07/2010"
categories(3) = "15/07/2010"
categories(4) = "18/07/2010"
categories(5) = "23/07/2010"
categories(6) = "25/07/2010"

With oChart

' Acrescentar objeto de grafico
.Charts.Add

' Definir o tipo do gráfico.
.Charts(0).Type = 1

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

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

' 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

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

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

[xanburzum 169]

qual erro ele gera ?!?!