Sub Handle(req As ServletRequest, resp As ServletResponse)
.......
Case "validate"
intraSetLicence2(req.ParameterMap,resp)
........
end select
end sub
Sub intraSetLicence2(myMap As Map,myResp2 As ServletResponse)
myResp=myResp2:' a private holding the servlet
Dim jb As HttpJob
Dim myQuery As String =myDataHere
jb.Initialize("validate",Me)
jb.PostString(myExternalPage,myQuery)
end sub
Sub jobDone (job As HttpJob)
Log("JobName = " & job.JobName & ", Success = " & job.Success)
Dim s As String
If job.Success = True Then
s=job.GetString
job.Release
Else
s="error"
End If
createFinalLicence3(s)
End Sub
Sub createFinalLicence3(myString As String)
myResp.ContentType = "text/HTML;charset=UTF-8"
myResp.write(myString)
.....
End Sub