<%
Option Explicit
Response.Buffer = True<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8" />
<title></title>
</head>
<body>
<%
Option Explicit
Response.Buffer = True
%>
<!-- #INCLUDE FILE="localFunctions.asp" -->
<%
Dim a, b
Dim h, i, j, k, l, m, n, o
dim rsTraulsen1,rsTraulsen2,rsTraulsen3,rsTraulsen4,rsTraulsen5,rsTraulsen6,rsTraulsen7,rsTraulsen8,rsTraulsen9,rsTraulsen10,rsTraulsen11,rsTraulsen12
dim rsDelarue1,rsDelarue2,rsDelarue3,rsDelarue4,rsDelarue5,rsDelarue6,rsDelarue7,rsDelarue8,rsDelarue9,rsDelarue10,rsDelarue11,rsDelarue12
dim rsDhi1,rsDhi2,rsDhi3,rsDhi4,rsDhi5,rsDhi6,rsDhi7,rsDhi8,rsDhi9,rsDhi10,rsDhi11,rsDhi12
dim rsMnc1,rsMnc2,rsMnc3,rsMnc4,rsMnc5,rsMnc6,rsMnc7,rsMnc8,rsMnc9,rsMnc10,rsMnc11,rsMnc12
dim rsPowerone1,rsPowerone2,rsPowerone3,rsPowerone4,rsPowerone5,rsPowerone6,rsPowerone7,rsPowerone8,rsPowerone9,rsPowerone10,rsPowerone11,rsPowerone12
dim rsAmf1,rsAmf2,rsAmf3,rsAmf4,rsAmf5,rsAmf6,rsAmf7,rsAmf8,rsAmf9,rsAmf10,rsAmf11,rsAmf12
dim rsWinsystem1,rsWinsystem2,rsWinsystem3,rsWinsystem4,rsWinsystem5,rsWinsystem6,rsWinsystem7,rsWinsystem8,rsWinsystem9,rsWinsystem10,rsWinsystem11,rsWinsystem12
dim rsOnasset1,rsOnasset2,rsOnasset3,rsOnasset4,rsOnasset5,rsOnasset6,rsOnasset7,rsOnasset8,rsOnasset9,rsOnasset10,rsOnasset11,rsOnasset12
dim rsCornerStone1,rsCornerStone2,rsCornerStone3,rsCornerStone4,rsCornerStone5,rsCornerStone6,rsCornerStone7,rsCornerStone8,rsCornerStone9,rsCornerStone10,rsCornerStone11,rsCornerStone12
dim strYear
strYear=cstr(year(now))
Set rsAmf1 = Server.CreateObject("ADODB.Recordset")
Set rsAmf2 = Server.CreateObject("ADODB.Recordset")
Set rsAmf3 = Server.CreateObject("ADODB.Recordset")
Set rsAmf4 = Server.CreateObject("ADODB.Recordset")
Set rsAmf5 = Server.CreateObject("ADODB.Recordset")
Set rsAmf6 = Server.CreateObject("ADODB.Recordset")
Set rsAmf7 = Server.CreateObject("ADODB.Recordset")
Set rsAmf8 = Server.CreateObject("ADODB.Recordset")
Set rsAmf9 = Server.CreateObject("ADODB.Recordset")
Set rsAmf10 = Server.CreateObject("ADODB.Recordset")
Set rsAmf11 = Server.CreateObject("ADODB.Recordset")
Set rsAmf12 = Server.CreateObject("ADODB.Recordset")
Set rsMnc1= getChartData("1000015","1",strYear)
Set rsMnc2= getChartData("1000015","2",strYear)
Set rsMnc3= getChartData("1000015","3",strYear)
Set rsMnc4= getChartData("1000015","4",strYear)
Set rsMnc5= getChartData("1000015","5",strYear)
Set rsMnc6= getChartData("1000015","6",strYear)
Set rsMnc7= getChartData("1000015","7",strYear)
Set rsMnc8= getChartData("1000015","8",strYear)
Set rsMnc9= getChartData("1000015","9",strYear)
Set rsMnc10=getChartData("1000015","10",strYear)
Set rsMnc11=getChartData("1000015","11",strYear)
Set rsMnc12= getChartData("1000015","12",strYear)
Set rsAmf1 = Server.CreateObject("ADODB.Recordset")
Set rsAmf2 = Server.CreateObject("ADODB.Recordset")
Set rsAmf3 = Server.CreateObject("ADODB.Recordset")
Set rsAmf4 = Server.CreateObject("ADODB.Recordset")
Set rsAmf5 = Server.CreateObject("ADODB.Recordset")
Set rsAmf6 = Server.CreateObject("ADODB.Recordset")
Set rsAmf7 = Server.CreateObject("ADODB.Recordset")
Set rsAmf8 = Server.CreateObject("ADODB.Recordset")
Set rsAmf9 = Server.CreateObject("ADODB.Recordset")
Set rsAmf10 = Server.CreateObject("ADODB.Recordset")
Set rsAmf11 = Server.CreateObject("ADODB.Recordset")
Set rsAmf12 = Server.CreateObject("ADODB.Recordset")
Set rsAmf1= getChartData("1000024","1",strYear)
Set rsAmf2= getChartData("1000024","2",strYear)
Set rsAmf3= getChartData("1000024","3",strYear)
Set rsAmf4= getChartData("1000024","4",strYear)
Set rsAmf5= getChartData("1000024","5",strYear)
Set rsAmf6= getChartData("1000024","6",strYear)
Set rsAmf7= getChartData("1000024","7",strYear)
Set rsAmf8= getChartData("1000024","8",strYear)
Set rsAmf9= getChartData("1000024","9",strYear)
Set rsAmf10=getChartData("1000024","10",strYear)
Set rsAmf11=getChartData("1000024","11",strYear)
Set rsAmf12= getChartData("1000024","12",strYear)
Set rsTraulsen1 = Server.CreateObject("ADODB.Recordset")
Set rsTraulsen2 = Server.CreateObject("ADODB.Recordset")
Set rsTraulsen3 = Server.CreateObject("ADODB.Recordset")
Set rsTraulsen4 = Server.CreateObject("ADODB.Recordset")
Set rsTraulsen5 = Server.CreateObject("ADODB.Recordset")
Set rsTraulsen6 = Server.CreateObject("ADODB.Recordset")
Set rsTraulsen7 = Server.CreateObject("ADODB.Recordset")
Set rsTraulsen8 = Server.CreateObject("ADODB.Recordset")
Set rsTraulsen9 = Server.CreateObject("ADODB.Recordset")
Set rsTraulsen10 = Server.CreateObject("ADODB.Recordset")
Set rsTraulsen11 = Server.CreateObject("ADODB.Recordset")
Set rsTraulsen12 = Server.CreateObject("ADODB.Recordset")
Set rsTraulsen1= getChartData("100003","1",strYear)
Set rsTraulsen2= getChartData("100003","2",strYear)
Set rsTraulsen3= getChartData("100003","3",strYear)
Set rsTraulsen4= getChartData("100003","4",strYear)
Set rsTraulsen5= getChartData("100003","5",strYear)
Set rsTraulsen6= getChartData("100003","6",strYear)
Set rsTraulsen7= getChartData("100003","7",strYear)
Set rsTraulsen8= getChartData("100003","8",strYear)
Set rsTraulsen9= getChartData("100003","9",strYear)
Set rsTraulsen10= getChartData("100003","10",strYear)
Set rsTraulsen11= getChartData("100003","11",strYear)
Set rsTraulsen12= getChartData("100003","12",strYear)
Set rsDelarue1 = Server.CreateObject("ADODB.Recordset")
Set rsDelarue2 = Server.CreateObject("ADODB.Recordset")
Set rsDelarue3 = Server.CreateObject("ADODB.Recordset")
Set rsDelarue4 = Server.CreateObject("ADODB.Recordset")
Set rsDelarue5 = Server.CreateObject("ADODB.Recordset")
Set rsDelarue6 = Server.CreateObject("ADODB.Recordset")
Set rsDelarue7 = Server.CreateObject("ADODB.Recordset")
Set rsDelarue8 = Server.CreateObject("ADODB.Recordset")
Set rsDelarue9 = Server.CreateObject("ADODB.Recordset")
Set rsDelarue10 = Server.CreateObject("ADODB.Recordset")
Set rsDelarue11 = Server.CreateObject("ADODB.Recordset")
Set rsDelarue12 = Server.CreateObject("ADODB.Recordset")
Set rsDelarue1= getChartData("1000014","1",strYear)
Set rsDelarue2= getChartData("1000014","2",strYear)
Set rsDelarue3= getChartData("1000014","3",strYear)
Set rsDelarue4= getChartData("1000014","4",strYear)
Set rsDelarue5= getChartData("1000014","5",strYear)
Set rsDelarue6= getChartData("1000014","6",strYear)
Set rsDelarue7= getChartData("1000014","7",strYear)
Set rsDelarue8= getChartData("1000014","8",strYear)
Set rsDelarue9= getChartData("1000014","9",strYear)
Set rsDelarue10= getChartData("1000014","10",strYear)
Set rsDelarue11= getChartData("1000014","11",strYear)
Set rsDelarue12= getChartData("1000014","12",strYear)
Set rsPowerone1 = Server.CreateObject("ADODB.Recordset")
Set rsPowerone2 = Server.CreateObject("ADODB.Recordset")
Set rsPowerone3 = Server.CreateObject("ADODB.Recordset")
Set rsPowerone4 = Server.CreateObject("ADODB.Recordset")
Set rsPowerone5 = Server.CreateObject("ADODB.Recordset")
Set rsPowerone6 = Server.CreateObject("ADODB.Recordset")
Set rsPowerone7 = Server.CreateObject("ADODB.Recordset")
Set rsPowerone8 = Server.CreateObject("ADODB.Recordset")
Set rsPowerone9 = Server.CreateObject("ADODB.Recordset")
Set rsPowerone10 = Server.CreateObject("ADODB.Recordset")
Set rsPowerone11 = Server.CreateObject("ADODB.Recordset")
Set rsPowerone12 = Server.CreateObject("ADODB.Recordset")
Set rsPowerone1= getChartData("10000","1",strYear)
Set rsPowerone2= getChartData("10000","2",strYear)
Set rsPowerone3= getChartData("10000","3",strYear)
Set rsPowerone4= getChartData("10000","4",strYear)
Set rsPowerone5= getChartData("10000","5",strYear)
Set rsPowerone6= getChartData("10000","6",strYear)
Set rsPowerone7= getChartData("10000","7",strYear)
Set rsPowerone8= getChartData("10000","8",strYear)
Set rsPowerone9= getChartData("10000","9",strYear)
Set rsPowerone10= getChartData("10000","10",strYear)
Set rsPowerone11= getChartData("10000","11",strYear)
Set rsPowerone12= getChartData("10000","12",strYear)
Set rsDhi1 = Server.CreateObject("ADODB.Recordset")
Set rsDhi2 = Server.CreateObject("ADODB.Recordset")
Set rsDhi3 = Server.CreateObject("ADODB.Recordset")
Set rsDhi4 = Server.CreateObject("ADODB.Recordset")
Set rsDhi5 = Server.CreateObject("ADODB.Recordset")
Set rsDhi6 = Server.CreateObject("ADODB.Recordset")
Set rsDhi7 = Server.CreateObject("ADODB.Recordset")
Set rsDhi8 = Server.CreateObject("ADODB.Recordset")
Set rsDhi9 = Server.CreateObject("ADODB.Recordset")
Set rsDhi10 = Server.CreateObject("ADODB.Recordset")
Set rsDhi11 = Server.CreateObject("ADODB.Recordset")
Set rsDhi12 = Server.CreateObject("ADODB.Recordset")
Set rsDhi1= getChartData("100004","1",strYear)
Set rsDhi2= getChartData("100004","2",strYear)
Set rsDhi3= getChartData("100004","3",strYear)
Set rsDhi4= getChartData("100004","4",strYear)
Set rsDhi5= getChartData("100004","5",strYear)
Set rsDhi6= getChartData("100004","6",strYear)
Set rsDhi7= getChartData("100004","7",strYear)
Set rsDhi8= getChartData("100004","8",strYear)
Set rsDhi9= getChartData("100004","9",strYear)
Set rsDhi10= getChartData("100004","10",strYear)
Set rsDhi11= getChartData("100004","11",strYear)
Set rsDhi12= getChartData("100004","12",strYear)
Set rsWinsystem1 = Server.CreateObject("ADODB.Recordset")
Set rsWinsystem2 = Server.CreateObject("ADODB.Recordset")
Set rsWinsystem3 = Server.CreateObject("ADODB.Recordset")
Set rsWinsystem4 = Server.CreateObject("ADODB.Recordset")
Set rsWinsystem5 = Server.CreateObject("ADODB.Recordset")
Set rsWinsystem6 = Server.CreateObject("ADODB.Recordset")
Set rsWinsystem7 = Server.CreateObject("ADODB.Recordset")
Set rsWinsystem8 = Server.CreateObject("ADODB.Recordset")
Set rsWinsystem9 = Server.CreateObject("ADODB.Recordset")
Set rsWinsystem10 = Server.CreateObject("ADODB.Recordset")
Set rsWinsystem11 = Server.CreateObject("ADODB.Recordset")
Set rsWinsystem12 = Server.CreateObject("ADODB.Recordset")
Set rsWinsystem1= getChartData("100002","1",strYear)
Set rsWinsystem2= getChartData("100002","2",strYear)
Set rsWinsystem3= getChartData("100002","3",strYear)
Set rsWinsystem4= getChartData("100002","4",strYear)
Set rsWinsystem5= getChartData("100002","5",strYear)
Set rsWinsystem6= getChartData("100002","6",strYear)
Set rsWinsystem7= getChartData("100002","7",strYear)
Set rsWinsystem8= getChartData("100002","8",strYear)
Set rsWinsystem9= getChartData("100002","9",strYear)
Set rsWinsystem10= getChartData("100002","10",strYear)
Set rsWinsystem11= getChartData("100002","11",strYear)
Set rsWinsystem12= getChartData("100002","12",strYear)
Set rsOnasset1 = Server.CreateObject("ADODB.Recordset")
Set rsOnasset2 = Server.CreateObject("ADODB.Recordset")
Set rsOnasset3 = Server.CreateObject("ADODB.Recordset")
Set rsOnasset4 = Server.CreateObject("ADODB.Recordset")
Set rsOnasset5 = Server.CreateObject("ADODB.Recordset")
Set rsOnasset6 = Server.CreateObject("ADODB.Recordset")
Set rsOnasset7 = Server.CreateObject("ADODB.Recordset")
Set rsOnasset8 = Server.CreateObject("ADODB.Recordset")
Set rsOnasset9 = Server.CreateObject("ADODB.Recordset")
Set rsOnasset10 = Server.CreateObject("ADODB.Recordset")
Set rsOnasset11 = Server.CreateObject("ADODB.Recordset")
Set rsOnasset12 = Server.CreateObject("ADODB.Recordset")
Set rsOnasset1= getChartData("1000017","1",strYear)
Set rsOnasset2= getChartData("1000017","2",strYear)
Set rsOnasset3= getChartData("1000017","3",strYear)
Set rsOnasset4= getChartData("1000017","4",strYear)
Set rsOnasset5= getChartData("1000017","5",strYear)
Set rsOnasset6= getChartData("1000017","6",strYear)
Set rsOnasset7= getChartData("1000017","7",strYear)
Set rsOnasset8= getChartData("1000017","8",strYear)
Set rsOnasset9= getChartData("1000017","9",strYear)
Set rsOnasset10= getChartData("1000017","10",strYear)
Set rsOnasset11= getChartData("1000017","11",strYear)
Set rsOnasset12= getChartData("1000017","12",strYear)
Set rsCornerStone1 = Server.CreateObject("ADODB.Recordset")
Set rsCornerStone2 = Server.CreateObject("ADODB.Recordset")
Set rsCornerStone3 = Server.CreateObject("ADODB.Recordset")
Set rsCornerStone4 = Server.CreateObject("ADODB.Recordset")
Set rsCornerStone5 = Server.CreateObject("ADODB.Recordset")
Set rsCornerStone6 = Server.CreateObject("ADODB.Recordset")
Set rsCornerStone7 = Server.CreateObject("ADODB.Recordset")
Set rsCornerStone8 = Server.CreateObject("ADODB.Recordset")
Set rsCornerStone9 = Server.CreateObject("ADODB.Recordset")
Set rsCornerStone10 = Server.CreateObject("ADODB.Recordset")
Set rsCornerStone11 = Server.CreateObject("ADODB.Recordset")
Set rsCornerStone12 = Server.CreateObject("ADODB.Recordset")
Set rsCornerStone1= getChartData("1000020","1",strYear)
Set rsCornerStone2= getChartData("1000020","2",strYear)
Set rsCornerStone3= getChartData("1000020","3",strYear)
Set rsCornerStone4= getChartData("1000020","4",strYear)
Set rsCornerStone5= getChartData("1000020","5",strYear)
Set rsCornerStone6= getChartData("1000020","6",strYear)
Set rsCornerStone7= getChartData("1000020","7",strYear)
Set rsCornerStone8= getChartData("1000020","8",strYear)
Set rsCornerStone9= getChartData("1000020","9",strYear)
Set rsCornerStone10= getChartData("1000020","10",strYear)
Set rsCornerStone11= getChartData("1000020","11",strYear)
Set rsCornerStone12= getChartData("1000020","12",strYear)
a = Array("Jan", "Feb", "Mar", "Apr", "May", "June", "July", "Aug", "Sep", "Oct", "Nov", "Dec") ', "Belgium", "Greenland")
b = Array(dataNull(rsAmf1.Fields(0)), dataNull(rsAmf2.Fields(0)), dataNull(rsAmf3.Fields(0)), dataNull(rsAmf4.Fields(0)), dataNull(rsAmf5.Fields(0)), dataNull(rsAmf6.Fields(0)), dataNull(rsAmf7.Fields(0)), dataNull(rsAmf8.Fields(0)), dataNull(rsAmf9.Fields(0)), dataNull(rsAmf10.Fields(0)), dataNull(rsAmf11.Fields(0)), dataNull(rsAmf12.Fields(0)))
h = Array(dataNull(rsDelarue1.Fields(0)), dataNull(rsDelarue2.Fields(0)), dataNull(rsDelarue3.Fields(0)), dataNull(rsDelarue4.Fields(0)), dataNull(rsDelarue5.Fields(0)), dataNull(rsDelarue6.Fields(0)), dataNull(rsDelarue7.Fields(0)), dataNull(rsDelarue8.Fields(0)), dataNull(rsDelarue9.Fields(0)), dataNull(rsDelarue10.Fields(0)), dataNull(rsDelarue11.Fields(0)), dataNull(rsDelarue12.Fields(0)))
i = Array(dataNull(rsDhi1.Fields(0)), dataNull(rsDhi2.Fields(0)), dataNull(rsDhi3.Fields(0)), dataNull(rsDhi4.Fields(0)), dataNull(rsDhi5.Fields(0)), dataNull(rsDhi6.Fields(0)), dataNull(rsDhi7.Fields(0)), dataNull(rsDhi8.Fields(0)), dataNull(rsDhi9.Fields(0)), dataNull(rsDhi10.Fields(0)), dataNull(rsDhi11.Fields(0)), dataNull(rsDhi12.Fields(0)))
j = Array(dataNull(rsMnc1.Fields(0)), dataNull(rsMnc2.Fields(0)), dataNull(rsMnc3.Fields(0)), dataNull(rsMnc4.Fields(0)), dataNull(rsMnc5.Fields(0)), dataNull(rsMnc6.Fields(0)), dataNull(rsMnc7.Fields(0)), dataNull(rsMnc8.Fields(0)), dataNull(rsMnc9.Fields(0)), dataNull(rsMnc10.Fields(0)), dataNull(rsMnc11.Fields(0)), dataNull(rsMnc12.Fields(0)))
k = Array(dataNull(rsPowerone1.Fields(0)), dataNull(rsPowerone2.Fields(0)), dataNull(rsPowerone3.Fields(0)), dataNull(rsPowerone4.Fields(0)), dataNull(rsPowerone5.Fields(0)), dataNull(rsPowerone6.Fields(0)), dataNull(rsPowerone7.Fields(0)), dataNull(rsPowerone8.Fields(0)), dataNull(rsPowerone9.Fields(0)), dataNull(rsPowerone10.Fields(0)), dataNull(rsPowerone11.Fields(0)), dataNull(rsPowerone12.Fields(0)))
l = Array(dataNull(rsTraulsen1.Fields(0)), dataNull(rsTraulsen2.Fields(0)), dataNull(rsTraulsen3.Fields(0)), dataNull(rsTraulsen4.Fields(0)), dataNull(rsTraulsen5.Fields(0)), dataNull(rsTraulsen6.Fields(0)), dataNull(rsTraulsen7.Fields(0)), dataNull(rsTraulsen8.Fields(0)), dataNull(rsTraulsen9.Fields(0)), dataNull(rsTraulsen10.Fields(0)), dataNull(rsTraulsen11.Fields(0)), dataNull(rsTraulsen12.Fields(0)))
m = Array(dataNull(rsWinsystem1.Fields(0)), dataNull(rsWinsystem2.Fields(0)), dataNull(rsWinsystem3.Fields(0)), dataNull(rsWinsystem4.Fields(0)), dataNull(rsWinsystem5.Fields(0)), dataNull(rsWinsystem6.Fields(0)), dataNull(rsWinsystem7.Fields(0)), dataNull(rsWinsystem8.Fields(0)), dataNull(rsWinsystem9.Fields(0)), dataNull(rsWinsystem10.Fields(0)), dataNull(rsWinsystem11.Fields(0)), dataNull(rsWinsystem12.Fields(0)))
n = Array(dataNull(rsOnasset1.Fields(0)), dataNull(rsOnasset2.Fields(0)), dataNull(rsOnasset3.Fields(0)), dataNull(rsOnasset4.Fields(0)), dataNull(rsOnasset5.Fields(0)), dataNull(rsOnasset6.Fields(0)), dataNull(rsOnasset7.Fields(0)), dataNull(rsOnasset8.Fields(0)), dataNull(rsOnasset9.Fields(0)), dataNull(rsOnasset10.Fields(0)), dataNull(rsOnasset11.Fields(0)), dataNull(rsOnasset12.Fields(0)))
o = Array(dataNull(rsCornerStone1.Fields(0)), dataNull(rsCornerStone2.Fields(0)), dataNull(rsCornerStone3.Fields(0)), dataNull(rsCornerStone4.Fields(0)), dataNull(rsCornerStone5.Fields(0)), dataNull(rsCornerStone6.Fields(0)), dataNull(rsCornerStone7.Fields(0)), dataNull(rsCornerStone8.Fields(0)), dataNull(rsCornerStone9.Fields(0)), dataNull(rsCornerStone10.Fields(0)), dataNull(rsCornerStone11.Fields(0)), dataNull(rsCornerStone12.Fields(0)))
%>
<table style="border-collapse: collapse" cellSpacing="1" cellPadding="1" border=".5" width="80%" align="center">
<tr>
<td width="15%" align="center"><img SRC="../images/button_back.gif" width="20" Height="15px" onclick="preViousYear('previous');"></td>
<td width="8%" align="center" style="HEIGHT: 18px;font-size:12pt;color:blue"><b><%=strYear%></font></td>
<td width="15%" align="center"><img SRC="../images/button_forward.gif" width="20px" Height="15px" onclick="nextYear('next');"></td>
</tr>
</table>
<%
Dim objGraph
Set objGraph = New PureAspGraph 'PureAspGraph , Performance
Call objGraph.setTitle("Sales Performance")
'Adds data
Call objGraph.setData(a, b)
Call objGraph.addData(h)
Call objGraph.addData(i)
Call objGraph.addData(j)
Call objGraph.addData(k)
Call objGraph.addData(l)
Call objGraph.addData(m)
'Adds descriptions
Call objGraph.addLabel("ALL Metals")
Call objGraph.addLabel("De La Rue")
Call objGraph.addLabel("DHI")
Call objGraph.addLabel("MNC")
Call objGraph.addLabel("Power One")
Call objGraph.addLabel("Onasset")
Call objGraph.addLabel("Traulsen")
Call objGraph.addLabel("Winsystems")
Call objGraph.addLabel("Corner Stone")
' Call objGraph.addLabel("Data 1")
' Call objGraph.addLabel("Data 2")
' Call objGraph.addLabel("Data 3")
' Call objGraph.addLabel("Data 4")
' Call objGraph.addLabel("Data 5")
' Call objGraph.addLabel("Data 6")
Call objGraph.setType(2)
Call objGraph.setBarWidth(10)
Call objGraph.print()
Response.Write "This is the scale of * 1000"
set rsTraulsen1=nothing
set rsTraulsen2=nothing
set rsTraulsen3=nothing
set rsTraulsen4=nothing
set rsTraulsen5=nothing
set rsTraulsen6=nothing
set rsTraulsen7=nothing
set rsTraulsen8=nothing
set rsTraulsen9=nothing
set rsTraulsen10=nothing
set rsTraulsen11=nothing
set rsTraulsen12=nothing
set rsDelarue1=nothing
set rsDelarue2=nothing
set rsDelarue3=nothing
set rsDelarue4=nothing
set rsDelarue5=nothing
set rsDelarue6=nothing
set rsDelarue7=nothing
set rsDelarue8=nothing
set rsDelarue9=nothing
set rsDelarue10=nothing
set rsDelarue11=nothing
set rsDelarue12=nothing
set rsDhi1=nothing
set rsDhi2=nothing
set rsDhi3=nothing
set rsDhi4=nothing
set rsDhi5=nothing
set rsDhi6=nothing
set rsDhi7=nothing
set rsDhi8=nothing
set rsDhi9=nothing
set rsDhi10=nothing
set rsDhi11=nothing
set rsDhi12=nothing
set rsMnc1=nothing
set rsMnc2=nothing
set rsMnc3=nothing
set rsMnc4=nothing
set rsMnc5=nothing
set rsMnc6=nothing
set rsMnc7=nothing
set rsMnc8=nothing
set rsMnc9=nothing
set rsMnc10=nothing
set rsMnc11=nothing
set rsMnc12=nothing
set rsPowerone1=nothing
set rsPowerone2=nothing
set rsPowerone3=nothing
set rsPowerone4=nothing
set rsPowerone5=nothing
set rsPowerone6=nothing
set rsPowerone7=nothing
set rsPowerone8=nothing
set rsPowerone9=nothing
set rsPowerone10=nothing
set rsPowerone11=nothing
set rsPowerone12=nothing
set rsAmf1=nothing
set rsAmf2=nothing
set rsAmf3=nothing
set rsAmf4=nothing
set rsAmf5=nothing
set rsAmf6=nothing
set rsAmf7=nothing
set rsAmf8=nothing
set rsAmf9=nothing
set rsAmf10=nothing
set rsAmf11=nothing
set rsAmf12=nothing
set rsOnasset1=nothing
set rsOnasset2=nothing
set rsOnasset3=nothing
set rsOnasset4=nothing
set rsOnasset5=nothing
set rsOnasset6=nothing
set rsOnasset7=nothing
set rsOnasset8=nothing
set rsOnasset9=nothing
set rsOnasset10=nothing
set rsOnasset11=nothing
set rsOnasset12=nothing
set rsCornerStone1=nothing
set rsCornerStone2=nothing
set rsCornerStone3=nothing
set rsCornerStone4=nothing
set rsCornerStone5=nothing
set rsCornerStone6=nothing
set rsCornerStone7=nothing
set rsCornerStone8=nothing
set rsCornerStone9=nothing
set rsCornerStone10=nothing
set rsCornerStone11=nothing
set rsCornerStone12=nothing
set objGraph=nothing
%>
</body>
</html>
%>
<%
Dim a, b
Dim h, i, j, k, l, m, n, o
dim rsTraulsen1,rsTraulsen2,rsTraulsen3,rsTraulsen4,rsTraulsen5,rsTraulsen6,rsTraulsen7,rsTraulsen8,rsTraulsen9,rsTraulsen10,rsTraulsen11,rsTraulsen12
dim rsDelarue1,rsDelarue2,rsDelarue3,rsDelarue4,rsDelarue5,rsDelarue6,rsDelarue7,rsDelarue8,rsDelarue9,rsDelarue10,rsDelarue11,rsDelarue12
dim rsDhi1,rsDhi2,rsDhi3,rsDhi4,rsDhi5,rsDhi6,rsDhi7,rsDhi8,rsDhi9,rsDhi10,rsDhi11,rsDhi12
dim rsMnc1,rsMnc2,rsMnc3,rsMnc4,rsMnc5,rsMnc6,rsMnc7,rsMnc8,rsMnc9,rsMnc10,rsMnc11,rsMnc12
dim rsPowerone1,rsPowerone2,rsPowerone3,rsPowerone4,rsPowerone5,rsPowerone6,rsPowerone7,rsPowerone8,rsPowerone9,rsPowerone10,rsPowerone11,rsPowerone12
dim rsAmf1,rsAmf2,rsAmf3,rsAmf4,rsAmf5,rsAmf6,rsAmf7,rsAmf8,rsAmf9,rsAmf10,rsAmf11,rsAmf12
dim rsWinsystem1,rsWinsystem2,rsWinsystem3,rsWinsystem4,rsWinsystem5,rsWinsystem6,rsWinsystem7,rsWinsystem8,rsWinsystem9,rsWinsystem10,rsWinsystem11,rsWinsystem12
dim rsOnasset1,rsOnasset2,rsOnasset3,rsOnasset4,rsOnasset5,rsOnasset6,rsOnasset7,rsOnasset8,rsOnasset9,rsOnasset10,rsOnasset11,rsOnasset12
dim rsCornerStone1,rsCornerStone2,rsCornerStone3,rsCornerStone4,rsCornerStone5,rsCornerStone6,rsCornerStone7,rsCornerStone8,rsCornerStone9,rsCornerStone10,rsCornerStone11,rsCornerStone12
dim strYear
strYear=cstr(year(now))
Set rsAmf1 = Server.CreateObject("ADODB.Recordset")
Set rsAmf2 = Server.CreateObject("ADODB.Recordset")
Set rsAmf3 = Server.CreateObject("ADODB.Recordset")
Set rsAmf4 = Server.CreateObject("ADODB.Recordset")
Set rsAmf5 = Server.CreateObject("ADODB.Recordset")
Set rsAmf6 = Server.CreateObject("ADODB.Recordset")
Set rsAmf7 = Server.CreateObject("ADODB.Recordset")
Set rsAmf8 = Server.CreateObject("ADODB.Recordset")
Set rsAmf9 = Server.CreateObject("ADODB.Recordset")
Set rsAmf10 = Server.CreateObject("ADODB.Recordset")
Set rsAmf11 = Server.CreateObject("ADODB.Recordset")
Set rsAmf12 = Server.CreateObject("ADODB.Recordset")
Set rsMnc1= getChartData("1000015","1",strYear)
Set rsMnc2= getChartData("1000015","2",strYear)
Set rsMnc3= getChartData("1000015","3",strYear)
Set rsMnc4= getChartData("1000015","4",strYear)
Set rsMnc5= getChartData("1000015","5",strYear)
Set rsMnc6= getChartData("1000015","6",strYear)
Set rsMnc7= getChartData("1000015","7",strYear)
Set rsMnc8= getChartData("1000015","8",strYear)
Set rsMnc9= getChartData("1000015","9",strYear)
Set rsMnc10=getChartData("1000015","10",strYear)
Set rsMnc11=getChartData("1000015","11",strYear)
Set rsMnc12= getChartData("1000015","12",strYear)
Set rsAmf1 = Server.CreateObject("ADODB.Recordset")
Set rsAmf2 = Server.CreateObject("ADODB.Recordset")
Set rsAmf3 = Server.CreateObject("ADODB.Recordset")
Set rsAmf4 = Server.CreateObject("ADODB.Recordset")
Set rsAmf5 = Server.CreateObject("ADODB.Recordset")
Set rsAmf6 = Server.CreateObject("ADODB.Recordset")
Set rsAmf7 = Server.CreateObject("ADODB.Recordset")
Set rsAmf8 = Server.CreateObject("ADODB.Recordset")
Set rsAmf9 = Server.CreateObject("ADODB.Recordset")
Set rsAmf10 = Server.CreateObject("ADODB.Recordset")
Set rsAmf11 = Server.CreateObject("ADODB.Recordset")
Set rsAmf12 = Server.CreateObject("ADODB.Recordset")
Set rsAmf1= getChartData("1000024","1",strYear)
Set rsAmf2= getChartData("1000024","2",strYear)
Set rsAmf3= getChartData("1000024","3",strYear)
Set rsAmf4= getChartData("1000024","4",strYear)
Set rsAmf5= getChartData("1000024","5",strYear)
Set rsAmf6= getChartData("1000024","6",strYear)
Set rsAmf7= getChartData("1000024","7",strYear)
Set rsAmf8= getChartData("1000024","8",strYear)
Set rsAmf9= getChartData("1000024","9",strYear)
Set rsAmf10=getChartData("1000024","10",strYear)
Set rsAmf11=getChartData("1000024","11",strYear)
Set rsAmf12= getChartData("1000024","12",strYear)
Set rsTraulsen1 = Server.CreateObject("ADODB.Recordset")
Set rsTraulsen2 = Server.CreateObject("ADODB.Recordset")
Set rsTraulsen3 = Server.CreateObject("ADODB.Recordset")
Set rsTraulsen4 = Server.CreateObject("ADODB.Recordset")
Set rsTraulsen5 = Server.CreateObject("ADODB.Recordset")
Set rsTraulsen6 = Server.CreateObject("ADODB.Recordset")
Set rsTraulsen7 = Server.CreateObject("ADODB.Recordset")
Set rsTraulsen8 = Server.CreateObject("ADODB.Recordset")
Set rsTraulsen9 = Server.CreateObject("ADODB.Recordset")
Set rsTraulsen10 = Server.CreateObject("ADODB.Recordset")
Set rsTraulsen11 = Server.CreateObject("ADODB.Recordset")
Set rsTraulsen12 = Server.CreateObject("ADODB.Recordset")
Set rsTraulsen1= getChartData("100003","1",strYear)
Set rsTraulsen2= getChartData("100003","2",strYear)
Set rsTraulsen3= getChartData("100003","3",strYear)
Set rsTraulsen4= getChartData("100003","4",strYear)
Set rsTraulsen5= getChartData("100003","5",strYear)
Set rsTraulsen6= getChartData("100003","6",strYear)
Set rsTraulsen7= getChartData("100003","7",strYear)
Set rsTraulsen8= getChartData("100003","8",strYear)
Set rsTraulsen9= getChartData("100003","9",strYear)
Set rsTraulsen10= getChartData("100003","10",strYear)
Set rsTraulsen11= getChartData("100003","11",strYear)
Set rsTraulsen12= getChartData("100003","12",strYear)
Set rsDelarue1 = Server.CreateObject("ADODB.Recordset")
Set rsDelarue2 = Server.CreateObject("ADODB.Recordset")
Set rsDelarue3 = Server.CreateObject("ADODB.Recordset")
Set rsDelarue4 = Server.CreateObject("ADODB.Recordset")
Set rsDelarue5 = Server.CreateObject("ADODB.Recordset")
Set rsDelarue6 = Server.CreateObject("ADODB.Recordset")
Set rsDelarue7 = Server.CreateObject("ADODB.Recordset")
Set rsDelarue8 = Server.CreateObject("ADODB.Recordset")
Set rsDelarue9 = Server.CreateObject("ADODB.Recordset")
Set rsDelarue10 = Server.CreateObject("ADODB.Recordset")
Set rsDelarue11 = Server.CreateObject("ADODB.Recordset")
Set rsDelarue12 = Server.CreateObject("ADODB.Recordset")
Set rsDelarue1= getChartData("1000014","1",strYear)
Set rsDelarue2= getChartData("1000014","2",strYear)
Set rsDelarue3= getChartData("1000014","3",strYear)
Set rsDelarue4= getChartData("1000014","4",strYear)
Set rsDelarue5= getChartData("1000014","5",strYear)
Set rsDelarue6= getChartData("1000014","6",strYear)
Set rsDelarue7= getChartData("1000014","7",strYear)
Set rsDelarue8= getChartData("1000014","8",strYear)
Set rsDelarue9= getChartData("1000014","9",strYear)
Set rsDelarue10= getChartData("1000014","10",strYear)
Set rsDelarue11= getChartData("1000014","11",strYear)
Set rsDelarue12= getChartData("1000014","12",strYear)
Set rsPowerone1 = Server.CreateObject("ADODB.Recordset")
Set rsPowerone2 = Server.CreateObject("ADODB.Recordset")
Set rsPowerone3 = Server.CreateObject("ADODB.Recordset")
Set rsPowerone4 = Server.CreateObject("ADODB.Recordset")
Set rsPowerone5 = Server.CreateObject("ADODB.Recordset")
Set rsPowerone6 = Server.CreateObject("ADODB.Recordset")
Set rsPowerone7 = Server.CreateObject("ADODB.Recordset")
Set rsPowerone8 = Server.CreateObject("ADODB.Recordset")
Set rsPowerone9 = Server.CreateObject("ADODB.Recordset")
Set rsPowerone10 = Server.CreateObject("ADODB.Recordset")
Set rsPowerone11 = Server.CreateObject("ADODB.Recordset")
Set rsPowerone12 = Server.CreateObject("ADODB.Recordset")
Set rsPowerone1= getChartData("10000","1",strYear)
Set rsPowerone2= getChartData("10000","2",strYear)
Set rsPowerone3= getChartData("10000","3",strYear)
Set rsPowerone4= getChartData("10000","4",strYear)
Set rsPowerone5= getChartData("10000","5",strYear)
Set rsPowerone6= getChartData("10000","6",strYear)
Set rsPowerone7= getChartData("10000","7",strYear)
Set rsPowerone8= getChartData("10000","8",strYear)
Set rsPowerone9= getChartData("10000","9",strYear)
Set rsPowerone10= getChartData("10000","10",strYear)
Set rsPowerone11= getChartData("10000","11",strYear)
Set rsPowerone12= getChartData("10000","12",strYear)
Set rsDhi1 = Server.CreateObject("ADODB.Recordset")
Set rsDhi2 = Server.CreateObject("ADODB.Recordset")
Set rsDhi3 = Server.CreateObject("ADODB.Recordset")
Set rsDhi4 = Server.CreateObject("ADODB.Recordset")
Set rsDhi5 = Server.CreateObject("ADODB.Recordset")
Set rsDhi6 = Server.CreateObject("ADODB.Recordset")
Set rsDhi7 = Server.CreateObject("ADODB.Recordset")
Set rsDhi8 = Server.CreateObject("ADODB.Recordset")
Set rsDhi9 = Server.CreateObject("ADODB.Recordset")
Set rsDhi10 = Server.CreateObject("ADODB.Recordset")
Set rsDhi11 = Server.CreateObject("ADODB.Recordset")
Set rsDhi12 = Server.CreateObject("ADODB.Recordset")
Set rsDhi1= getChartData("100004","1",strYear)
Set rsDhi2= getChartData("100004","2",strYear)
Set rsDhi3= getChartData("100004","3",strYear)
Set rsDhi4= getChartData("100004","4",strYear)
Set rsDhi5= getChartData("100004","5",strYear)
Set rsDhi6= getChartData("100004","6",strYear)
Set rsDhi7= getChartData("100004","7",strYear)
Set rsDhi8= getChartData("100004","8",strYear)
Set rsDhi9= getChartData("100004","9",strYear)
Set rsDhi10= getChartData("100004","10",strYear)
Set rsDhi11= getChartData("100004","11",strYear)
Set rsDhi12= getChartData("100004","12",strYear)
Set rsWinsystem1 = Server.CreateObject("ADODB.Recordset")
Set rsWinsystem2 = Server.CreateObject("ADODB.Recordset")
Set rsWinsystem3 = Server.CreateObject("ADODB.Recordset")
Set rsWinsystem4 = Server.CreateObject("ADODB.Recordset")
Set rsWinsystem5 = Server.CreateObject("ADODB.Recordset")
Set rsWinsystem6 = Server.CreateObject("ADODB.Recordset")
Set rsWinsystem7 = Server.CreateObject("ADODB.Recordset")
Set rsWinsystem8 = Server.CreateObject("ADODB.Recordset")
Set rsWinsystem9 = Server.CreateObject("ADODB.Recordset")
Set rsWinsystem10 = Server.CreateObject("ADODB.Recordset")
Set rsWinsystem11 = Server.CreateObject("ADODB.Recordset")
Set rsWinsystem12 = Server.CreateObject("ADODB.Recordset")
Set rsWinsystem1= getChartData("100002","1",strYear)
Set rsWinsystem2= getChartData("100002","2",strYear)
Set rsWinsystem3= getChartData("100002","3",strYear)
Set rsWinsystem4= getChartData("100002","4",strYear)
Set rsWinsystem5= getChartData("100002","5",strYear)
Set rsWinsystem6= getChartData("100002","6",strYear)
Set rsWinsystem7= getChartData("100002","7",strYear)
Set rsWinsystem8= getChartData("100002","8",strYear)
Set rsWinsystem9= getChartData("100002","9",strYear)
Set rsWinsystem10= getChartData("100002","10",strYear)
Set rsWinsystem11= getChartData("100002","11",strYear)
Set rsWinsystem12= getChartData("100002","12",strYear)
Set rsOnasset1 = Server.CreateObject("ADODB.Recordset")
Set rsOnasset2 = Server.CreateObject("ADODB.Recordset")
Set rsOnasset3 = Server.CreateObject("ADODB.Recordset")
Set rsOnasset4 = Server.CreateObject("ADODB.Recordset")
Set rsOnasset5 = Server.CreateObject("ADODB.Recordset")
Set rsOnasset6 = Server.CreateObject("ADODB.Recordset")
Set rsOnasset7 = Server.CreateObject("ADODB.Recordset")
Set rsOnasset8 = Server.CreateObject("ADODB.Recordset")
Set rsOnasset9 = Server.CreateObject("ADODB.Recordset")
Set rsOnasset10 = Server.CreateObject("ADODB.Recordset")
Set rsOnasset11 = Server.CreateObject("ADODB.Recordset")
Set rsOnasset12 = Server.CreateObject("ADODB.Recordset")
Set rsOnasset1= getChartData("1000017","1",strYear)
Set rsOnasset2= getChartData("1000017","2",strYear)
Set rsOnasset3= getChartData("1000017","3",strYear)
Set rsOnasset4= getChartData("1000017","4",strYear)
Set rsOnasset5= getChartData("1000017","5",strYear)
Set rsOnasset6= getChartData("1000017","6",strYear)
Set rsOnasset7= getChartData("1000017","7",strYear)
Set rsOnasset8= getChartData("1000017","8",strYear)
Set rsOnasset9= getChartData("1000017","9",strYear)
Set rsOnasset10= getChartData("1000017","10",strYear)
Set rsOnasset11= getChartData("1000017","11",strYear)
Set rsOnasset12= getChartData("1000017","12",strYear)
Set rsCornerStone1 = Server.CreateObject("ADODB.Recordset")
Set rsCornerStone2 = Server.CreateObject("ADODB.Recordset")
Set rsCornerStone3 = Server.CreateObject("ADODB.Recordset")
Set rsCornerStone4 = Server.CreateObject("ADODB.Recordset")
Set rsCornerStone5 = Server.CreateObject("ADODB.Recordset")
Set rsCornerStone6 = Server.CreateObject("ADODB.Recordset")
Set rsCornerStone7 = Server.CreateObject("ADODB.Recordset")
Set rsCornerStone8 = Server.CreateObject("ADODB.Recordset")
Set rsCornerStone9 = Server.CreateObject("ADODB.Recordset")
Set rsCornerStone10 = Server.CreateObject("ADODB.Recordset")
Set rsCornerStone11 = Server.CreateObject("ADODB.Recordset")
Set rsCornerStone12 = Server.CreateObject("ADODB.Recordset")
Set rsCornerStone1= getChartData("1000020","1",strYear)
Set rsCornerStone2= getChartData("1000020","2",strYear)
Set rsCornerStone3= getChartData("1000020","3",strYear)
Set rsCornerStone4= getChartData("1000020","4",strYear)
Set rsCornerStone5= getChartData("1000020","5",strYear)
Set rsCornerStone6= getChartData("1000020","6",strYear)
Set rsCornerStone7= getChartData("1000020","7",strYear)
Set rsCornerStone8= getChartData("1000020","8",strYear)
Set rsCornerStone9= getChartData("1000020","9",strYear)
Set rsCornerStone10= getChartData("1000020","10",strYear)
Set rsCornerStone11= getChartData("1000020","11",strYear)
Set rsCornerStone12= getChartData("1000020","12",strYear)
a = Array("Jan", "Feb", "Mar", "Apr", "May", "June", "July", "Aug", "Sep", "Oct", "Nov", "Dec") ', "Belgium", "Greenland")
b = Array(dataNull(rsAmf1.Fields(0)), dataNull(rsAmf2.Fields(0)), dataNull(rsAmf3.Fields(0)), dataNull(rsAmf4.Fields(0)), dataNull(rsAmf5.Fields(0)), dataNull(rsAmf6.Fields(0)), dataNull(rsAmf7.Fields(0)), dataNull(rsAmf8.Fields(0)), dataNull(rsAmf9.Fields(0)), dataNull(rsAmf10.Fields(0)), dataNull(rsAmf11.Fields(0)), dataNull(rsAmf12.Fields(0)))
h = Array(dataNull(rsDelarue1.Fields(0)), dataNull(rsDelarue2.Fields(0)), dataNull(rsDelarue3.Fields(0)), dataNull(rsDelarue4.Fields(0)), dataNull(rsDelarue5.Fields(0)), dataNull(rsDelarue6.Fields(0)), dataNull(rsDelarue7.Fields(0)), dataNull(rsDelarue8.Fields(0)), dataNull(rsDelarue9.Fields(0)), dataNull(rsDelarue10.Fields(0)), dataNull(rsDelarue11.Fields(0)), dataNull(rsDelarue12.Fields(0)))
i = Array(dataNull(rsDhi1.Fields(0)), dataNull(rsDhi2.Fields(0)), dataNull(rsDhi3.Fields(0)), dataNull(rsDhi4.Fields(0)), dataNull(rsDhi5.Fields(0)), dataNull(rsDhi6.Fields(0)), dataNull(rsDhi7.Fields(0)), dataNull(rsDhi8.Fields(0)), dataNull(rsDhi9.Fields(0)), dataNull(rsDhi10.Fields(0)), dataNull(rsDhi11.Fields(0)), dataNull(rsDhi12.Fields(0)))
j = Array(dataNull(rsMnc1.Fields(0)), dataNull(rsMnc2.Fields(0)), dataNull(rsMnc3.Fields(0)), dataNull(rsMnc4.Fields(0)), dataNull(rsMnc5.Fields(0)), dataNull(rsMnc6.Fields(0)), dataNull(rsMnc7.Fields(0)), dataNull(rsMnc8.Fields(0)), dataNull(rsMnc9.Fields(0)), dataNull(rsMnc10.Fields(0)), dataNull(rsMnc11.Fields(0)), dataNull(rsMnc12.Fields(0)))
k = Array(dataNull(rsPowerone1.Fields(0)), dataNull(rsPowerone2.Fields(0)), dataNull(rsPowerone3.Fields(0)), dataNull(rsPowerone4.Fields(0)), dataNull(rsPowerone5.Fields(0)), dataNull(rsPowerone6.Fields(0)), dataNull(rsPowerone7.Fields(0)), dataNull(rsPowerone8.Fields(0)), dataNull(rsPowerone9.Fields(0)), dataNull(rsPowerone10.Fields(0)), dataNull(rsPowerone11.Fields(0)), dataNull(rsPowerone12.Fields(0)))
l = Array(dataNull(rsTraulsen1.Fields(0)), dataNull(rsTraulsen2.Fields(0)), dataNull(rsTraulsen3.Fields(0)), dataNull(rsTraulsen4.Fields(0)), dataNull(rsTraulsen5.Fields(0)), dataNull(rsTraulsen6.Fields(0)), dataNull(rsTraulsen7.Fields(0)), dataNull(rsTraulsen8.Fields(0)), dataNull(rsTraulsen9.Fields(0)), dataNull(rsTraulsen10.Fields(0)), dataNull(rsTraulsen11.Fields(0)), dataNull(rsTraulsen12.Fields(0)))
m = Array(dataNull(rsWinsystem1.Fields(0)), dataNull(rsWinsystem2.Fields(0)), dataNull(rsWinsystem3.Fields(0)), dataNull(rsWinsystem4.Fields(0)), dataNull(rsWinsystem5.Fields(0)), dataNull(rsWinsystem6.Fields(0)), dataNull(rsWinsystem7.Fields(0)), dataNull(rsWinsystem8.Fields(0)), dataNull(rsWinsystem9.Fields(0)), dataNull(rsWinsystem10.Fields(0)), dataNull(rsWinsystem11.Fields(0)), dataNull(rsWinsystem12.Fields(0)))
n = Array(dataNull(rsOnasset1.Fields(0)), dataNull(rsOnasset2.Fields(0)), dataNull(rsOnasset3.Fields(0)), dataNull(rsOnasset4.Fields(0)), dataNull(rsOnasset5.Fields(0)), dataNull(rsOnasset6.Fields(0)), dataNull(rsOnasset7.Fields(0)), dataNull(rsOnasset8.Fields(0)), dataNull(rsOnasset9.Fields(0)), dataNull(rsOnasset10.Fields(0)), dataNull(rsOnasset11.Fields(0)), dataNull(rsOnasset12.Fields(0)))
o = Array(dataNull(rsCornerStone1.Fields(0)), dataNull(rsCornerStone2.Fields(0)), dataNull(rsCornerStone3.Fields(0)), dataNull(rsCornerStone4.Fields(0)), dataNull(rsCornerStone5.Fields(0)), dataNull(rsCornerStone6.Fields(0)), dataNull(rsCornerStone7.Fields(0)), dataNull(rsCornerStone8.Fields(0)), dataNull(rsCornerStone9.Fields(0)), dataNull(rsCornerStone10.Fields(0)), dataNull(rsCornerStone11.Fields(0)), dataNull(rsCornerStone12.Fields(0)))
%>
 |
<%=strYear%> |
 |
<%
Dim objGraph
Set objGraph = New PureAspGraph 'PureAspGraph , Performance
Call objGraph.setTitle("Sales Performance")
'Adds data
Call objGraph.setData(a, b)
Call objGraph.addData(h)
Call objGraph.addData(i)
Call objGraph.addData(j)
Call objGraph.addData(k)
Call objGraph.addData(l)
Call objGraph.addData(m)
'Adds descriptions
Call objGraph.addLabel("ALL Metals")
Call objGraph.addLabel("De La Rue")
Call objGraph.addLabel("DHI")
Call objGraph.addLabel("MNC")
Call objGraph.addLabel("Power One")
Call objGraph.addLabel("Onasset")
Call objGraph.addLabel("Traulsen")
Call objGraph.addLabel("Winsystems")
Call objGraph.addLabel("Corner Stone")
' Call objGraph.addLabel("Data 1")
' Call objGraph.addLabel("Data 2")
' Call objGraph.addLabel("Data 3")
' Call objGraph.addLabel("Data 4")
' Call objGraph.addLabel("Data 5")
' Call objGraph.addLabel("Data 6")
Call objGraph.setType(2)
Call objGraph.setBarWidth(10)
Call objGraph.print()
Response.Write "This is the scale of * 1000"
set rsTraulsen1=nothing
set rsTraulsen2=nothing
set rsTraulsen3=nothing
set rsTraulsen4=nothing
set rsTraulsen5=nothing
set rsTraulsen6=nothing
set rsTraulsen7=nothing
set rsTraulsen8=nothing
set rsTraulsen9=nothing
set rsTraulsen10=nothing
set rsTraulsen11=nothing
set rsTraulsen12=nothing
set rsDelarue1=nothing
set rsDelarue2=nothing
set rsDelarue3=nothing
set rsDelarue4=nothing
set rsDelarue5=nothing
set rsDelarue6=nothing
set rsDelarue7=nothing
set rsDelarue8=nothing
set rsDelarue9=nothing
set rsDelarue10=nothing
set rsDelarue11=nothing
set rsDelarue12=nothing
set rsDhi1=nothing
set rsDhi2=nothing
set rsDhi3=nothing
set rsDhi4=nothing
set rsDhi5=nothing
set rsDhi6=nothing
set rsDhi7=nothing
set rsDhi8=nothing
set rsDhi9=nothing
set rsDhi10=nothing
set rsDhi11=nothing
set rsDhi12=nothing
set rsMnc1=nothing
set rsMnc2=nothing
set rsMnc3=nothing
set rsMnc4=nothing
set rsMnc5=nothing
set rsMnc6=nothing
set rsMnc7=nothing
set rsMnc8=nothing
set rsMnc9=nothing
set rsMnc10=nothing
set rsMnc11=nothing
set rsMnc12=nothing
set rsPowerone1=nothing
set rsPowerone2=nothing
set rsPowerone3=nothing
set rsPowerone4=nothing
set rsPowerone5=nothing
set rsPowerone6=nothing
set rsPowerone7=nothing
set rsPowerone8=nothing
set rsPowerone9=nothing
set rsPowerone10=nothing
set rsPowerone11=nothing
set rsPowerone12=nothing
set rsAmf1=nothing
set rsAmf2=nothing
set rsAmf3=nothing
set rsAmf4=nothing
set rsAmf5=nothing
set rsAmf6=nothing
set rsAmf7=nothing
set rsAmf8=nothing
set rsAmf9=nothing
set rsAmf10=nothing
set rsAmf11=nothing
set rsAmf12=nothing
set rsOnasset1=nothing
set rsOnasset2=nothing
set rsOnasset3=nothing
set rsOnasset4=nothing
set rsOnasset5=nothing
set rsOnasset6=nothing
set rsOnasset7=nothing
set rsOnasset8=nothing
set rsOnasset9=nothing
set rsOnasset10=nothing
set rsOnasset11=nothing
set rsOnasset12=nothing
set rsCornerStone1=nothing
set rsCornerStone2=nothing
set rsCornerStone3=nothing
set rsCornerStone4=nothing
set rsCornerStone5=nothing
set rsCornerStone6=nothing
set rsCornerStone7=nothing
set rsCornerStone8=nothing
set rsCornerStone9=nothing
set rsCornerStone10=nothing
set rsCornerStone11=nothing
set rsCornerStone12=nothing
set objGraph=nothing
%>