xml parse not working

[wk6pack]

Hi,

I have the following code. I wish to parse the following:

<assignments>
<assignment>
<position>Sub</position>
<assigned_locations>
<assigned_location>0001</assigned_location>
<assigned_location>0023</assigned_location>
<assigned_location>0044</assigned_location>
</assigned_locations>
<assignment>
<assignments>

the following code doesnt seem to loop thru the many locations of the
assigned_locations node.

Dim AssignmentsList As XmlNodeList
Dim AssignmentOccurrence As XmlNode
Dim LocationList As XmlNodeList
Dim location As XmlNode

For Each Assignment In EmpAssignments
AssignmentsList = Assignment.SelectNodes("assignment")
prm.Num_of_Assignments = 0
For Each AssignmentOccurrence In AssignmentsList
aIdx += 1
prm.Num_of_Assignments = aIdx
prm.Num_of_Locations(aIdx) = 0
prm.Position(aIdx) = GetXMLnodeValue(AssignmentOccurrence,
"position")
LocationList =
AssignmentOccurrence.SelectNodes("assigned_locatio ns")
lIdx = 0
For Each location In LocationList
lIdx += 1
prm.Num_of_Locations(aIdx) = lIdx
prm.Assign_Location(aIdx, lIdx) = GetXMLnodeValue(location,
"assigned_location")
Next
Next
Next

Shouldnt the loop for each location go thru the elements? It doesnt.

thanks,
Will