<%@ Language=VBScript %>
FusionCharts Free - Array Example using Stacked Column 3D 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 Stacked Chart from data contained in Array.
<%
'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/FCF_StackedColumn3D.swf", "", strXML, "productSales", 600, 300)
%>
Unable to see the chart above?