Gráfico.. onde está o erro.

[Liberdade 0]

Onde está o erro desse código para gerar o gráfico?

 

grata Ana..

 

 

<%@ language="vbscript" %><%Set cd = CreateObject("ChartDirector.API")Dim objConnectionSet objConnection = Server.CreateObject("ADODB.Connection")objConnection.Open "DSN=Grafico"Dim SQLSQL = "SELECT numero FROM chamados"Dim rsGraficoSet rsGrafico = Server.CreateObject("ADODB.Recordset")rsGrafico.Open SQL, objConnection, adOpenStaticDim numRegistrosnumRegistros = rsGrafico.RecordCountdata = sqllabels = ("Numeros")Set c = cd.XYChart(250, 250)Call c.setPlotArea(30, 20, 200, 200)Call c.addBarLayer(data) -----------ESSA É A LINHA DO ERRO.Call c.xAxis().setLabels(labels)Response.ContentType = "image/png"Response.BinaryWrite c.makeChart2(cd.PNG)Response.End%>

[shumi 0]

Qual o erro que da?Abraços

[Liberdade 0]

Esse é o Erro..

 

 

Tipo de erro:ChartDirector (0x800A8000)Error converting argument 1 to type class DoubleArray/aspdemo/grafico.asp, line 37

 

grata

 

Ana.