<%@ Language=VBScript %>
FusionCharts Free - Array Example using Single Series 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.
%>
<%
'We've also included ../Includes/FC_Colors.asp, having a list of colors
'to apply different colors to the chart's columns. We provide a function for it - getFCColor()
%>
Plotting single series chart from data contained in Array.
<%
'In this example, we plot a single series chart from data contained
'in an array. The array will have two columns - first one for data label
'and the next one for data values.
'Let's store the sales data for 6 products in our array). We also store
'the name of products.
Dim arrData(6,2)
'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
arrData(0,2) = 567500
arrData(1,2) = 815300
arrData(2,2) = 556800
arrData(3,2) = 734500
arrData(4,2) = 676800
arrData(5,2) = 648500
'Now, we need to convert this data into XML. We convert using string concatenation.
Dim strXML, i
'Initialize element
strXML = ""
'Convert data to XML and append
For i=0 to UBound(arrData)-1
'add values using
strXML = strXML & ""
Next
'Close element
strXML = strXML & ""
'Create the chart - Column 3D Chart with data contained in strXML
Call renderChart("../../FusionCharts/FCF_Column3D.swf", "", strXML, "productSales", 600, 300)
%>
Unable to see the chart above?