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>