<%@ Language=VBScript %> FusionCharts - Array Example using Combination Column 3D Line Chart <% 'We've included ../Includes/FusionCharts.asp, which contains functions 'to help us easily embed the charts. %>

Plotting Combination chart from data contained in Array.

<% 'In this example, we plot a Combination chart from data contained 'in an array. The array will have three columns - first one for Quarter Name 'second one for sales figure and third one for quantity. Dim arrData(4,3) 'Store Quarter Name arrData(0,1) = "Quarter 1" arrData(1,1) = "Quarter 2" arrData(2,1) = "Quarter 3" arrData(3,1) = "Quarter 4" 'Store revenue data arrData(0,2) = 576000 arrData(1,2) = 448000 arrData(2,2) = 956000 arrData(3,2) = 734000 'Store Quantity arrData(0,3) = 576 arrData(1,3) = 448 arrData(2,3) = 956 arrData(3,3) = 734 'Now, we need to convert this data into combination XML. 'We convert using string concatenation. 'strXML - Stores the entire XML 'strCategories - Stores XML for the and child elements 'strDataRev - Stores XML for current year's sales 'strDataQty - Stores XML for previous year's sales Dim strXML, strCategories, strDataRev, strDataQty, i 'Initialize element strXML = "" 'Initialize element - necessary to generate a multi-series chart strCategories = "" 'Initiate elements strDataRev = "" strDataQty = "" 'Iterate through the data For i=0 to UBound(arrData)-1 'Append to strCategories strCategories = strCategories & "" 'Add to both the datasets strDataRev = strDataRev & "" strDataQty = strDataQty & "" Next 'Close element strCategories = strCategories & "" 'Close elements strDataRev = strDataRev & "" strDataQty = strDataQty & "" 'Assemble the entire XML now strXML = strXML & strCategories & strDataRev & strDataQty & "" 'Create the chart - MS Column 3D Line Combination Chart with data contained in strXML Call renderChart("../../FusionCharts/MSColumn3DLineDY.swf", "", strXML, "productSales", 600, 300, false, false) %>