Sub BuildListView
Dim i As Int
Dim ListTitle As String
Dim ResultElement As XOMElement
Dim yearString As String
Dim competitionString As String
Dim sectionString As String
yearString = "2013"
competitionString = "Butlins Mineworkers"
sectionString = "Third"
For i=0 To ResultElements.Size-1
ResultElement=ResultElements.GetElement(i)
If ResultElement.GetFirstChildElementByName("compName").value = competitionString _
AND ResultElement.GetFirstChildElementByName("year").value = yearString _
AND ResultElement.GetFirstChildElementByName("section").value = sectionString Then
Table1.AddRow(Array As String(ResultElement.GetFirstChildElementByName("position").value, _
ResultElement.GetFirstChildElementByName("bandName").value, _
ResultElement.GetFirstChildElementByName("conductor").value))
End If
Next
End Sub