<%
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.readData str
' You can add an external text (or other draw command)
h.setColor 0
h.drawString "genere le " & now, 8, 12
' build image (with data get in aDraw applet)
h.build()
' get image 0 => GIF 1 => PNG
img = h.getArray(0)
h.saveAs( sPath & "cook2.gif")
h.clear()
Set h = nothing
%>
|