Dear all
I am using the free version of fusion charts db basic asp code and I am currently getting a runtime error on the highlighted code below:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE>FusionCharts Free - Database Example</TITLE>
<script LANGUAGE="Javascript" SRC="../../FusionCharts/FusionCharts.js"></SCRIPT>
</HEAD>
<!--#INCLUDE VIRTUAL="MyWeb/includes/FusionCharts.asp"-->
'Adding library script that will connect to the Access Databse file automatically.
<!--#INCLUDE VIRTUAL="MyWeb/includes/DBConn.asp"-->
<BODY>
<CENTER>
<%
'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
'Create the recordset to retrieve data
Set oRs = Server.CreateObject("ADODB.Recordset")
'Generate the chart element
strXML = "<graph caption='Factory Output report' subCaption='By Quantity' decimalPrecision='0' showNames='1' numberSuffix=' Units' pieSliceDepth='30' formatNumberScale='0'>"
'Iterate through each factory
strQuery = "select * from deal_price"
[b] Set oRs = oConnection.Execute(strQuery)[/b]
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 = oConnection.Execute(strQuery)
'Generate <set name='..' value='..'/>
strXML = strXML & "<set name='" & ors("FactoryName") & "' value='" & ors2("TotOutput") & "' />"
'Close recordset
Set oRs2 = Nothing
oRs.MoveNext
Wend
'Finally, close <chart> element
strXML = strXML & "</chart>"
Set oRs = nothing
'Create the chart - Pie 3D Chart with data from strXML
Call renderChart("../../FusionCharts/FCF_Pie3D.swf", "", strXML, "FactorySum", 650, 450)
%>
</BODY>
</HTML>
I can not figure out the reason behind this error and any help would be very much appreciated. Thank you for your time and help.
