User (Legacy) Posted February 1, 2002 Report Share Posted February 1, 2002 Hello! Please can someone tell me what is wrong with the code below sub FillArray () Dim TotCount Dim DataArray() Dim LegendArray() Set cfxChart1=Server.CreateObject("ChartFX.WebServer") SET cfxArray=Server.CreateObject("cfxData.Array") rs.MoveFirst DO WHILE NOT rs.Eof TotCount=TotCount+1 REDIM Preserve DataArray(TotCount) DataArray(TotCount)=rs("KW") REDIM Preserve LegendArray(TotCount) LegendArray(TotCount)=TotCount rs.MoveNext LOOP rs.Close SET cfxArray=Server.CreateObject("cfxData.Array") cfxArray.AddArray DataArray cfxArray.AddArray LegendArray cfxChart1.GetExternalData cfxArray end sub %> <% Response.write(cfxChart1.GetHtmlTag( "650", "600", "Auto" ))%> All I am trying to do is to fill a chart with a set of numbers obtained from a recordset, using a dynamic array. It is getting very irritating how I can rarely get a feature of ChartFX to work first time, even with the help files. I have even copied the example out of the manual and that does not work either. code above just displays a graph that says No Data Available I know my code creates the dynamic array properly. Any rapid help would be greatly appreciated as I have spent ages trying to get the "easier" parts of ChartFx working and my deadline is rapidly approaching. Cheers Paul Link to comment Share on other sites More sharing options...
This topic is now archived and is closed to further replies.