Ciao io ho questo codice:
<%
dim SQL, rs, rs1, tmp, i, count
count = 0
'Tipo = 1 - Istogramma
'Tipo = 3 - Istogramma inverito
'Tipo = 6 - Linea spezzata
'Tipo = 7 - Linea spezzata con punti
'Tipo = 12 - Linea Curva
'Tipo = 18 - Torta1
'Tipo = 19 - Torta2
'Tipo = 30 - Area piena
'Tipo = 32 - Anello
'Creiamo l'oggetto
Set ChartObj = Server.CreateObject("OWC.Chart")
Set ChartConsts = ChartObj.Constants
set NewChart = ChartObj.Charts.Add
'Settiamo il tipo di grafico
NewChart.Type = 12
' ASSE Y
i = 0
SQL = "SELECT DISTINCT(data) FROM rilevazioni ORDER BY data"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, conn, 3, 3
count = rs.RecordCount
ReDim ARR_VISITE(count)
ReDim ARR_VISITE1(count)
do while not rs.EOF
SQL = "SELECT cesio, iodio FROM rilevazioni WHERE data=#" & formatData(rs.fields("data")) & "#"
set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open SQL, conn, 3, 3
do while not rs1.EOF
ARR_VISITE(i)= rs1.fields("iodio")
ARR_VISITE1(i)= rs1.fields("cesio")
rs1.MoveNext
loop
i = i + 1
rs.MoveNext
loop
' ASSE X
i = 0
SQL = "SELECT DISTINCT(data) FROM rilevazioni ORDER BY data"
set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open SQL, conn, 3, 3
count = rs2.RecordCount
ReDim ARR_GIORNI(count)
do while not rs2.EOF
ARR_GIORNI(i) = rs2.fields("data")
i = i +1
rs2.MoveNext
loop
'Passiamo i valori al grafico
Set Serie = NewChart.SeriesCollection.Add
Serie.SetData ChartConsts.chDimCategories, ChartConsts.chDataLiteral, ARR_GIORNI
Serie.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, ARR_VISITE
'Serie.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, ARR_VISITE1
'Settiamo il path dell'immagine che verrà creata
ImagePath=server.mappath("images/report.gif")
'Salviamo l'immagine
ChartObj.ExportPicture ImagePath,"gif", 1000, 400
set oChart=nothing
%>
Che praticamente funziona e come vedete riempio l'array ARR_GIORNI che va sull'asse delle Y e l'array ARR_VISITE che traccia un grafico lineare sull'asse delle X!
Io vorrei far visualizzare anche l'array ARR_VISITE1 sull'asse delle X come si può fare?
Il codice l'ho scaricato da voi e qui si passano i valori:
Set Serie = NewChart.SeriesCollection.Add
Serie.SetData ChartConsts.chDimCategories, ChartConsts.chDataLiteral, ARR_GIORNI
Serie.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, ARR_VISITE
Serie.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, ARR_VISITE1
Però se lo metto così mi mostra solo i dati dell'array ARR_VISITE1
Daniele
http://suonerie.diddo.it/