Sub XOMBuilder1_BuildDone(XOMDocument1 As XOMDocument, Tag As Object)
XOMDocument1.IsInitialized
Dim RootElement As XOMElement
RootElement = XOMDocument1.RootElement
ItemsElements = RootElement.GetChildElementsByName("item")
Dim i, ElementsCount As Int
ElementsCount = ItemsElements.Size
For i = 0 To ElementsCount - 1
dbmap.Put("name", ItemsElements.GetElement(i).GetFirstChildElementByName("name").Value)
dbmap.Put("address", ItemsElements.GetElement(i).GetFirstChildElementByName("address").Value)
ListOfMaps.Add(dbmap)
Next
If ListOfMaps.Size > 0 Then
DBUtils.InsertMaps(SQL1, "mytable", ListOfMaps)
ListOfMaps.Clear
End If
End Sub