title: JSON Response not reporting properly
body: <p>I'm using the newtonsoft.dll to deal qwith the proper JSON responses from a site, i have come in to an issue, the delete code:</p>
  
  <pre><code>    Dim delPro As String
      Dim resPro As String
      Dim sB As New StringBuilder()
      For Each row As DataGridViewRow In dataGridProjects.Rows
          If (row.Cells(4).Value IsNot Nothing) Then
              ' JSON
              delPro = srFunctions.postURL("http://www.ste.com/ajax_task.php?act=add&amp;task=projectDelete", "project_ids=" + row.Cells(0).Value.ToString(), varCookieJar)
              resPro = srFunctions.postURL("http://www.ste.com/ajax_task.php?act=status&amp;task=projectDelete", "", varCookieJar)
  
              ' purely for debugging
              sB.Append("1: " + delPro)
              sB.Append(Environment.NewLine + "----------------------------------------------------------------" + Environment.NewLine)
              sB.Append("2: " + resPro)
              sB.Append(Environment.NewLine + "----------------------------------------------------------------" + Environment.NewLine)
  
              ' responses
              Dim tempPost = New With {Key .message = "", Key .error = 0, Key .done = False, Key .jsdata = ""}
              Dim obj = JsonConvert.DeserializeAnonymousType(resPro, tempPost)
              Dim com As String = obj.message
              Dim obj2 = JsonConvert.DeserializeObject(Of saperJsonObject)(resPro)
  
              If CBool((CStr(obj2.done))) Then
                  dataGridProjects.Rows.Remove(row)
                  Me.returnMessage("Project has been deleted!")
              Else
                  dataGridProjects.Rows.Remove(row)
                  Me.returnMessage("Site returned an unknown response! (The action still most likely was executed)" &amp; vbCrLf &amp; vbCrLf &amp; "Returned response was: " &amp; (CStr(obj2.done)))
              End If
          End If
      Next
  </code></pre>
  
  <p>The site returns 2 different success responses, this one:</p>
  
  <p>{"error":0,"done":0,"message":"\u0412\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u0442\u0441\u044f \u0437\u0430\u0434\u0430\u043d\u0438\u0435: 0/1","data":[true,true,0,1]}</p>
  
  <p>Has <strong>true,true,0,1</strong> at the end which is a success (the action is still completed) the other one looks like:</p>
  
  <p>{"error":0,"done":1}</p>
  
  <p>or similar, the done:1 also denotes a success, i'm not sure how to look for both success values, i know i need to edit here : If CBool((CStr(obj2.done))) Then but i'm not sure how to go about it.</p>
  
  <p>any help would be great guys!</p>
  
  <p>cheers</p>
  
  <p>Graham</p>