<%@ Language=VBScript %>
FusionCharts Free - Array Example using Combination Column 3D Line Chart
<%
'You need to include the following JS file, if you intend to embed the chart using JavaScript.
'Embedding using JavaScripts avoids the "Click to Activate..." issue in Internet Explorer
'When you make your own charts, make sure that the path to this JS file is correct. Else, you would get JavaScript errors.
%>
<%
'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/FCF_MSColumn3DLineDY.swf", "", strXML, "productSales", 600, 300)
%>
Unable to see the chart above?