'Class module
Sub Class_Globals
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
End Sub
Sub Handle(req As ServletRequest, resp As ServletResponse)
Dim In As InputStream = req.InputStream
Dim reqType As String = req.GetParameter("geta")
resp.ContentType = "text/html"
Dim tr As TextReader
tr.Initialize(In)
if reqtype="geta" and tr.readall="100" then
resp.write("SOMETHING!")
End If
End Sub