<% 'In this example, we show how to connect FusionCharts to a database. 'For the sake of ease, we've used an Access database which is present in '../DB/FactoryDB.mdb. It just contains two tables, which are linked to each 'other. 'Database Objects - Initialization Dim oRs, oRs2, strQuery 'strXML will be used to store the entire XML document generated Dim strXML 'We also keep a flag to specify whether we've to animate the chart or not. 'If the user is viewing the detailed chart and comes back to this page, he shouldn't 'see the animation again. Dim animateChart animateChart = Request.QueryString("animate") 'Set default value of 1 if animateChart="" then animateChart = "1" end if 'Create the recordset to retrieve data Set oRs = Server.CreateObject("ADODB.Recordset") 'Generate the chart element strXML = "" 'Iterate through each factory strQuery = "select * from Factory_Master" Set oRs = oConn.Execute(strQuery) While Not oRs.Eof 'Now create second recordset to get details for this factory Set oRs2 = Server.CreateObject("ADODB.Recordset") strQuery = "select sum(Quantity) as TotOutput from Factory_Output where FactoryId=" & ors("FactoryId") Set oRs2 = oConn.Execute(strQuery) 'Generate 'Note that we're setting link as Detailed.asp?FactoryId=<> strXML = strXML & "" 'Close recordset Set oRs2 = Nothing oRs.MoveNext Wend 'Finally, close element strXML = strXML & "" Set oRs = nothing 'Create the chart - Pie 3D Chart with data from strXML Call renderChart("../../FusionCharts/Pie3D.swf", "", strXML, "FactorySum", 600, 300, false, false) %>