Spanish Perdida al conectar Mysql

If IsConnected = True Then ' si hay conexion a internet
       
   
       
ExecuteRemoteQuery("SELECT id,fecha,titulo,noticia FROM noticias ORDER by id desc",consulta_noticias )
   
           
        If FirstTime Then
            hc.Initialize("hc")
        End If
   





   
    Else ' si no hay internet, arranca normal
       
        Msgbox("No se a podido comprobar la conexión a Internet, verifica que estas conectado/a","Atención")
    End If

Sub ExecuteRemoteQuery(Query As String, JobName As String)
    Dim job As HttpJob
    job.Initialize(JobName, Me)
    job.PostString("http://www.midominio.com/query_consulta.php", 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
        'res=res.SubString2(res.IndexOf("["),res.IndexOf("]"))
        parser.Initialize(res)
        Select Job.JobName
       
   
       
       
        '    'ESTA CONSULTA SE EJECUTA AL ARRANCAR Y COGE LA ULTIMA NOTICIA POR FECHA
            Case consulta_noticias
                Dim CONSULTA As List
                CONSULTA = parser.NextArray 'returns a list with maps
                For i = 0 To CONSULTA.Size - 1
                    Dim m As Map
                    m = CONSULTA.Get(i)
           
                                       
fecha_mysql=m.Get("fecha") 'coge la fecha de mysql
titulo_mysql=m.Get("titulo")'coge titulo de mysq
noticia_mysql=m.Get("noticia")'coge noticia de mysq

Exit ' PONEMOS EXIT PARA QUE SOLO COJA 1 NOTICIA , EN LA CONSULTA YA ESTA ORDENADO POR FECHA
                       

                Next      
               
               
               
               
                'AQUI RELLENA LOS CAMPOS DE LA NOTICIA
                lblfecha.Text = fecha_mysql
                lbltitulo.Text = titulo_mysql
                lblnoticia.text = noticia_mysql
               

       
    End Select
       
        Else
       
Log(Job.ErrorMessage)
ToastMessageShow("Ha habido algún problema a la hora de conectar a la base de datos, intentalo mas tarde",True)
        End If




   
    Job.Release
   
End Sub

Sub IsConnected As Boolean
    Dim P As Phone,server As ServerSocket'Add a reference to the network library  'Check status: DISCONNECTED 0
    Try
        server.Initialize(0, "")
        Log("mobile data state: " & P.GetDataState & " wifi_on: " & P.GetSettings("wifi_on") & " server ip: " & server.GetMyIP & CRLF &  "wifi ip: " & server.GetMyWifiIP)
        If server.GetMyIP = "127.0.0.1" Then Return False  'this is the local host address
        If Not(P.GetDataState.EqualsIgnoreCase("CONNECTED")) And server.GetMyWifiIP = "127.0.0.1" Then Return False
       
   
        Return True
    Catch
        Return False
   
    End Try
   
   
End Sub

Public Sub resumLogin(Email As String, Password As String) As ResumableSub
    Dim post As HttpJob
    Dim PostValues, root As Map
    Dim parser As JSONParser
    PostValues.Initialize
    PostValues.Put("email",Email)
    PostValues.Put("psw",Password)
    post.Initialize("Login", Me)
    post.PostMultipart( $"http://${ServerIpDomain}:${ServerPort}/api/login"$,PostValues, Null)
    Wait For (post) JobDone (post As HttpJob)
    If post.Success Then
        Log(post.GetString)
        parser.Initialize(post.GetString)
        root  = parser.NextObject
        accesToken  = root.Get("access_token")
        grantsString  = root.Get("grants")
        refreshToken  = root.Get("refresh_token")
        Message = root.Get("message")
        APPCODE  = root.Get("app_code")
        Loged = True
        If APPCODE <> 0 Then Loged = False
    End If
    post.Release
    Return APPCODE
End Sub

 m =CONSULTA.Get(0)

CREATE TABLE noticias(
 id INT AUTO_INCREMENT PRIMARY KEY,
 fecha DATE,
 titulo VARCHAR(xxx),
 noticia LONGTEXT
);

SELECT id,fecha,titulo,noticia FROM noticias ORDER by id desc LIMIT 1;

'Load the last new
public Sub LoadLastNew()
    Dim sql As String = "SELECT id,fecha,titulo,noticia FROM noticias ORDER by id desc LIMIT 1;"
    Wait For (LoadServerData(sql)) Complete (Result As Map)
    lblfecha.Text = Result.Get("fecha")
    lbltitulo.Text = Result.Get("titulo")
    lblnoticia.text = Result.Get("noticia")
End Sub

'Load data from server using post
Public Sub LoadServerData(query As String) As ResumableSub
    Dim post As HttpJob
    Dim PostValues, root As Map
    Dim parser As JSONParser
    PostValues.Initialize
    PostValues.Put("query",query)
    post.Initialize("LoadServerData", Me)
    post.PostMultipart( $"http://www.midominio.com/query_consulta.php"$,PostValues, Null)
    Wait For (post) JobDone (post As HttpJob)
    If post.Success Then
        Log(post.GetString)
        parser.Initialize(post.GetString)
        root  = parser.NextObject
    End If
    post.Release
    Return root
End Sub

<?
error_reporting ( E_ALL  ^  E_NOTICE  ^  E_DEPRECATED );

$databasehost = "IP DEL HOSTIN";
$databasename = "nombre_BD";
$databaseusername ="nombre_user";
$databasepassword = "clave";

$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);
}
?>