B4J Question [Solved] JRDC2 send a response

Sub Handle(req As ServletRequest, resp As ServletResponse)
    resp.ContentType = "text/html"
    Dim shl As Shell
    Log ("Command shell F2A_SQL executed")
      shl.Initialize("shl", "C:\ProgramData\JRDC\Start_F2A_SQL.bat", Null)
    shl.Run(-1)
    StartMessageLoop 'need to call this as this is a console app.
End Sub

Sub shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
   If Success And ExitCode = 0 Then
     Log("Success")
     Log(StdOut)
    resp.Write("F2A_SQL Ended")   Error ......
   Else
     Log("Error: " & StdErr)
    resp.Write("F2A_SQL Erreur")  Error .......
   End If
End Sub