JSP speichern in ASP

Speichern mit ASP / JSP

Liebe/-r Experte/-in,
ich habe folgendes Problem.

Ich habe ein Script, wo es dem User möglich ist, Bilder auf meiner Homepage zu zeichnen. Das klappt auch alles wunderbar. Nun ist aber das Problem, das gezeichnete Bild auf meinem Server zu speichern, bzw. das Bild per Mail an mich zu schicken. Dafür habe ich 2 Scripte. 1 mal das .JSP Script und 1 mal das ASP Script. Leider fnktioniert keines der beiden Scripte und ich weiss leider auch nicht, was ich ändern muss.

Hier das JSP

<jsp:useBean id="zz" scope="session" class="javaside.Rbl.jspImage" /><%
int iW, iH ; // Image size
String sFormat; // Format (gif ou png)
String sData ; // Data

String[] sImg = {"CN_1", "s0", "s1", "s2", "s3", "s4", "s5" } ;
String base = "/mydir/myrep/zzzzz" ;

sFormat = "png" ;
sData = request.getParameter("data") ;

String t = null ;
t = request.getParameter("w") ;
if (t == null)
iW = 380 ;
else
iW = java.lang.Integer.parseInt(t) ;

t = request.getParameter("h") ;
if (t == null)
iH = 300 ;
else
iH = java.lang.Integer.parseInt(t) ;

// Init image size
zz.init(iW, iH) ;
zz.readData( sData ) ;

for (int i = 0; i < sImg.length ; i++)
{
zz.loadImage( base + "/" + sImg[i] + ".gif" , i ) ;
}
zz.build() ;

response.reset();
response.setContentType("image/" + sFormat );
response.addHeader("Content-Disposition","filename=image." + sFormat);

zz.encode( response, sFormat ) ;

response.flushBuffer();

zz.clear() ;
%>

Hier das ASP

<%
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%>

Vielleicht kann mir ja einer helfen. Ich bedanke mich für die Mühe