Sub GetResponse(request As String)
Dim sServerURL As String = "http://mypage.../datafromb4a.aspx"
Dim j As HttpJob
j.Initialize("", Me)
j.PostString(sServerURL, request)
j.GetRequest.SetContentType("text/plain")
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Dim sResponse As String = j.GetString
ServerResponse(sResponse)
Else
ToastMessageShow("Error: " & j.ErrorMessage, True)
End If
j.Release
End Sub