<%@ Language=VBScript %>
FusionCharts Free - Database and Drill-Down Example
<%
'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.
'and ../Includes/DBConn.asp to connect to the database.
%>
<%
'We've also included ../Includes/FC_Colors.asp, having a list of colors
'to apply different colors to the chart's columns.
%>
Detailed report for the factory
<%
'This page is invoked from Default.asp. When the user clicks on a pie
'slice in Default.asp, the factory Id is passed to this page. We need
'to get that factory id, get information from database and then show
'a detailed chart.
'First, get the factory Id
Dim FactoryId
'Request the factory Id from Querystring
FactoryId = Request.QueryString("FactoryId")
Dim oRs, strQuery
'strXML will be used to store the entire XML document generated
Dim strXML
Set oRs = Server.CreateObject("ADODB.Recordset")
'Generate the graph element string
strXML = ""
'Now, we get the data for that factory
strQuery = "select * from Factory_Output where FactoryId=" & FactoryId
Set oRs = oConn.Execute(strQuery)
While Not oRs.Eof
'Here, we convert date into a more readable form for set name.
strXML = strXML & ""
Set oRs2 = Nothing
oRs.MoveNext
Wend
'Close element
strXML = strXML & ""
Set oRs = nothing
'Create the chart - Column 2D Chart with data from strXML
Call renderChart("../../FusionCharts/FCF_Column2D.swf", "", strXML, "FactoryDetailed", 600, 300)
%>
Back to Summary
Unable to see the chart above?