Inherits System.Web.UI.Page
Dim nav As XPathNavigator
Dim docNav As XPathDocument
Dim nodeIter As XPathNodeIterator
Dim strExpression As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim myDs As DataSet = New DataSet()
myDs.ReadXml(Server.MapPath("Books.xml"))
Me.GridView1.DataSource = myDs.Tables("book").DefaultView
Me.GridView1.DataBind()
myDs.Clear()
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
docNav = New XPathDocument(Server.MapPath("Books.xml"))
nav = docNav.CreateNavigator()
strExpression = "sum(/bookstore/book/price) div count(/bookstore/book/price)"
Label1.Text = nav.Evaluate(strExpression).ToString()
End Sub
End Class