FusionCharts XT
ASP Basic Examples
Plotting multi-series chart from data contained in Array.
<%
'In this example, we plot a multi series chart from data contained
'in an array. The array will have three columns - first one for data label (product)
'and the next two for data values. The first data value column would store sales information
'for current year and the second one for previous year.
'Let's store the sales data for 6 products in our array. We also store
'the name of products.
Dim arrData(6,3)
'Store Name of Products
arrData(0,1) = "Product A"
arrData(1,1) = "Product B"
arrData(2,1) = "Product C"
arrData(3,1) = "Product D"
arrData(4,1) = "Product E"
arrData(5,1) = "Product F"
'Store sales data for current year
arrData(0,2) = 567500
arrData(1,2) = 815300
arrData(2,2) = 556800
arrData(3,2) = 734500
arrData(4,2) = 676800
arrData(5,2) = 648500
'Store sales data for previous year
arrData(0,3) = 547300
arrData(1,3) = 584500
arrData(2,3) = 754000
arrData(3,3) = 456300
arrData(4,3) = 754500
arrData(5,3) = 437600
'Now, we need to convert this data into multi-series XML.
'We convert using string concatenation.
'strXML - Stores the entire XML
'strCategories - Stores XML for the and child elements
'strDataCurr - Stores XML for current year's sales
'strDataPrev - Stores XML for previous year's sales
Dim strXML, strCategories, strDataCurr, strDataPrev, i
'Initialize element
strXML = ""
'Initialize element - necessary to generate a multi-series chart
strCategories = ""
'Initiate elements
strDataCurr = ""
strDataPrev = ""
'Iterate through the data
For i=0 to UBound(arrData)-1
'Append element
strCategories = strCategories & " "
'Close elements
strDataCurr = strDataCurr & " "
strDataPrev = strDataPrev & " "
'Assemble the entire XML now
strXML = strXML & strCategories & strDataCurr & strDataPrev & " "
'Create the chart - MS Column 3D Chart with data contained in strXML
Call renderChart("../../FusionCharts/MSColumn3D.swf", "", strXML, "productSales", 600, 300, false, false)
%>