Sign in to follow this  
jerrym

FusionCharts_Gen error

Recommended Posts

Hi

i'm getting the above error when trying to generate an xml for a MSCombi3D chart. my code below, most if not all of the chart param attributes were taken from the chart gallery ie Combination chart with 3d column & area.

code

===

<%@LANGUAGE="VBSCRIPT"%>

<% option explicit %>

<%

  'We've included ../Includes/DBConn.asp, which contains functions

  'to help us easily connect to a database.

%>

  <!--#include file="../Includes/DBConn.asp"-->

  <%

'We've included ../Includes/FusionCharts_Gen.asp, which FusionCharts ASP Class to help us easily embed the charts.

 

  %>

  <!--#include file="../Includes/FusionCharts_Gen.asp"-->

  <%

'This page generates the XML data  

Dim FC

' Create FusionCharts ASP class object

set FC = new FusionCharts

' Set chart type

Call FC.setChartType("MSCombi3D")

 Call FC.setSize("600","400")

' Set Relative Path of swf file.

Call FC.setSWFPath("../FusionCharts/")

' Define chart attributes

 Dim strParam

strParam="bgColor=E9E9E9;outCnvBaseFontColor=666666;caption=Sales Comparison; xAxisName=Month; yAxisName=Sales;showBorder=1; formatNumber=1;

formatNumberScale=0; decimals=0;showValues=0;plotFillAlpha=70; numVDivLines=10; showAlternateVGridColor=1; AlternateVGridColor=e1f5ff;

divLineColor=e1f5ff; vdivLineColor=e1f5ff;

baseFontColor=666666;canvasBorderThickness=1;showPlotBorder=0;plotBorderThickness=0;startAngX=7;endAngX=7;startAngY=-18;endAngY=-18;zgapplot=20;zdepth=

60;exeTime=2;chartOrder=area,column"

'Set chart attributes

Call FC.setChartParams(strParam)

 

' Fetch data records using SQL Query

Dim strQuery

strQuery = "select * from SalesByMonthCYLY order by ChartDate"

Dim oRs

'Create the recordset to retrieve data

Set oRs = Server.CreateObject("ADODB.Recordset")

Set oRs = oConn.Execute(strQuery)

'Pass the SQL Query result to the FusionCharts ASP Class function

If Not oRs.bof Then

 Call FC.addDataset("WeightCurrYr","showValues=0;renderAs=Column")

 Do while Not oRs.eof

 Call FC.addCategory(oRs("Month"),"", "")

 Call FC.addChartData(oRs("WeightCY"), "", "")

 oRs.MoveNext

 Loop

 

 Call FC.addDataset("SalesLastYr","showValues=0;renderAs=Area")

 oRs.MoveFirst

 Do while Not oRs.eof

 Call FC.addChartData(oRs("WeightLY"), "", "")

 oRs.MoveNext

 Loop

End If

oRs.Close

set oRs=Nothing

'Set Proper output content-type

Response.ContentType= "text/xml"

'Just write out the XML data

Response.Write(FC.getXML())

  %>

===

any help would be much appreciated.

Jerry

Share this post


Link to post
Share on other sites

hi

i'm not getting any xml as it throws an error as below;

Error Type:

Microsoft VBScript runtime (0x800A01C2)

Wrong number of arguments or invalid property assignment

/Tracking4/FusionCharts/Includes/FusionCharts_Gen.asp, line 1012

 

i followed the example, actually i copied the example so in the chart gallery, please could you help.

Share this post


Link to post
Share on other sites

hi

its working now thank you.

have you guys been having trouble with the fusoncharts_gen file???

this is the 2nd time in 2 days a new file has been issued. should i use another method instead if its not stable?

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this