Hej,
Her kan du se, hvordan du kan lave diagrammer. For at få dette til at virke, skal du oprette en mappe som du kalder "diagram" inde under roden på den mappe du lægger dette eksempel i.
Smilly
********************************************************************************
<html>
<head>
<title>Diagram test</title>
</head>
<body>
Diagram test<p>
<%
Diagrampath = Server.MapPath("diagram")
Dim oChart, c, Categories(5), Vals(5), i, sCaption, FSO
Set FSO = CreateObject("Scripting.FileSystemObject") 'Til at gemme dit diagram
'Generere tilfældige numre for din graf.
for i = 1 to 5
Categories(i) = "Test " & CStr(i) 'emner for din graf
Vals(i) = Rnd(100)*1000 'Værdier for din graf
next
'Opret dit diagram
Set oChart = CreateObject("OWC.Chart")
Set c = oChart.Constants
'Set the different parameters for the ChartSpace
oChart.Border.Color = c.chColorNone
'Udskriv organisations navnet
sCaption = "Diagram test"
'Tilføj værdier til dit diagram.
oChart.Charts.Add
oChart.Charts(0).Type = oChart.Constants.chChartTypeColumnClustered
oChart.Charts(0).SeriesCollection.Add
oChart.Charts(0).SeriesCollection(0).Caption = sCaption
oChart.Charts(0).SeriesCollection(0).SetData c.chDimCategories, c.chDataLiteral, Categories
oChart.Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, Vals
oChart.Charts(0).HasLegend = True
oChart.Charts(0).HasTitle = True
'Generere et tilfældigt filnavn for diagrammet.
sFname = FSO.GetTempName & session.SessionID & ".gif"
'Gem diagram som gif billede.
oChart.ExportPicture Diagrampath & "\" & sFname, "gif", 600, 512 'bredde og højde
'Udskriv dit nye diagram.
Response.Write "<img src='" & Diagrampath & "/" & sFname & "'>"
'Slet gif filen igen.
set objFolder = FSO.GetFolder(Diagrampath)
'Slet alle gif filer i din diagram folder.
'filen skal være over 10 minutter gammel før den må slettes.
for each gif in objFolder.Files
if instr(gif.Name, ".gif") > 0 and DateDiff("n", gif.DateLastModified, now) > 10 then
FSO.DeleteFile Diagrampath & "\" & gif.Name, True
end if
next
Set oChart = nothing
Set c = nothing
set FSO = nothing
%>
</body>
</html>