dunque questo è un esempietto su cui puoi lavorarci su...


codice:

    
				<%
				'Creiamo l'oggetto
				Set ChartObj = Server.CreateObject("OWC10.ChartSpace")
	
				Set ChartConsts = ChartObj.Constants
				set NewChart = ChartObj.Charts.Add
	
				'Settiamo il tipo di grafico, il 13 è con i puntini, il 12 senza, 1 istogramma, 46 istogramma 3D
				NewChart.Type = 0
	
				'Passiamo i valori al grafico
	
				Set Serie = NewChart.SeriesCollection.Add()

				Serie.SetData ChartConsts.chDimCategories, ChartConsts.chDataLiteral, ARR_CSZFE
	
				Serie.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, ARR_NON_CONCLUSE

				Set Serie2 = NewChart.SeriesCollection.Add()
				Serie2.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, ARR_T1
			
				Set Serie3 = NewChart.SeriesCollection.Add()
				Serie3.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, ARR_T3menoT4			
						
				'set up some additional properties
				'add and format the chart title
			
				NewChart.HasTitle = True
				NewChart.Border.Color = "#336699"	' colore del bordo della tabella
				NewChart.HasLegend = True       ' visualizza o meno la legenda
				NewChart.SeriesCollection(0).Caption = "CHIAMATE " & VbCrLf & "NON CONCLUSE" & VbCrLf & "TOTALI"   ' testo della legenda
				NewChart.SeriesCollection(1).Caption = "CHIAMATE " & VbCrLf & "NON CONCLUSE" & VbCrLf & "x FASATURA"    ' testo della legenda
				NewChart.SeriesCollection(2).Caption = "CHIAMATE " & VbCrLf & "NON CONCLUSE" & VbCrLf & "x INTERRUZIONE"   ' testo della legenda

				' TITOLO
				NewChart.Title.Caption = "Chiamate non concluse ( Fasatura + Interruzione )"
				set objFont = NewChart.Title.Font
				objFont.Name = "Verdana"
				objFont.Size = 14
				objFont.Bold = False
				objFont.Color = "#313294"

				' ASSE VERTICALE
				set objAxis = NewChart.Axes(ChartConsts.chAxisPositionBottom)
				objAxis.HasTitle = True
				objAxis.Title.Caption = "FRONT END"
				set objFont = objAxis.Title.Font
				objFont.Name = "Verdana"
				objFont.Size = 11
				objFont.Bold = False
				objFont.Color = "#313294"

				' ASSE ORIZZONTALE
				set objAxis = NewChart.Axes(ChartConsts.chAxisPositionLeft)
				'objAxis.NumberFormat = "." 
				objAxis.HasTitle = True
				objAxis.Title.Caption = "CHIAMATE NON CONCLUSE"
				set objFont = objAxis.Title.Font
				objFont.Name = "Verdana"
				objFont.Size = 11
				objFont.Bold = False
				objFont.Color = "#313294"
	
				' COLORI INTERNI DEL GRAFICO
				NewChart.PlotArea.Interior.Color = "#EAEEE9"
				NewChart.SeriesCollection(0).Interior.Color = "#336699"		' per grafico istogramma 
				NewChart.SeriesCollection(1).Interior.Color = "#D3EDF4"		' per grafico istogramma 
				NewChart.SeriesCollection(2).Interior.Color = "#EDE989"		' per grafico istogramma 
			
				NewChart.SeriesCollection(0).Line.Color = "#65B9E2"	' per grafico a linee		
			
				'Settiamo il path dell'immagine che verrà creata
				ImagePath=server.mappath(gruppo & "_AGGIORNAMENTI_CHIAMATE_NON_CONCLUSE.gif")
				'Salviamo l'immagine
				ChartObj.ExportPicture ImagePath,"gif", 600, 350
				set oChart=nothing

				response.write "[img]../images/transp.gif[/img]"

				%>

				<script> 
					<%="document.getElementById('GRAFICO_1').src='" & gruppo & "_AGGIORNAMENTI_CHIAMATE_NON_CONCLUSE.gif'"%>
				</script>