Read Node values from xml inVB

[Kavitha Sudhershan]

hi,
i wanna read the node values from xml. As per my code i can read the node values in first child node and for the next node am not able to read the node values. pls help me.
i'll paste the code below:

Sub readfile()

objxmldom.async = False
objxmldom.Load ("D:\CRT\rules\ AQUA.xml")


On Error GoTo ErrorHandler:

Dim nodevalue, node1, nodevalue2, nodevalue3
Set objnodes = objxmldom.selec tNodes("/Coors_Rules")
For Each OBJBOOKNODE In objnodes

If OBJBOOKNODE.sel ectNodes("CATEG ORY").length <> 0 Then
MsgBox OBJBOOKNODE.sel ectNodes("CATEG ORY").length
For j = 0 To OBJBOOKNODE.sel ectNodes("CATEG ORY").length

node1 = OBJBOOKNODE.sel ectNodes("CATEG ORY").Item(J).A ttributes.getNa medItem("TYPE") .nodeTypedValue
MsgBox node1

If node1 = "NAMING" Then
MsgBox OBJBOOKNODE.sel ectSingleNode(" CATEGORY").sele ctNodes("OBJRUL E").length
For i = 0 To OBJBOOKNODE.sel ectSingleNode(" CATEGORY").sele ctNodes("OBJRUL E").length

node2 = OBJBOOKNODE.sel ectSingleNode(" CATEGORY").sele ctNodes("OBJRUL E").Item(i).Att ributes.getName dItem("OBJNAME" ).nodeTypedValu e

MsgBox node2
NODES(1) = OBJBOOKNODE.sel ectSingleNode(" CATEGORY").sele ctNodes("OBJRUL E").Item(i).Att ributes.getName dItem("PROPERTY ").nodeTypedVal ue
MsgBox NODES(1)
NODES(2) = OBJBOOKNODE.sel ectSingleNode(" CATEGORY").sele ctNodes("OBJRUL E").Item(i).Att ributes.getName dItem("VALUE"). nodeTypedValue
MsgBox NODES(2)
NODES(3) = OBJBOOKNODE.sel ectSingleNode(" CATEGORY").sele ctNodes("OBJRUL E").Item(i).Att ributes.getName dItem("SEVERITY ").nodeTypedVal ue
MsgBox NODES(3)
Next
End If

End If

Next OBJBOOKNODE



Exit Sub ' Exit to avoid handler.

ErrorHandler: ' Error-handling routine.
End
End Sub


my xml file is like tis:

- <Coors_Rules CREATION_DATE=" 18.12.2007" VERSION="1.0">
- <CATEGORY TYPE="NAMING" DESCRIPTION="NA MING STANDARDS">
<OBJRULE OBJNAME="RDB_SO URCE_SEQUENCES" PROPERTY="START _VALUE" VALUE="7" SEVERITY="ERROR " />
<OBJRULE OBJNAME="VIEW_I NGRP" PROPERTY="END_V ALUE" VALUE="6" SEVERITY="WARNI NG" />
</CATEGORY>
- <CATEGORY TYPE="DOCUMENTA TION" DESCRIPTION="DO CUMENTATION STANDARDS">
<OBJRULE OBJNAME="MAPPIN G" PROPERTY="MIN_C HARS" VALUE="1" SEVERITY="ERROR " />
<OBJRULE OBJNAME="OPERAT ORS" PROPERTY="MIN_C HARS" VALUE="2" SEVERITY="ERROR " />
</CATEGORY>
</Coors_Rules>

The actual issue is am able to read the first child type="naming" and not the second chile type="Documenta tion"
PLS REPLY AS SOON AS POSSIBLE. AND TOO URGENT!!
THANKS