<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
Dim objDataSet As New DataSet()
' read in the XML file
objDataSet.ReadXml(Server.MapPath("NewEmployees.xml"))
' show it in a grid
dgEmployees1.DataSource = objDataSet.Tables(0).DefaultView
dgEmployees1.DataBind()
' modify a row
objDataSet.Tables("employee").Rows(0).Item("firstName") = "Bob"
objDataSet.Tables("employee").Rows(0).Item("lastName") = "Dylan"
' add a new row to the table
Dim objTable As DataTable
Dim objNewRow As DataRow
objTable = objDataSet.Tables("employee")
objNewRow = objTable.NewRow()
objNewRow.Item("firstName") = "Norman"
objNewRow.Item("lastName") = "Blake"
objTable.Rows.Add(objNewRow)
' save it to a new file
objDataSet.WriteXml(Server.MapPath("Employees2.xml"))
' read in the new file
Dim objDataSet2 As New DataSet()
objDataSet2.ReadXml(Server.MapPath("Employees2.xml"))
' show it in another grid
dgEmployees2.DataSource = objDataSet2.Tables(0).DefaultView
dgEmployees2.DataBind()
End Sub
</script>
<html>
<body>
<table>
<tr>
<td valign="top"><asp:DataGrid id="dgEmployees1" runat="server" /></td>
<td valign="top"><asp:DataGrid id="dgEmployees2" runat="server" /></td>
</tr>
</table>
</body>
</html>
<%--
<?xml version='1.0'?>
<employees>
<employee id="1">
<firstName>Nancy</firstName>
<lastName>Lee</lastName>
<city>Seattle</city>
<state>WA</state>
<zipCode>98122</zipCode>
</employee>
<employee id="2">
<firstName>Jason</firstName>
<lastName>Wang</lastName>
<city>Vancouver</city>
<state>WA</state>
<zipCode>98123</zipCode>
</employee>
</employees>
--%>