Serious WCF problem

'Code module
'Subs in this code module will be accessible from all modules.
Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.

   Dim URL As String
    URL = "http://cobra-soft.no-ip.info:2080/Q2CService2.svc/GetAfdelingen?Login=cobrasoft&password=cobrasoft"
   Dim HttpClient1 As HttpClient
   'Dim sJSONData   As String 
   
End Sub

Sub Globals
   Dim sJSONData   As String
   Dim Load As Button
   Dim Parse As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
   HttpClient1.Initialize("HttpClient1")
   Activity.LoadLayout("json1") 'Load the layout file.
End Sub

Sub HttpClient1_ResponseSuccess (Response As HttpResponse, TaskId As Int)
   Log("ResponseSuccess")
   ProgressDialogHide
   Dim result As String
   result = Response.GetString("UTF8") 'Convert the response to a string
   sJSONData = result
   Log(result) ' test dump
End Sub

Sub HttpClient1_ResponseError (Reason As String, StatusCode As Int, TaskId As Int)
   Log(Reason)
   Log(StatusCode)
   ProgressDialogHide
   msg = "Error connecting to server."
   If reason <> Null Then msg = msg & CRLF & Reason
   ToastMessageShow (msg, True)
End Sub

Sub GetJSONData()
    Dim request As HttpRequest
   request.InitializeGet(URL)
   request.Timeout = 10000 'set timeout to 10 seconds
   If HttpClient1.Execute(request, 1) = False Then Return 'Will be false if their is already a running task (with the same id).
   ProgressDialogShow("Calling server...")

End Sub

Sub LoadJSONDATA()
   Dim JSON As JSONParser
   Dim Map1 As Map
   Dim i As Int 
   
   JSON.Initialize(sJSONData)
   Map1.Initialize
   
   Dim m As Map 'helper map for navigating
   Dim DataItems As List
   DataItems.Initialize2(JSON.NextArray )
   
   m.Initialize
   
   Log(DataItems.Size)
   
   For i = 0 To DataItems.Size-1
      m = DataItems.Get(i)
      Log (m.Get("CONT_ID"))
      Log (m.Get("CONT_Kenmerk"))
      
      
   Next
   

End Sub


Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Parse_Click
   LoadJSONDATA
End Sub
Sub Load_Click
    GetJSONData
End Sub