B4J Question Remotely Host Mysql

 Public Sub GetSites
      Dim ListSites As HttpJob
    ListSites.Initialize("ListP", Me)
    ListSites.download2("http://codie01.freewebhost.co.nz/site_GetList.php", Array As String ("action", "GetSites"))
    Dim res As String
    Dim ListOfSites As List'
    Dim parser As JSONParser
    parser.Initialize(res)
    ListOfSites = parser.NextArray 'returns a list with maps
    siteView.SetColumns(Array As String("Col1", "Col2"))   
    For i = 0 To ListOfSites.Size - 1
        Dim Site As Map
        Dim row(2) As Object
        Dim lbl As Label
        lbl.Initialize("")
        lbl.Text = Site.Get("siteDisplay")
        row(1) = lbl
        siteView.Items.Add(row)                           
    Next
 End Sub

<?

$host = "sql306.freewebhost.co.nz";
$db = "freew_16364963_SITEJOBS";
$user = "username";
$pw = "password";

$con = mysql_connect($host,$user,$pw) or die(mysql_error());
mysql_select_db($db) or die(mysql_error());
mysql_query("SET CHARACTER SET utf8");
        $q = mysql_query("SELECT siteDisplay FROM sites");
        $rows = array();
        while($r = mysql_fetch_assoc($q))
        {
            $rows[] = $r;
        }
        print json_encode($rows);

?>

Public Sub GetSites
      Dim ListSites As HttpJob
    ListSites.Initialize("ListP", Me)
    ListSites.download2("http://codie01.freewebhost.co.nz/site_GetList.php", Array As String ("action", "GetSites"))
    Dim res As String
    Dim parser As JSONParser
    parser.Initialize(res)
    Dim ListOfPersons As List
    ListOfPersons = parser.NextArray 'returns a list with maps
    siteView.SetColumns(Array As String("Col1"))
    If ListOfPersons.Size=0 Then
      Log("None")
    Else   
    For i = 0 To ListOfPersons.Size - 1
       Dim Site As Map
        Site = ListOfPersons.get(i)
        Dim Row(1) As Object
        Dim lbl As Label
        lbl.Initialize("")
        Row(0) = Site.Get("siteDisplay")
        siteView.Items.Add(Row)                           
    Next
    End If
 End Sub

<?

$databasehost = "lwebsite.com";
$databasename = "name";
$databaseusername ="name";
$databasepassword = "pass";

$con = mysql_connect($databasehost,$databaseusername,$databasepassword) or die(mysql_error());
mysql_select_db($databasename) or die(mysql_error());
mysql_query("SET CHARACTER SET utf8");
$query = file_get_contents("php://input");
$sth = mysql_query($query);

if (mysql_errno()) {
    header("HTTP/1.1 500 Internal Server Error");
    echo $query.'\n';
    echo mysql_error();
}
else
{
    $rows = array();
    while($r = mysql_fetch_assoc($sth)) {
        $rows[] = $r;
    }
    print json_encode($rows);
}
?>

Dim ServerUrl As String
  ServerUrl = "http://website.com//hsm.php"



ExecuteRemoteQuery("SELECT * FROM hsmcust","cust")


Sub ExecuteRemoteQuery(Query As String, JobName As String)
   Dim job As HttpJob
   job.Initialize(JobName, Me)
   job.PostString(ServerUrl, Query)
End Sub
...
Sub JobDone(job As HttpJob)
   ProgressDialogHide
   If job.Success Then
   Dim res As String
     res = job.GetString
     Log("Response from server: " & res)
     Dim parser As JSONParser
     parser.Initialize(res)
Select job.JobName
      Case "cust"
      Dim custm As List
      custm=parser.NextArray
      For i=0 To custm.Size-1
      Dim m As Map
      m=custm.Get(i)
      Log(m)
      sqlc.ExecNonQuery2("INSERT INTO table1 VALUES(?,?,?,?,?,?,?,?,?)",Array As Object(m.Get("cust"),m.Get("custadr"),m.Get("custc1"),m.Get("custc1p"),m.Get("custc1e"),m.Get("custc2"),m.Get("custc2p"),m.Get("custc2e")))
      Next
End Select
   Else
     ToastMessageShow("Error: " & job.ErrorMessage, True)
   End If
   job.Release
End Sub