Public Sub GetStatus As Map
parser.Parse(GetInputStream, "Parser")
Return mStatus
End Sub
Sub Parser_StartElement (Uri As String, Name As String, Attributes As Attributes)
If Name.ToUpperCase = "STATUS" Then
If mStatus.IsInitialized = False Then
mStatus.Initialize
End If
End If
End Sub
Sub Parser_EndElement (Uri As String, Name As String, Text As StringBuilder)
Select Name.ToUpperCase
Case "CODE"
mStatus.Put("Code",Text.ToString)
Case "OPMERKING"
mStatus.Put("Opmerking",Text.ToString)
Case "STATUS"
Return
End Select
End Sub