---

Jeg har sådan en stump kode:

if request("statsid") = "" then response.redirect("empty.asp")

Sql = "select * from MainStats where StatsID = " & request("StatsID")
set rsStat = dbconn.execute(sql)

' Hent data fra StatsData - titlerne på de rå data
rawdataSql = "Select * from StatsData where StatsDataMainID = " &
rsStat("StatsID")
set rsRawHead = dbconn.execute(rawdataSql)


' Hent data til at lave Grafen med !
' Skal være en forward cursor i RecordSet !
set dbRs = server.createobject("ADODB.RecordSet")
datasql = "SELECT StatsID, StatsTitle, StatsDataPeriodDesc, SeriesTitle,
SeriesAmount " &_
"FROM (MainStats INNER JOIN StatsData ON MainStats.StatsID =
StatsData.StatsDataMainID) INNER JOIN StatsSeries ON StatsData.StatsDataID =
StatsSeries.SeriesStatsID" &_
" where StatsDataMainID = " & rsStat("StatsID")
dbRs.CursorLocation = 3
dbRs.Open dataSql, dbconn, 3

' Lav nyt Chart object
set oChart = Server.Createobject("OWC.Chart")

' Reference til konstanter
set c = oChart.Constants
' Lav nyt Chart i objektet !
set cht = oChart.Charts.Add()

' Sæt charttype udfra værdi i databasen (Tabel: MainStats Felt:
StatsChartType) !
charttype = rsStat("StatsChartType")
select case charttype
case 2 : cht.Type = c.chChartTypeLineMarkers
case 3 : cht.Type = c.chChartTypeColumnClustered
case 1 : cht.Type = c.chChartTypeBarClustered
end select

' Vis serie titler
cht.HasLegend = True

' Bind chart på recordset !
set oChart.DataSource = DbRs

'Feltet "SeriesTitle er Serienavne !
cht.Setdata c.chDimSeriesNames, 0, "SeriesTitle"

' Lav Serier fra de navngivne database felter !
for each objSeries in cht.SeriesCollection
cht.SetData c.chDimCategories, 0, "StatsDataPeriodDesc"
cht.SetData c.chDimValues, 0, "SeriesAmount"
next

' Sæt diverse titler !
cht.Hastitle = True
cht.Title.Caption = rsStat("StatsTitle")

set ax = cht.Axes(c.chAxisPositionLeft)
ax.Hastitle = True
ax.Title.Caption = rsstat("StatsYTitle")

set ax = cht.Axes(c.chAxisPositionBottom)
ax.Hastitle = True
ax.Title.Caption = rsstat("StatsXTitle")


'cht.Axes.MinimumScale = 0
'cht.Axes.MaximumScale = 100


Det helet fungere perfekt, UNDTAGEN !! MinimumScale og MaximumScale, og jeg
kan ved gud ikke få det til at virke. Det uheldige er at OWC selv beregner
en min/max, og f.eks. er der nogen af chartene der skal vise procenter, så
kunne det jo være rart at man kunne sætte dem til 0/100 som min/max værdier.

Gode råd og vejledninger modtages med kyshånd.

Kenneth Karlsson