Parsing an XML file using VBScript when the child nodes all have the same name

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Base64Decode.asp" -->
<%
Dim AdminUser,AdminPass,OwnerName,WSHost,ValidUser
   AdminUser = "xxxxxxxxxxxx"
   AdminPass = "xxxxxxxxx"
   OwnerName = "xxxxxxx"
   WSHost = "http://mail.xxxxxxx.com"
 
Function GetClendarList(WSHost,AdminUser,AdminPass,OwnerName)
 On Error resume Next
    Dim MSXmlHttp, MSXmlDom, MSXmlUrl
    Set MSXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
    MSXmlUrl = WSHost & "/Services/svcOutlookAddin.asmx/RequestCalendarListEx?AuthUserName=" & Server.URLEncode(AdminUser) & "&AuthPassword=" & Server.URLEncode(AdminPass) & "&OwnerName=" & Server.URLEncode(OwnerName) & ""
    MSXmlHttp.Open "GET" , MSXmlUrl , False ,"",""
    MSXmlHttp.Send
    If Err.Number = 0 Then
		'Response.Write(Err.Number)
		'Response.Write(MSXmlHttp.Status)
		'Response.Write(MSXmlHttp.ResponseText)
		If MSXmlHttp.Status = 200 then
            Set objXML = Server.CreateObject("Microsoft.XMLDOM")
            objXML.async=false
			objXML.loadXML(MSXmlHttp.ResponseText)
			Set XMLNode = objXML.selectNodes("//CalendarMetaInfo")
			For Each objXMLDOMNode In XMLNode
            'Set MSXmlDom = Nothing
				for i = 1 to objXMLDOMNode.childnodes.length
				if objXMLDOMNode.childnodes(i-1).nodename = "Guid" then
				Guid = objXMLDOMNode.childnodes(i-1).text
				elseif objXMLDOMNode.childnodes(i-1).nodename = "Hash" then
				Hash = objXMLDOMNode.childnodes(i-1).text
				End IF
					On Error resume Next
					Set MSXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
					MSXmlUrl = WSHost & "/Services/svcOutlookAddin.asmx/GetCalendarEx?AuthUserName=" & Server.URLEncode(AdminUser) & "&AuthPassword=" & Server.URLEncode(AdminPass) & "&OwnerName=" & Server.URLEncode(OwnerName) & "&guid=" & Server.URLEncode(GUID) & ""
					MSXmlHttp.Open "GET" , MSXmlUrl , False ,"",""
					MSXmlHttp.Send
					If Err.Number = 0 Then
						'Response.Write(Err.Number)
						'Response.Write(MSXmlHttp.Status)
						'Response.Write(MSXmlHttp.ResponseText)
						If MSXmlHttp.Status = 200 then
						objXML.loadXML(MSXmlHttp.ResponseText)
						Set XMLNode2 = objXML.selectNodes("//val")
							Subject = objXMLDOMNode.childnodes(0).text
							Location = objXMLDOMNode.childnodes(1).text
							'Response.Write(Subject)
							'Response.Write("<BR>")
							'Response.Write(Location)
							'Response.Write("<BR><BR>")
						End IF
					End IF			
				Next
			Next
        End if
    End if
    'Set MSXmlHttp = Nothing
End function
ValidUser =   GetClendarList(WSHost,AdminUser,AdminPass,OwnerName)
%>
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

Dim objXML, Root, Keys, i
Set objXML = WScript.CreateObject("Microsoft.XMLDOM")
objXML.async = False
objXML.load("test10.xml")
 
Set Keys = objXML.selectNodes("//GetCalendarResult//ExCalendar//key//*")
Set Values = objXML.selectNodes("//GetCalendarResult//ExCalendar//val//*")
 
For Each Key In Keys
	WScript.echo Key.text & " => " & Values(i).text
	i = i + 1
next

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12: