Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Dim asp As HttpJob
asp.Initialize("asptest",Me)
asp.Download("http://www.mywebsite.com/myaspscript.asp")
End Sub
Sub JobDone(Job As HttpJob)
ProgressDialogHide
If Job.Success Then
Dim res As String
res = Job.GetString
Log("JobName: "&Job.JobName&"/Resp:" & res)
If Job.JobName = "asptest" Then
Log("Response: "&res) ' here comes the jsonstring the asp returned...
End If
Else
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub