01.<%@ Import Namespace="System.Data"%>
02.<%@ Import Namespace="System.XML"%>
03.<%@ Page Language="VB" %>
04.<script runat="server">
05.
06. Sub Page_Load(sender As Object, e As EventArgs)
07.
08. Dim strURL As String
09. Dim ds As New DataSet()
10.
11. strURL = Server.MapPath("XML/news.xml")
12.
13. Dim reader as XmlTextReader = New XmlTextReader(strURL)
14. ds.ReadXml(reader)
15.
16.
17. myRepeater.DataSource = ds
18. myRepeater.DataBind()
19.
20. ds = Nothing
21. End Sub
22.
23.</script>
24.<html>
25.<head>
26.<title>ThaiCreate.Com ASP.NET - XML</title>
27.</head>
28.<body>
29. <form id="form1" runat="server">
30. <asp:Repeater id="myRepeater" runat="server">
31. <ItemTemplate>
32. <a href="<%#Container.DataItem("Link") %>" target="blank"><%#Container.DataItem("Subject") %></a><br />
33. </ItemTemplate>
34. </asp:Repeater>
35. </form>
36.</body>
37.</html>
