<%
	sScriptDir = Request.ServerVariables("SCRIPT_NAME")
	sScriptDir = StrReverse(sScriptDir)
	sScriptDir = Mid(sScriptDir, InStr(1, sScriptDir, "/"))
	sScriptDir = StrReverse(sScriptDir)
	
	' Set the virtual Directory
  	sPath = Server.MapPath(sScriptDir) & "\"


	Set h = Server.CreateObject("javaside.Rbl.acxImage") 

	h.init 350, 230
	' h.newImage()

	' lecture du fichier
	' le fichier contient la definition du fond, de l'image et le texte
	h.readFile sPath & "acxImage.txt"

	' chemin absolue
	' actuellement il n est pas possible de placer cela dans le fichier
	h.loadImage sPath & "javaside.gif", 0

	' dessin du cercle
	h.setColor 255, 255, 0
	h.fillArc 20, 35, 170, 170, -50, 50

	h.setColor 240, 240, 55
	h.fillArc 20, 35, 170, 170, 0, 60

	h.setColor 210, 210, 55
	h.fillArc 20, 35, 170, 170, 60, 80

	h.setColor 180, 180, 75
	h.fillArc 20, 35, 170, 170, 140, 60

	h.setColor 160, 160, 85
	h.fillArc 20, 35, 170, 170, 200, 50

	h.setColor 250, 10, 20
	h.fillArc 21, 42, 170, 170, 250, 60
	' fin du cercle

	' On construit l image (paint suivant les donnees lu)
	h.build()

	
	' on genere l image 0 => GIF   1 => PNG
	img = h.getArray(iFormat)

	' h.saveAs( sPath & "cook2.gif")
	
	
	' ---- Response format -----------
	Response.Expires = 0 
	Response.Buffer = TRUE
	Response.Clear
	Response.contenttype = "image/" & imgFormat
	
	Response.BinaryWrite img

	Response.End
	' ----- End Response -------------

	h.clear()

	Set h = nothing 
%>