<% 
        ' Declarations
        Dim sFormat     ' Format (gif/png)
        Dim h           ' Composant
        Dim img         ' l image

        ' Lecture des parametres
        sFormat = Request.QueryString("format")
        if sFormat <> "png" AND sFormat <> "gif" then
           sFormat = "gif"
        end if

        ' Creation du composant
        Set h = Server.CreateObject("javaside.Rbl.acxChart") 

        ' Init. et definition de la taille de l image
        h.init 400, 300
        
        ' Definition des Polices utilisees
        h.setFontA "Dialog", 0, 8
        h.setFontTitre "Dialog", 1, 12
        h.setFontLegend "Arial", 0, 10

        ' Definitions de bases
        h.setCol(2) 
        h.addCol 0, 55255, "Triax2" 
        h.addCol 1, 255,   "Igalite"
        h.setTitle "Test acxChart ASP"
        h.setLegend "Semaine 42", "Nombre d'incidents"
        h.setRotate(true)
        h.setBkColor( -1 )

	' Definition des donnees
        h.addRow("Lun . ; 25 ; 32 ; ")
        h.addRow("Mar . ; 15 ; 21 ;")
        h.addRow("Mer . ; 20 ; 21 ;")
        h.addRow("Jeu . ; 14 ; 15 ;")
        h.addRow("Ven . ; 12 ; 16 ;")
        h.addRow("Sam . ; 15 ; 16 ;")
        h.addRow("Dim . ; 15 ; 17 ;")

	' Definition de la presentation
        h.setPress(1)

        ' On construit l image
        h.build(true)

        ' on genere l image au format desire
        if sFormat = "png" then
        	img = h.getArray(1)
        else
        	img = h.getArray(0)
        end if

        ' Liberation des ressources
        h.clear()
        Set h = nothing 

        ' ---- Response format -----------
        Response.Expires = 0 
        Response.Buffer = TRUE
        Response.Clear
        Response.contenttype = "image/" & sFormat
        Response.BinaryWrite img
        Response.End
        ' ----- End Response -------------
%>