Error in ls.snapps.JSONWrapperConverters, in function ToJSON in JSONArray og JSONObject:

I tried to convert the JSONObject back to JSON by using the method toJSON, but it failed after a while:

    Set jsonWriter = New JSONWriter
        sReturn = sReturn & jsonWriter.BeginArray
            Forall i In Me.m_vData
                sType = Typename(i)

It failed because sometimes m_vData did not have any children/elements. I had to put in the following (in both), and now it works perfectly:

 Set jsonWriter = New JSONWriter
        sReturn = sReturn & jsonWriter.BeginArray
        If Me.m_iCount > 0 Then
            Forall i In Me.m_vData
                sType = Typename(i)

=)

Vanessa :)