errore su grafico

[soundforgers]

ciao a tutti... ho qualche problemino con uno script per fare un grafico... mi restituisce questo errore:

Oggetto server error 'ASP 0177 : 800401f3'

Impossibile eseguire il metodo Server.CreateObject

/prova_graf.asp, line 6

800401f3 vi posto lo script:

<%
graf 7,"prova.gif",request.Cookies("senzaprezzo.it")("id"),"#AABFC7"
function graf(gg,img,cliente,colore)

'Creiamo l'oggetto 
	Set ChartObj = Server.CreateObject("OWC10.ChartSpace") 

	Set ChartConsts = ChartObj.Constants 
	set NewChart = Cliente
	hartObj.Charts.Add

	'Settiamo il tipo di grafico va da 0 a 65 circa con dei buchi
	NewChart.Type = 08  

	'Setto il colore di sfondo 
	NewChart.PlotArea.Interior.Color = colore
	NewChart.PlotArea.Border.Color = "#FFFFFF"
	

	'Titolo del grafico
	NewChart.HasTitle = True 
	ChartObj.HasChartSpaceTitle = True 
	ChartObj.ChartSpaceTitle.Caption = "Click ultimi " & gg & " giorni" 
	ChartObj.ChartSpaceTitle.Font.Bold = True 

	'Sotto titolo
	NewChart.Title.Caption = ""

	'Creiamo gli array che conterranno i dati da passare all'oggetto e necessari a creare il grafico 
	ReDim ARR_VISITE(gg)
	ReDim ARR_GIORNI(gg) 
	
	somma = cint(gg)-1
	inizio = dateadd("d",-somma,date())
	fine = dateadd("d",1,date())
	i = 0
	do while inizio<>fine
		inizio = cdate(inizio)
		anno = year(inizio)
		if len(month(inizio))=2 then
			mese = month(inizio)
		else
			mese = "0" & month(inizio)
		end if
		if len(day(inizio))=2 then
			giorno = day(inizio)
		else
			giorno = "0" & day(inizio)
		end if
		
		set rsg = cn.execute("SELECT sum(quanti) as sono,id_cliente,data FROM conteggi WHERE id_cliente=" & cliente & " AND data='" & anno & "-" & mese & "-" & giorno & "' GROUP BY id_cliente,data")
		'response.Write err.description
		
		if rsg.EOF then
			sono = 0
			'response.Write "NO"
		else
			sono = rsg.fields("sono")
			'response.Write "OK"
		end if
		'set rsu = cn.execute("SELECT * FROM conteggi")
		
		ARR_VISITE(i)=sono
		
		ARR_GIORNI(i)=giorno&"."&mese&"."&anno
		'response.Write ARR_GIORNI(i)
		i = i +1
		
		inizio = dateadd("d",1,cdate(inizio))
	loop
	'Passiamo i valori al grafico 
	NewChart.HasLegend = false 'Attivazione della Legenda
	'Creazione delle due serie
	Set Serie = NewChart.SeriesCollection.Add 'Prima colonna
	'Set Serie1 = NewChart.SeriesCollection.Add 'Seconda colonna

	NewChart.SeriesCollection(0).Caption = "Uniche" 'scritte della legenda x la prima serie
	'NewChart.SeriesCollection(1).Caption = "Totali" 'scritte della legenda x la seconda serie 

	Serie.SetData ChartConsts.chDimCategories, ChartConsts.chDataLiteral, ARR_GIORNI 
	
	Serie.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, ARR_VISITE 
	'Serie1.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, ARR_VISITE1 

	'Settiamo il path dell'immagine che verrà creata 
	ImagePath=server.mappath(img) 
	'Salviamo l'immagine 
	ChartObj.ExportPicture ImagePath,"gif", 500, 400 
	risposta = "[img]"& img & "[/img]"
	response.Write risposta
	set oChart=nothing 
end function
%>
qualcuno ha qualche idea?

[Roby_72]

Ma quel componente c'è installato sul server?

Roby