Sub Class_Globals
	Private Root As B4XView
	Private xui As XUI
	Private B4XTable1 As B4XTable
End Sub

Public Sub Initialize
'	B4XPages.GetManager.LogEvents = True
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
	Root = Root1
	Root.LoadLayout("MainPage")
	
	B4XTable1.AddColumn("paramter1",B4XTable1.COLUMN_TYPE_TEXT)
	B4XTable1.AddColumn("paramter2",B4XTable1.COLUMN_TYPE_TEXT)
	
	Dim j As HttpJob
	j.Initialize("", Me)

	j.Download("https://mysitename/?paramter_name=paramter_passed")
		
	Wait For (j) JobDone(j As HttpJob)
	If j.Success Then
		Dim rtest As String
		'Log(j.GetString)
		rtest=j.GetString
		rtest=rtest.SubString(22)
		'Log(rtest)
			
		Dim parser As JSONParser
		'parser.Initialize(j.GetString)
		parser.Initialize(rtest)
				
		Dim l As List
		l.Initialize
				
		Dim Root2 As Map = parser.NextObject
		Dim data As List = Root2.Get("data")
			
		
		For Each coldata As Map In data
			
			Dim Userparamter1 As String = coldata.Get("paramter1")
			Dim Userparamter2 As String = coldata.Get("paramter2")
				
			If Userparamter1<>"1" Then
				l.Add(Array(Userparamter1 , Userparamter2))
				B4XTable1.SetData(l)
				'l.Clear
			End If
		Next
		
		Dim status As String = Root2.Get("status")
			
			
	Else
		'Msgbox("Please connect to internet","")
		xui.MsgboxAsync("Please connect To internet","")
	End If
		
	j.Release
	
End Sub

'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.

Private Sub Button1_Click
	xui.MsgboxAsync("Hello world!", "B4X")
End Sub