<% 
	Dim str, w, h
	str = Request.Form("data")
	wa   = Request.Form("w") 
	ha   = Request.Form("h") 

	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 wa, ha
	h.init 550, 291

	h.readData str

	h.loadImage sPath & "class\CN_1.gif", 0
	h.loadImage sPath & "class\s0.gif", 1
	h.loadImage sPath & "class\s1.gif", 2
	h.loadImage sPath & "class\s2.gif", 3
	h.loadImage sPath & "class\s3.gif", 4
	h.loadImage sPath & "class\s4.gif", 5
	h.loadImage sPath & "class\s5.gif", 6

'	h.setColor 0
'	h.drawString "genere le " & now, 8, 112

	' On construit l image (paint suivant les donnees lu)
	h.build()
	
	' on genere l image 0 => GIF   1 => PNG
	img = h.getArray(0)

	h.saveAs( sPath & "cook2.gif")
	
	h.clear()

	Set h = nothing 

%>
data<%=str%>