Ciao ho questo sript

che mi restituisce questo errore

Errore di run-time di Microsoft VBScript error '800a01fa'

Classe non definita: 'PureAspGraph'

/pages/grafico/example3.asp, line 14

dove sbaglio
<%
Dim a, b
Dim h, i, j, k

a = Array("Denmark", "Germany", "Sweden", "Norway", "France", "Italy", "Iceland", "Belgium", "Greenland", "Japan")
b = Array(1490, 1007, 64, 1938, 1550, 1890, 721, 554, 450, 1450)

h = Array(1225, 1299, 687, 1571, 153, 1581, 1148, 772, 1295, 414)
i = Array(367, 457, 712, 1244, 1136, 877, 1778, 1571, 75, 790)
j = Array(339, 1486, 44, 249, 367, 694, 1043, 1875, 117, 56)
k = Array(1622, 647, 784, 1612, 784, 174, 1659, 1114, 396, 1485)

Dim objGraph
Set objGraph=New PureAspGraph
objGraph.setTitle("Demonstration 3")
Call objGraph.setYAxesTitle("Countries")
Call objGraph.setXAxesTitle("Hits per day")

Call objGraph.setData(a, b)
Call objGraph.addData(h)
Call objGraph.addData(i)
Call objGraph.addData(j)
Call objGraph.addData(k)

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.setType(0)
Call objGraph.setBarWidth(6)
Call objGraph.print()
%>