[VB/ASP] meerdere lijnen in een grafiek weergeven

[Verwijderd]

hallo,

Ik ben bezig om met behulp van ASP grafieken te tekenen vanuit een database.
De grafieken zien er al leuk uit, maar ik heb een paar problemen...

1: de code wil maar één lijn tekenen (regel 46 t/m 55 )
2: hoe verander ik de schaalverdeling van de x-as (regel 64 t/m 70 )

dit is de code:

code:

<%@ Language=VBScript %>
<%
Option Explicit
Response.Expires = -1
Response.ContentType = "image/gif"
Dim m_cn        
Dim m_rs        
Dim m_cspace        
Dim m_fso       
Dim m_objBinaryFile     
Dim sSQL                
Dim c                   
Dim cht                 
Dim ax                  
Dim fnt                 
Dim sFullFileName       

set m_cn = Server.CreateObject("ADODB.Connection")
set m_rs = Server.CreateObject("ADODB.Recordset")

m_cn.Open "provider=microsoft.jet.oledb.4.0;
data source=" & Server.MapPath(".") & "\querytabel.mdb"
sSQL = "SELECT dekooy_hirlam.fictievedatum, dekooy_hirlam.fictievetijd, 
dekooy_hirlam.t2m, dekooy_xhirlam.t2m, dekooy_debav.ta, dekooy_synops.tttt 
FROM dekooy_hirlam, dekooy_xhirlam, dekooy_debav, dekooy_synops 
WHERE ((dekooy_hirlam.fictievedatum = dekooy_xhirlam.fictievedatum) And
(dekooy_hirlam.fictievedatum = dekooy_debav.fictievedatum) And
(dekooy_hirlam.fictievedatum = dekooy_synops.datum) And 
(dekooy_hirlam.fictievetijd = dekooy_synops.tijd) And 
(dekooy_hirlam.fictievetijd = dekooy_xhirlam.fictievetijd) And
(dekooy_hirlam.fictievetijd = dekooy_debav.fictievetijd) And 
((dekooy_xhirlam.voorspeltermijn) ='+12') And
((dekooy_hirlam.voorspeltermijn) = '+12') And 
((dekooy_debav.voorspeltermijn) = '+12'))"

m_rs.CursorLocation = 3 
m_rs.Open sSQL, m_cn, 3 

set m_cspace = server.CreateObject("OWC.Chart")
set cht = m_cspace.Charts.Add()
set c = m_cspace.Constants
cht.Type = c.chChartTypeLine

cht.HasLegend = True

set m_cspace.DataSource = m_rs
cht.SetData c.chDimSeriesNames, 0, "temperatuur"
cht.SetData c.chDimCategories, 0, "dekooy_hirlam.fictievedatum"
cht.SetData c.chDimValues, 0, "dekooy_hirlam.t2m"

<------ dit doet hij dus niet------------->
cht.SetData c.chDimValues, 0, "dekooy_xhirlam.t2m"
cht.SetData c.chDimValues, 0, "dekooy_debav.ta"
cht.SetData c.chDimValues, 0, "dekooy_synops.tttt"
<------ dit doet hij dus niet------------->

cht.HasTitle = True
cht.Title.Caption = "temperatuur in " & m_sYear
set fnt = cht.Title.Font
fnt.Name = "Tahoma"
fnt.Size = 10
fnt.Bold = True

set ax = cht.Axes(c.chAxisPositionBottom)
ax.HasTitle = True
ax.Title.Caption = "datum"
set fnt = ax.Title.Font
fnt.Name = "Tahoma"
fnt.Size = 8
fnt.Bold = True

set ax = cht.Axes(c.chAxisPositionLeft)
ax.NumberFormat = ""
ax.HasTitle = True
ax.Title.Caption = "temp (*C)"
set fnt = ax.Title.Font
fnt.Name = "Tahoma"
fnt.Size = 8
fnt.Bold = True

set m_fso = CreateObject("Scripting.FileSystemObject")
sFullFileName = Server.MapPath(".") & "\" & m_fso.GetTempName()
m_cspace.ExportPicture sFullFileName, "gif", 900, 500

on error resume next

set m_objBinaryFile = server.CreateObject("BinaryFileStream.Object")
Response.BinaryWrite m_objBinaryFile.GetFileBytes(CStr(sFullFileName))

m_objBinaryFile.DeleteFile CStr(sFullFileName)
%>

Het probleem lijkt mij in de regels 46 t/m 55 en 64 t/m 70 te zitten..
Ik heb al gezocht in de archieven en google maar heb niets relevant kunnen vinden.

iemand een idee wat er niet klopt of wat erbij moet

[Verwijderd]

Niemand een idee?? ..

[gorgi_19]

Verwijderd schreef op 25 maart 2004 @ 08:53:
Niemand een idee?? ..

Ik denk dat
1. Weinig mensen zin hebben om 100 regels code te gaan doorspitten
2. Mensen iets hebben als: "Debuggen met On Error Resume Next?", dat kan beter.
3. Een aantal mensen na het intikken in Google van de woorden 'OWC.Chart multiple lines' en het bekijken van de 4e link zich afvragen wat hier mis mee is.

[ Voor 24% gewijzigd door gorgi_19 op 25-03-2004 08:59 ]

[pjvandesande]

Ben je er zelf al is met een debuger overheen gewandelt? Zijn de waardes daar wel gevult?

En net zoals gorgi_19 al aangeeft. Ik heb niet echt zin om zo even 100 regels code te gaan doospitten.

[.oisyn]

Mja, wij gaan je code niet debuggen. Lees ook eens P&W FAQ - De "quickstart"