Android Question ResponseError. Reason: java.net.SocketTimeoutException: timeout, Response:

Private Sub B4XPage_Created (Root1 As B4XView)
    fa.Initialize
    Root = Root1
    Wait For (ShowSplashScreen) Complete (Unused As Boolean)
    B4XPages.AddPage("pos_lite_main",pos_lite_main.Initialize)
    B4XPages.GetManager.LogEvents = True
    Root.LoadLayout("login")
 
    submit.Typeface = fa.FontAwesomeTypeface
    submit.Text =  fa.GetFontAwesomeIconByname("fa-user") & " Login"
 
    listlist.Initialize
    select_business_name.SetItems(listlist)

 If File.Exists(File.DirRootExternal,"string.txt") Then
        username.Text = File.ReadString(File.DirRootExternal, "String.txt")
    End If
 
    If File.Exists(File.DirRootExternal,"string2.txt") Then
        select_business_name.text = File.ReadString(File.DirRootExternal, "String2.txt")
    End If
End Sub

Private Sub submit_Click
    ProgressDialogShow2("Please Wait, Loading",False)
    Dim results_database As String
    Dim job As HttpJob
    job.Initialize("", Me)

'I check if database exist first before I authenticate login credentials

    job.PostString(Main.apilocationURL, "command= SELECT SCHEMA_NAME FROM INFORMATION_SCHEMA.SCHEMATA WHERE SCHEMA_NAME = 'mcdinosg_" & select_business_name.text & "' & database= mcdinosg_postest")
 
    wait for (job) JobDone(job As HttpJob)
 
    If job.Success Then
        Dim parser As JSONParser
        parser.Initialize(job.GetString)
             
        If job.GetString = "[]" Then
            ProgressDialogHide
            'Msgbox("Username and password not exist","User not found")
        Else
                 
            Dim m As Map
            Dim list1 As List = parser.NextArray
            m = list1.get(0)
         
            results_database = m.Get("SCHEMA_NAME")
         
            ProgressDialogHide
        End If
    End If
    job.Release
 
 
    ' This execute if database exist
    If results_database = "mcdinosg_"& select_business_name.text  Then
        Dim job3 As HttpJob
        job3.Initialize("", Me)
        job3.PostString(Main.apilocation, "command= select username,password,role from login_table where username ='"& username.text &"' and password = '"& password.Text &"' & database= mcdinosg_"& select_business_name.text & "")
 
        Wait For (job3) JobDone(j As HttpJob)
 
        If j.Success = True Then
            Dim parser As JSONParser
            parser.Initialize(j.GetString)
            If j.GetString = "[]" Then
                MsgboxAsync("Username and password not exist","User not found")
            Else
                 
                Dim m As Map
                Dim list1 As List = parser.NextArray
                m = list1.get(0)
                Dim username_ As String = m.Get("username")
                Dim password_ As String = m.Get("password")
                Dim role_ As String = m.Get("role")
            End If
         
            If username_ = "" Or password_ = "" Then
                ProgressDialogHide
            Else
                 
                If username_ = username.text And password_ = password.text Then
                    ProgressDialogHide
                    username.text = ""
                    password.Text=""
                    CallSub3(pos_lite_main, "getname", username_,role_)
'                        StartActivity(Activity2)
'                        Activity.Finish
                    If File.ExternalWritable = False Then
                    Else
                        File.WriteString(File.DirRootExternal, "String.txt",username_)
                        File.WriteString(File.DirRootExternal, "String2.txt",select_business_name.text)
                    End If
                    Try
                        database = "mcdinosg_"& select_business_name.text
'This is where I load the main screen
                        B4XPages.ShowPage("pos_lite_main")
                     
                    Catch
                        Log(LastException)
                    End Try
                     
                Else
                    ProgressDialogHide
                    MsgboxAsync("Username and password not exist","User not found")
                End If
            End If
        Else
            ProgressDialogHide
            Log("Error: " & j.ErrorMessage)
            ToastMessageShow("Error: " & j.ErrorMessage, True)
        End If
        j.Release
    Else
        ProgressDialogHide
        MsgboxAsync("Business name not exist","")
    End If
 
End Sub