Gráfico.. onde está o erro.

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%>