Jump to content
Software FX Community

Chartfx 5.5 Internet - ASP Code


User (Legacy)

Recommended Posts

I created a chart using a develpment version of Chartfx (version ?) and it

works great (see code sample below). We have Chartfx 5.5 for Intenet

installed in production. From my understanding I do not need to use the

include file for this version. We have other charts (pie, etc) that work

fine in production without the include file. I took out the include

statement (<!-- #include virtual="/include/cfxie.inc" -->) to run in

production but I get the following error messages on the following lines:

Error Type:

Microsoft VBScript runtime (0x800A017D)

Unknown runtime error

-----

FullChart.Series(0).Border = True

FullChart.Series(0).BorderColor = RGB(0,136,0)

FullChart.Series(i).LineWidth = 2

-----

When i use 5.5, do I need to include anything different to get this code to

work?? What am I missing?

Code Sample

-----------------------------------------------------

<%@ Language=VBScript%>

<!-- #include virtual="/include/cfxie.inc" -->

<%

iObjID = 111111

'OPEN CONNECTION TO SQL SERVER

'-create objects

Set adoCon = Server.CreateObject("ADODB.Connection")

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

Set adoCom = Server.CreateObject("ADODB.Command")

'-open connection

scon = "FILE NAME=" & server.MapPath("/d_support") & "\datasource.udl"

adoCon.Open sCon

'GET RECORDSET DATA NEEDED TO CREATE SITE

'-call stored proc to retrieve data

adoCom.CommandText="sp_Chart_AccountBalancetest"

adoCom.CommandType= 4

adoCom.ActiveConnection = sCon

adoCom.Parameters(1) = iObjID

adoRsGraph.CursorLocation = 3

adoRsGraph.Open adoCom

if adoRsGraph.RecordCount > 0 then %>

<HTML>

<a name="top"></a>

<BODY BGCOLOR="#FFFFFF" TEXT="#000000">

<CENTER>

<b><a name="4">NFS Total Assets (prior 12 months)</a></b>

<br><br>

<% if adoRsGraph.EOF = false then%>

<CENTER>

<%set FullChart = Server.CreateObject("ChartFX.WebServer")

FullChart.Chart3D = false

FullChart.Gallery = lines

FullChart.MarkerShape = MK_NONE

''Adjust axis properties

FullChart.Axis(AXIS_Y).Title = "Assets"

FullChart.Axis(AXIS_Y).Format="$#,###"

FullChart.Axis(AXIS_X).Format = "Dm/d/yy"

'Bakcground color of the chart (light blue)

FullChart.Rgb2DBk = RGB(153,204,255)

FullChart.OpenDataEX COD_VALUES,1,COD_UNKNOWN

''Only display the Y value on the datapoints

FullChart.TipMask = "%v" + " " + "%l"

''Display min and max within the chart do that the line is not skewed to

the top

''of the chart. Displays ups and downs more accurately.

FullChart.Axis(AXIS_Y).Style = AS_SHOWENDS

''Need to set border=true to adjust the color on the line

FullChart.Series(0).Border = True

FullChart.Series(0).BorderColor = RGB(0,136,0)

''Set width of the line

FullChart.Series(i).LineWidth = 2

i = 0

j = 0

adoRsGraph.MoveFirst

''Loop through all records

Do Until adoRsGraph.EOF

''Set the data point and legend

FullChart.ValueEx(i, j) = adoRsGraph("value")

FullChart.Legend(j) = adoRsGraph("date")

j = j + 1

adoRsGraph.MoveNext

Loop

''Close out the graph

FullChart.CloseData COD_VALUES

''Calcualte the y axis scale based on the data in the recordset

FullChart.RecalcScale

%>

<%=FullChart.GetHtmlTag("700", "500")%>

<%else%>

There is no data to display in the chart.

<%end if%>

</CENTER>

</BODY>

<script>

Link to comment
Share on other sites

We recommend using the include file because without it all ChartFX constants

(such as MK_NONE) are undefined, if you have used ChartFX Client/Server VB

you can use the constants without any includes because VB extracts these

definitions from the ChartFX OCX.

I would recommend you move all your per-series settings code after the

CloseData call.

Regards

JC

Software FX Support

"PD" <pdaniel@commonwealth.com> wrote in message

news:MI0xroANCHA.1884@webserver1.softwarefx.com...

> I created a chart using a develpment version of Chartfx (version ?) and it

> works great (see code sample below). We have Chartfx 5.5 for Intenet

> installed in production. From my understanding I do not need to use the

> include file for this version. We have other charts (pie, etc) that work

> fine in production without the include file. I took out the include

> statement (<!-- #include virtual="/include/cfxie.inc" -->) to run in

> production but I get the following error messages on the following lines:

>

> Error Type:

> Microsoft VBScript runtime (0x800A017D)

> Unknown runtime error

> -----

> FullChart.Series(0).Border = True

> FullChart.Series(0).BorderColor = RGB(0,136,0)

>

> FullChart.Series(i).LineWidth = 2

> -----

> When i use 5.5, do I need to include anything different to get this code

to

> work?? What am I missing?

>

>

> Code Sample

> -----------------------------------------------------

>

> <%@ Language=VBScript%>

> <!-- #include virtual="/include/cfxie.inc" -->

> <%

> iObjID = 111111

>

> 'OPEN CONNECTION TO SQL SERVER

> '-create objects

> Set adoCon = Server.CreateObject("ADODB.Connection")

> Set adoRsGraph = Server.CreateObject("ADODB.Recordset")

> Set adoCom = Server.CreateObject("ADODB.Command")

> '-open connection

>

> scon = "FILE NAME=" & server.MapPath("/d_support") & "\datasource.udl"

> adoCon.Open sCon

>

> 'GET RECORDSET DATA NEEDED TO CREATE SITE

> '-call stored proc to retrieve data

> adoCom.CommandText="sp_Chart_AccountBalancetest"

> adoCom.CommandType= 4

> adoCom.ActiveConnection = sCon

> adoCom.Parameters(1) = iObjID

> adoRsGraph.CursorLocation = 3

> adoRsGraph.Open adoCom

>

> if adoRsGraph.RecordCount > 0 then %>

>

> <HTML>

> <a name="top"></a>

>

> <BODY BGCOLOR="#FFFFFF" TEXT="#000000">

> <CENTER>

> <b><a name="4">NFS Total Assets (prior 12 months)</a></b>

> <br><br>

> <% if adoRsGraph.EOF = false then%>

> <CENTER>

> <%set FullChart = Server.CreateObject("ChartFX.WebServer")

> FullChart.Chart3D = false

> FullChart.Gallery = lines

> FullChart.MarkerShape = MK_NONE

>

> ''Adjust axis properties

> FullChart.Axis(AXIS_Y).Title = "Assets"

> FullChart.Axis(AXIS_Y).Format="$#,###"

>

> FullChart.Axis(AXIS_X).Format = "Dm/d/yy"

>

> 'Bakcground color of the chart (light blue)

> FullChart.Rgb2DBk = RGB(153,204,255)

>

> FullChart.OpenDataEX COD_VALUES,1,COD_UNKNOWN

>

> ''Only display the Y value on the datapoints

> FullChart.TipMask = "%v" + " " + "%l"

>

> ''Display min and max within the chart do that the line is not skewed

to

> the top

> ''of the chart. Displays ups and downs more accurately.

> FullChart.Axis(AXIS_Y).Style = AS_SHOWENDS

>

> ''Need to set border=true to adjust the color on the line

> FullChart.Series(0).Border = True

> FullChart.Series(0).BorderColor = RGB(0,136,0)

>

> ''Set width of the line

> FullChart.Series(i).LineWidth = 2

>

> i = 0

> j = 0

> adoRsGraph.MoveFirst

> ''Loop through all records

> Do Until adoRsGraph.EOF

> ''Set the data point and legend

> FullChart.ValueEx(i, j) = adoRsGraph("value")

> FullChart.Legend(j) = adoRsGraph("date")

> j = j + 1

> adoRsGraph.MoveNext

> Loop

>

> ''Close out the graph

> FullChart.CloseData COD_VALUES

>

> ''Calcualte the y axis scale based on the data in the recordset

> FullChart.RecalcScale

>

> %>

> <%=FullChart.GetHtmlTag("700", "500")%>

>

> <%else%>

> There is no data to display in the chart.

> <%end if%>

> </CENTER>

>

> </BODY>

> <script>

>

>

Link to comment
Share on other sites

I'm sticking with the cfxie.inc file.  One last issue, when I created a XY

line graph from below in our production version, it display's as a bitmap

and I lose all the interactivity (i.e. graph options when I right click,

highlight the line to view the coordinate values, etc.). It appears the

server object was not properly created. Do you see anything from the below

code that could cause this? Thanks again!

"Software FX Support" <support@softwarefx.com> wrote in message

news:$LkJzowNCHA.2748@webserver1.softwarefx.com...

> We recommend using the include file because without it all ChartFX

constants

> (such as MK_NONE) are undefined, if you have used ChartFX Client/Server VB

> you can use the constants without any includes because VB extracts these

> definitions from the ChartFX OCX.

>

> I would recommend you move all your per-series settings code after the

> CloseData call.

>

> Regards

>

> JC

> Software FX Support

>

>

> "PD" <pdaniel@commonwealth.com> wrote in message

> news:MI0xroANCHA.1884@webserver1.softwarefx.com...

> > I created a chart using a develpment version of Chartfx (version ?) and

it

> > works great (see code sample below). We have Chartfx 5.5 for Intenet

> > installed in production. From my understanding I do not need to use the

> > include file for this version. We have other charts (pie, etc) that

work

> > fine in production without the include file. I took out the include

> > statement (<!-- #include virtual="/include/cfxie.inc" -->) to run in

> > production but I get the following error messages on the following

lines:

> >

> > Error Type:

> > Microsoft VBScript runtime (0x800A017D)

> > Unknown runtime error

> > -----

> > FullChart.Series(0).Border = True

> > FullChart.Series(0).BorderColor = RGB(0,136,0)

> >

> > FullChart.Series(i).LineWidth = 2

> > -----

> > When i use 5.5, do I need to include anything different to get this code

> to

> > work?? What am I missing?

> >

> >

> > Code Sample

> > -----------------------------------------------------

> >

> > <%@ Language=VBScript%>

> > <!-- #include virtual="/include/cfxie.inc" -->

> > <%

> > iObjID = 111111

> >

> > 'OPEN CONNECTION TO SQL SERVER

> > '-create objects

> > Set adoCon = Server.CreateObject("ADODB.Connection")

> > Set adoRsGraph = Server.CreateObject("ADODB.Recordset")

> > Set adoCom = Server.CreateObject("ADODB.Command")

> > '-open connection

> >

> > scon = "FILE NAME=" & server.MapPath("/d_support") & "\datasource.udl"

> > adoCon.Open sCon

> >

> > 'GET RECORDSET DATA NEEDED TO CREATE SITE

> > '-call stored proc to retrieve data

> > adoCom.CommandText="sp_Chart_AccountBalancetest"

> > adoCom.CommandType= 4

> > adoCom.ActiveConnection = sCon

> > adoCom.Parameters(1) = iObjID

> > adoRsGraph.CursorLocation = 3

> > adoRsGraph.Open adoCom

> >

> > if adoRsGraph.RecordCount > 0 then %>

> >

> > <HTML>

> > <a name="top"></a>

> >

> > <BODY BGCOLOR="#FFFFFF" TEXT="#000000">

> > <CENTER>

> > <b><a name="4">NFS Total Assets (prior 12 months)</a></b>

> > <br><br>

> > <% if adoRsGraph.EOF = false then%>

> > <CENTER>

> > <%set FullChart = Server.CreateObject("ChartFX.WebServer")

> > FullChart.Chart3D = false

> > FullChart.Gallery = lines

> > FullChart.MarkerShape = MK_NONE

> >

> > ''Adjust axis properties

> > FullChart.Axis(AXIS_Y).Title = "Assets"

> > FullChart.Axis(AXIS_Y).Format="$#,###"

> >

> > FullChart.Axis(AXIS_X).Format = "Dm/d/yy"

> >

> > 'Bakcground color of the chart (light blue)

> > FullChart.Rgb2DBk = RGB(153,204,255)

> >

> > FullChart.OpenDataEX COD_VALUES,1,COD_UNKNOWN

> >

> > ''Only display the Y value on the datapoints

> > FullChart.TipMask = "%v" + " " + "%l"

> >

> > ''Display min and max within the chart do that the line is not

skewed

> to

> > the top

> > ''of the chart. Displays ups and downs more accurately.

> > FullChart.Axis(AXIS_Y).Style = AS_SHOWENDS

> >

> > ''Need to set border=true to adjust the color on the line

> > FullChart.Series(0).Border = True

> > FullChart.Series(0).BorderColor = RGB(0,136,0)

> >

> > ''Set width of the line

> > FullChart.Series(i).LineWidth = 2

> >

> > i = 0

> > j = 0

> > adoRsGraph.MoveFirst

> > ''Loop through all records

> > Do Until adoRsGraph.EOF

> > ''Set the data point and legend

> > FullChart.ValueEx(i, j) = adoRsGraph("value")

> > FullChart.Legend(j) = adoRsGraph("date")

> > j = j + 1

> > adoRsGraph.MoveNext

> > Loop

> >

> > ''Close out the graph

> > FullChart.CloseData COD_VALUES

> >

> > ''Calcualte the y axis scale based on the data in the recordset

> > FullChart.RecalcScale

> >

> > %>

> > <%=FullChart.GetHtmlTag("700", "500")%>

> >

> > <%else%>

> > There is no data to display in the chart.

> > <%end if%>

> > </CENTER>

> >

> > </BODY>

> > <script>

> >

> >

>

>

Link to comment
Share on other sites

I needed to add the "activex" parameter to the gethtmltag function.  Now I'm

getting a 'Failed to download license' error (only on our production box).

"PD" <pdaniel@commonwealth.com> wrote in message

news:GRPHOuHPCHA.1280@webserver1.softwarefx.com...

> I'm sticking with the cfxie.inc file. One last issue, when I created a XY

> line graph from below in our production version, it display's as a bitmap

> and I lose all the interactivity (i.e. graph options when I right click,

> highlight the line to view the coordinate values, etc.). It appears the

> server object was not properly created. Do you see anything from the

below

> code that could cause this? Thanks again!

>

>

> "Software FX Support" <support@softwarefx.com> wrote in message

> news:$LkJzowNCHA.2748@webserver1.softwarefx.com...

> > We recommend using the include file because without it all ChartFX

> constants

> > (such as MK_NONE) are undefined, if you have used ChartFX Client/Server

VB

> > you can use the constants without any includes because VB extracts these

> > definitions from the ChartFX OCX.

> >

> > I would recommend you move all your per-series settings code after the

> > CloseData call.

> >

> > Regards

> >

> > JC

> > Software FX Support

> >

> >

> > "PD" <pdaniel@commonwealth.com> wrote in message

> > news:MI0xroANCHA.1884@webserver1.softwarefx.com...

> > > I created a chart using a develpment version of Chartfx (version ?)

and

> it

> > > works great (see code sample below). We have Chartfx 5.5 for Intenet

> > > installed in production. From my understanding I do not need to use

the

> > > include file for this version. We have other charts (pie, etc) that

> work

> > > fine in production without the include file. I took out the include

> > > statement (<!-- #include virtual="/include/cfxie.inc" -->) to run in

> > > production but I get the following error messages on the following

> lines:

> > >

> > > Error Type:

> > > Microsoft VBScript runtime (0x800A017D)

> > > Unknown runtime error

> > > -----

> > > FullChart.Series(0).Border = True

> > > FullChart.Series(0).BorderColor = RGB(0,136,0)

> > >

> > > FullChart.Series(i).LineWidth = 2

> > > -----

> > > When i use 5.5, do I need to include anything different to get this

code

> > to

> > > work?? What am I missing?

> > >

> > >

> > > Code Sample

> > > -----------------------------------------------------

> > >

> > > <%@ Language=VBScript%>

> > > <!-- #include virtual="/include/cfxie.inc" -->

> > > <%

> > > iObjID = 111111

> > >

> > > 'OPEN CONNECTION TO SQL SERVER

> > > '-create objects

> > > Set adoCon = Server.CreateObject("ADODB.Connection")

> > > Set adoRsGraph = Server.CreateObject("ADODB.Recordset")

> > > Set adoCom = Server.CreateObject("ADODB.Command")

> > > '-open connection

> > >

> > > scon = "FILE NAME=" & server.MapPath("/d_support") & "\datasource.udl"

> > > adoCon.Open sCon

> > >

> > > 'GET RECORDSET DATA NEEDED TO CREATE SITE

> > > '-call stored proc to retrieve data

> > > adoCom.CommandText="sp_Chart_AccountBalancetest"

> > > adoCom.CommandType= 4

> > > adoCom.ActiveConnection = sCon

> > > adoCom.Parameters(1) = iObjID

> > > adoRsGraph.CursorLocation = 3

> > > adoRsGraph.Open adoCom

> > >

> > > if adoRsGraph.RecordCount > 0 then %>

> > >

> > > <HTML>

> > > <a name="top"></a>

> > >

> > > <BODY BGCOLOR="#FFFFFF" TEXT="#000000">

> > > <CENTER>

> > > <b><a name="4">NFS Total Assets (prior 12 months)</a></b>

> > > <br><br>

> > > <% if adoRsGraph.EOF = false then%>

> > > <CENTER>

> > > <%set FullChart = Server.CreateObject("ChartFX.WebServer")

> > > FullChart.Chart3D = false

> > > FullChart.Gallery = lines

> > > FullChart.MarkerShape = MK_NONE

> > >

> > > ''Adjust axis properties

> > > FullChart.Axis(AXIS_Y).Title = "Assets"

> > > FullChart.Axis(AXIS_Y).Format="$#,###"

> > >

> > > FullChart.Axis(AXIS_X).Format = "Dm/d/yy"

> > >

> > > 'Bakcground color of the chart (light blue)

> > > FullChart.Rgb2DBk = RGB(153,204,255)

> > >

> > > FullChart.OpenDataEX COD_VALUES,1,COD_UNKNOWN

> > >

> > > ''Only display the Y value on the datapoints

> > > FullChart.TipMask = "%v" + " " + "%l"

> > >

> > > ''Display min and max within the chart do that the line is not

> skewed

> > to

> > > the top

> > > ''of the chart. Displays ups and downs more accurately.

> > > FullChart.Axis(AXIS_Y).Style = AS_SHOWENDS

> > >

> > > ''Need to set border=true to adjust the color on the line

> > > FullChart.Series(0).Border = True

> > > FullChart.Series(0).BorderColor = RGB(0,136,0)

> > >

> > > ''Set width of the line

> > > FullChart.Series(i).LineWidth = 2

> > >

> > > i = 0

> > > j = 0

> > > adoRsGraph.MoveFirst

> > > ''Loop through all records

> > > Do Until adoRsGraph.EOF

> > > ''Set the data point and legend

> > > FullChart.ValueEx(i, j) = adoRsGraph("value")

> > > FullChart.Legend(j) = adoRsGraph("date")

> > > j = j + 1

> > > adoRsGraph.MoveNext

> > > Loop

> > >

> > > ''Close out the graph

> > > FullChart.CloseData COD_VALUES

> > >

> > > ''Calcualte the y axis scale based on the data in the recordset

> > > FullChart.RecalcScale

> > >

> > > %>

> > > <%=FullChart.GetHtmlTag("700", "500")%>

> > >

> > > <%else%>

> > > There is no data to display in the chart.

> > > <%end if%>

> > > </CENTER>

> > >

> > > </BODY>

> > > <script>

> > >

> > >

> >

> >

>

>

Link to comment
Share on other sites

We had to add the 'License' virtual directory under our primary web site.

It works fine now.

"PD" <pdaniel@commonwealth.com> wrote in message

news:XJzH#jIPCHA.1280@webserver1.softwarefx.com...

> I needed to add the "activex" parameter to the gethtmltag function. Now

I'm

> getting a 'Failed to download license' error (only on our production box).

>

>

> "PD" <pdaniel@commonwealth.com> wrote in message

> news:GRPHOuHPCHA.1280@webserver1.softwarefx.com...

> > I'm sticking with the cfxie.inc file. One last issue, when I created a

XY

> > line graph from below in our production version, it display's as a

bitmap

> > and I lose all the interactivity (i.e. graph options when I right click,

> > highlight the line to view the coordinate values, etc.). It appears the

> > server object was not properly created. Do you see anything from the

> below

> > code that could cause this? Thanks again!

> >

> >

> > "Software FX Support" <support@softwarefx.com> wrote in message

> > news:$LkJzowNCHA.2748@webserver1.softwarefx.com...

> > > We recommend using the include file because without it all ChartFX

> > constants

> > > (such as MK_NONE) are undefined, if you have used ChartFX

Client/Server

> VB

> > > you can use the constants without any includes because VB extracts

these

> > > definitions from the ChartFX OCX.

> > >

> > > I would recommend you move all your per-series settings code after the

> > > CloseData call.

> > >

> > > Regards

> > >

> > > JC

> > > Software FX Support

> > >

> > >

> > > "PD" <pdaniel@commonwealth.com> wrote in message

> > > news:MI0xroANCHA.1884@webserver1.softwarefx.com...

> > > > I created a chart using a develpment version of Chartfx (version ?)

> and

> > it

> > > > works great (see code sample below). We have Chartfx 5.5 for

Intenet

> > > > installed in production. From my understanding I do not need to use

> the

> > > > include file for this version. We have other charts (pie, etc) that

> > work

> > > > fine in production without the include file. I took out the include

> > > > statement (<!-- #include virtual="/include/cfxie.inc" -->) to run in

> > > > production but I get the following error messages on the following

> > lines:

> > > >

> > > > Error Type:

> > > > Microsoft VBScript runtime (0x800A017D)

> > > > Unknown runtime error

> > > > -----

> > > > FullChart.Series(0).Border = True

> > > > FullChart.Series(0).BorderColor = RGB(0,136,0)

> > > >

> > > > FullChart.Series(i).LineWidth = 2

> > > > -----

> > > > When i use 5.5, do I need to include anything different to get this

> code

> > > to

> > > > work?? What am I missing?

> > > >

> > > >

> > > > Code Sample

> > > > -----------------------------------------------------

> > > >

> > > > <%@ Language=VBScript%>

> > > > <!-- #include virtual="/include/cfxie.inc" -->

> > > > <%

> > > > iObjID = 111111

> > > >

> > > > 'OPEN CONNECTION TO SQL SERVER

> > > > '-create objects

> > > > Set adoCon = Server.CreateObject("ADODB.Connection")

> > > > Set adoRsGraph = Server.CreateObject("ADODB.Recordset")

> > > > Set adoCom = Server.CreateObject("ADODB.Command")

> > > > '-open connection

> > > >

> > > > scon = "FILE NAME=" & server.MapPath("/d_support") &

"\datasource.udl"

> > > > adoCon.Open sCon

> > > >

> > > > 'GET RECORDSET DATA NEEDED TO CREATE SITE

> > > > '-call stored proc to retrieve data

> > > > adoCom.CommandText="sp_Chart_AccountBalancetest"

> > > > adoCom.CommandType= 4

> > > > adoCom.ActiveConnection = sCon

> > > > adoCom.Parameters(1) = iObjID

> > > > adoRsGraph.CursorLocation = 3

> > > > adoRsGraph.Open adoCom

> > > >

> > > > if adoRsGraph.RecordCount > 0 then %>

> > > >

> > > > <HTML>

> > > > <a name="top"></a>

> > > >

> > > > <BODY BGCOLOR="#FFFFFF" TEXT="#000000">

> > > > <CENTER>

> > > > <b><a name="4">NFS Total Assets (prior 12 months)</a></b>

> > > > <br><br>

> > > > <% if adoRsGraph.EOF = false then%>

> > > > <CENTER>

> > > > <%set FullChart = Server.CreateObject("ChartFX.WebServer")

> > > > FullChart.Chart3D = false

> > > > FullChart.Gallery = lines

> > > > FullChart.MarkerShape = MK_NONE

> > > >

> > > > ''Adjust axis properties

> > > > FullChart.Axis(AXIS_Y).Title = "Assets"

> > > > FullChart.Axis(AXIS_Y).Format="$#,###"

> > > >

> > > > FullChart.Axis(AXIS_X).Format = "Dm/d/yy"

> > > >

> > > > 'Bakcground color of the chart (light blue)

> > > > FullChart.Rgb2DBk = RGB(153,204,255)

> > > >

> > > > FullChart.OpenDataEX COD_VALUES,1,COD_UNKNOWN

> > > >

> > > > ''Only display the Y value on the datapoints

> > > > FullChart.TipMask = "%v" + " " + "%l"

> > > >

> > > > ''Display min and max within the chart do that the line is not

> > skewed

> > > to

> > > > the top

> > > > ''of the chart. Displays ups and downs more accurately.

> > > > FullChart.Axis(AXIS_Y).Style = AS_SHOWENDS

> > > >

> > > > ''Need to set border=true to adjust the color on the line

> > > > FullChart.Series(0).Border = True

> > > > FullChart.Series(0).BorderColor = RGB(0,136,0)

> > > >

> > > > ''Set width of the line

> > > > FullChart.Series(i).LineWidth = 2

> > > >

> > > > i = 0

> > > > j = 0

> > > > adoRsGraph.MoveFirst

> > > > ''Loop through all records

> > > > Do Until adoRsGraph.EOF

> > > > ''Set the data point and legend

> > > > FullChart.ValueEx(i, j) = adoRsGraph("value")

> > > > FullChart.Legend(j) = adoRsGraph("date")

> > > > j = j + 1

> > > > adoRsGraph.MoveNext

> > > > Loop

> > > >

> > > > ''Close out the graph

> > > > FullChart.CloseData COD_VALUES

> > > >

> > > > ''Calcualte the y axis scale based on the data in the recordset

> > > > FullChart.RecalcScale

> > > >

> > > > %>

> > > > <%=FullChart.GetHtmlTag("700", "500")%>

> > > >

> > > > <%else%>

> > > > There is no data to display in the chart.

> > > > <%end if%>

> > > > </CENTER>

> > > >

> > > > </BODY>

> > > > <script>

> > > >

> > > >

> > >

> > >

> >

> >

>

>

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...