<% 'In this example, we plot a Stacked chart from data contained 'in an array. The array will have three columns - first one for Quarter Name 'and the next two for data values. The first data value column would store sales information 'for Product A and the second one for Product B. Dim arrData(4,3) 'Store Name of Products arrData(0,1) = "Quarter 1" arrData(1,1) = "Quarter 2" arrData(2,1) = "Quarter 3" arrData(3,1) = "Quarter 4" 'Sales data for Product A arrData(0,2) = 567500 arrData(1,2) = 815300 arrData(2,2) = 556800 arrData(3,2) = 734500 'Sales data for Product B arrData(0,3) = 547300 arrData(1,3) = 594500 arrData(2,3) = 754000 arrData(3,3) = 456300 '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 'strDataProdA - Stores XML for current year's sales 'strDataProdB - Stores XML for previous year's sales Dim strXML, strCategories, strDataProdA, strDataProdB, i 'Initialize element strXML = "" 'Initialize element - necessary to generate a stacked chart strCategories = "" 'Initiate elements strDataProdA = "" strDataProdB = "" 'Iterate through the data For i=0 to UBound(arrData)-1 'Append to strCategories strCategories = strCategories & "" 'Add to both the datasets strDataProdA = strDataProdA & "" strDataProdB = strDataProdB & "" Next 'Close element strCategories = strCategories & "" 'Close elements strDataProdA = strDataProdA & "" strDataProdB = strDataProdB & "" 'Assemble the entire XML now strXML = strXML & strCategories & strDataProdA & strDataProdB & "" 'Create the chart - Stacked Column 3D Chart with data contained in strXML Call renderChart("../../FusionCharts/StackedColumn3D.swf", "", strXML, "productSales", 500, 300, false, false) %>