Help!! I&#039;m trying to chart data from an Access table and I&#039;m getting no results. Data for the x axis is &#039;refdate&#039; and for the y axis, fteamount. I have reviewed the article, Charting w/OWC Pages, by Bret Hern, and tried to fit my table to the example, but I get no results. Below is my code. I&#039;ve tried many options with no luck. My chart appears empty, without any data. What am I doing wrong?? Thanks. <BR>*************************************** <BR>dim objChartSpace <BR>dim objChart <BR>dim objSeries <BR>dim objConn <BR>dim objRS <BR>dim c <BR>dim series <BR>dim strChartAbsPath <BR>dim strChartRelPath <BR>dim strChartFile <BR>strChartAbsPath = Server.MapPath("/workload/temp") <BR>strChartRelPath = "temp" <BR><BR><BR>openstr = "driver={Microsoft Access Driver (*.mdb)};" & _ <BR> "dbq=" & Server.MapPath("workload.mdb") <BR>Set cn = Server.CreateObject("ADODB.Connection") <BR>cn.Open openstr <BR><BR>sql = "SELECT refdate, fteamount " & _ <BR> "FROM arrayvalues " & _ <BR> "ORDER BY refdate; " <BR> <BR>Set rs = Server.CreateObject("ADODB.Recordset") <BR><BR>rs.Open sql, cn, 3, 3 <BR><BR>&#039;***************** <BR>rs.MoveFirst <BR> ReDim xvalues(rs.recordCount - 1) <BR> ReDim yvalues(rs.recordCount - 1) <BR><BR> Dim i <BR> i=0 <BR><BR>Do While Not rs.EOF <BR> xvalues(i) = rs.Fields("refdate") <BR> yvalues(i) = rs.Fields("fteamount") <BR> i=i+1 <BR>rs.MoveNext <BR>Loop <BR><BR><BR>set objChartSpace = Server.CreateObject("OWC.Chart") <BR>set objChart = objChartSpace.Charts.Add() <BR>set c = objChartSpace.Constants <BR>set objChartSpace.DataSource = rs <BR><BR><BR>objChart.Type = c.chChartTypeColumnClustered <BR>objChart.HasLegend = True <BR><BR>&#039;***************** <BR><BR>for each objSeries in objChart.SeriesCollection <BR>objSeries.SetData c.chDimCategories, 0, 0 <BR>objSeries.SetData c.chDimValues, 0, 1 <BR>next <BR><BR>for each axis in objChart.Axes <BR> axis.HasTitle = True <BR> if axis.Type = c.chCategoryAxis then <BR> axis.Title.Caption = "Date" <BR> else <BR> axis.Title.Caption = "FTEs" <BR> end if <BR>next <BR><BR>strChartFile = ExportChartToGIF(objChartSpace, strChartAbsPath, strChartRelPath) <BR>Response.Write "&#060;IMG SRC=""" & strChartFile & """&#062;" & "&#060;P&#062;" <BR>CleanUpGIF strChartAbsPath <BR><BR>rs.Close <BR>set rs = nothing <BR>set cn = nothing <BR>set objSeries = nothing <BR>set objChart = nothing <BR>set objChartSpace = nothing <BR>%&#062; <BR>