URGENTE NECESITO ACTUALIZAR UN GRAFICO en ChartFX.WebServer con ASP

[PHER]

NO ME ACTUALIZA EL EJE X DEL GRAFICO ESTE ES EL CODIGO, CUALQUIER COMENTARIO MANDENME UN EMAIL

Set chart = Server.CreateObject("ChartFX.WebServer")
chart.AxesStyle = CAS_FLATFRAME
chart.Chart3D = True
chart.Gallery = Bar
chart.DataEditor = True

sql = "SELECT Servicios_Telefonia_003.dia AS Dia, Servicios_Telefonia_003.Ofrecidas"
sql = sql & " AS Ofrecidas, Servicios_Telefonia_003.Respondidas AS Respondidas, Servicios_Telefonia_003.Abandonadas"
sql = sql & " AS Abandonadas FROM Servicios_Telefonia_003"
sql = sql & " WHERE Servicios_Telefonia_003.servicio = 'Asistencia_BAE' AND"
sql = sql & " Servicios_Telefonia_003.sitio = 1 AND"
sql = sql & " Servicios_Telefonia_003.Mes = " & Mes & " AND"
sql = sql & " Servicios_Telefonia_003.Año = " & Ano & " "
sql = sql & " ORDER BY Servicios_Telefonia_003.dia"
set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sql, conn

Chart.Axis(AXIS_Y).Title = "N° de Llamadas"
Chart.Axis(AXIS_Y).Format = "#,##0"
Chart.Axis(AXIS_X).Title = "Dias"

Set AxisX = Chart.Axis(AXIS_X)
Set AxisY = Chart.Axis(AXIS_Y)

Chart.DataType(0) = CDT_XVALUE
Chart.DataType(1) = CDT_VALUE
Chart.DataType(2) = CDT_VALUE

AxisY.Step = 250
AxisY.MinorStep = 100
AxisY.Max = 2000
AxisY.Min = 0
AxisY.MinorTickMark = TS_CROSS
AxisY.Grid = True

Chart.SerLegBoxObj.Docked = TGFP_BOTTOM
Chart.SerLegBox = TRUE

chart.AdoResultset rs
%>
<%= chart.GetHtmlTag(800,300) %>


gracias
pher