S i X h E a D { ? }

Dim myXmlDoc As XmlDocument = New XmlDocument()
'myXmlDoc.LoadXml(strXml) ' load from string
'myXmlDoc.Load(Server.MapPath("path/to/xml.xml"))
myXmlDoc.Load("http://domain/xml.xml")
Dim UserIdNode As XmlNodeList	=	myXmlDoc.GetElementsByTagName("UserId")
Dim FirstNameNode As XmlNodeList	=	myXmlDoc.GetElementsByTagName("FirstName")
 
Dim UserId As String	=	Convert.ToString(UserIdNode(0).InnerText)
Dim FirstName As String	=	Convert.ToString(FirstNameNode(0).InnerText)

ลองดึงข้อมูลจาก xml แล้ววน loop

XmlDocument.xml

<SiXhEaD>
	<Member>
		<UserId>6</UserId>
		<Zipcode>10000</Zipcode>
		<Email>email1@domain.com</Email>
	</Member>
	<Member>
		<UserId>7</UserId>
		<Zipcode>20000</Zipcode>
		<Email>email2@domain.com</Email>
	</Member>
	<Status>Complete</Status>
</SiXhEaD>

XmlDocument.aspx

<%@ Import Namespace="System.Xml" %>
<%
Dim myXmlDoc As XmlDocument = New XmlDocument()
myXmlDoc.Load(Server.MapPath("XmlDocument.xml"))
 
Dim UserIdNode As XmlNodeList = myXmlDoc.GetElementsByTagName("UserId")
Dim ZipcodeNode As XmlNodeList = myXmlDoc.GetElementsByTagName("Zipcode")
Dim EmailNode As XmlNodeList = myXmlDoc.GetElementsByTagName("Email")
Dim StatusNode As XmlNodeList = myXmlDoc.GetElementsByTagName("Status")
 
Dim UserId As String
Dim Zipcode As String
Dim Email As String
Dim Status As String
 
Dim strResult As String = ""
 
Dim intI As Integer = 0
For intI = 0 To UserIdNode.Count - 1
    UserId = UserIdNode(intI).InnerText
    Zipcode = ZipcodeNode(intI).InnerText
    Email = EmailNode(intI).InnerText
 
    strResult = strResult & "UserId: " & UserId & "<br>"
    strResult = strResult & "Zipcode: " & Zipcode & "<br>"
    strResult = strResult & "Email: " & Email & "<br>"
    strResult = strResult & "..............." & "<br>"
Next
 
Status = StatusNode(0).InnerText
strResult = strResult & "" & Status & "<br>"
 
Response.Write(strResult)
%>

ผลลัพท์

UserId: 6
Zipcode: 10000
Email: email1@domain.com
...............
UserId: 7
Zipcode: 20000
Email: email2@domain.com
...............
Complete