Payroll.aspx

<%@ Import Namespace="System.Data" %>

sub Page_Load

if Not Page.IsPostBack then

dim payrollData=New DataSet

payrollData.ReadXml(MapPath("payroll.xml"))

payrollSet.DataSource=payrollData

payrollSet.DataBind()

end if

end sub

</script>

<html>

<body>

<h2>Employee List</h2>

<asp:Repeater id="payrollSet" runat="server">

<tr>

<th>First Name</th>

<th>Salary</th>

</tr>

</HeaderTemplate>

<tr>

</tr>

</ItemTemplate>

</table>

</FooterTemplate>

</asp:Repeater>

</form>

</body>

</html>

payroll1.aspx

<%@ Import Namespace="System.Data" %>

sub Page_Load

if Not Page.IsPostBack then

dim payrollData=New DataSet

payrollData.ReadXml(MapPath("payroll.xml"))

payrollSet.DataSource=payrollData

payrollSet.DataBind()

end if

end sub

</script>

<html>

<body>

<h2>Employee List</h2>

<asp:Repeater id="payrollSet" runat="server">

<tr>

<th>First Name</th>

<th>Salary</th>

</tr>

</HeaderTemplate>

<tr>

</tr>

</ItemTemplate>

<tr>

</tr>

</SeparatorTemplate>

</table>

</FooterTemplate>

</asp:Repeater>

</form>

</body>

</html>

payroll2.aspx

<%@ Import Namespace="System.Data" %>

sub Page_Load

if Not Page.IsPostBack then

dim payrollData=New DataSet

payrollData.ReadXml(MapPath("payroll.xml"))

payrollSet.DataSource=payrollData

payrollSet.DataBind()

end if

end sub

</script>

<html>

<body>

<h2>Employee List</h2>

<asp:Repeater id="payrollSet" runat="server">

<tr>

<th>First Name</th>

<th>Salary</th>

</tr>

</HeaderTemplate>

</tr>

</ItemTemplate>

</tr>

</AlternatingItemTemplate>

</table>

</FooterTemplate>

</asp:Repeater>

</form>

</body>

</html>

payroll.xml

<?xml version="1.0" ?>

<FIRST_NAME>Stephen</FIRST_NAME>

<LAST_NAME>Daniels</LAST_NAME>

<DEPT>Sports</DEPT>

<JOB>Reporter</JOB>

</EMPLOYEE>

<FIRST_NAME>Al</FIRST_NAME>

<LAST_NAME>Richards</LAST_NAME>

<DEPT>Engineering</DEPT>

<JOB>Consultant</JOB>

</EMPLOYEE>

<FIRST_NAME>Jennifer</FIRST_NAME>

<LAST_NAME>Ames</LAST_NAME>

<DEPT>Foreign</DEPT>

<JOB>Consultant</JOB>

</EMPLOYEE>

<FIRST_NAME>Sarah</FIRST_NAME>

<LAST_NAME>Grant</LAST_NAME>

<DEPT>Scientific</DEPT>

</EMPLOYEE>

<FIRST_NAME>Carl</FIRST_NAME>

<LAST_NAME>Hersey</LAST_NAME>

<DEPT>Foreign</DEPT>

<JOB>Consultant</JOB>

</EMPLOYEE>

</PERSONNEL>

deptopt.aspx

<%@ Import Namespace="System.Data" %>

sub Page_Load

if Not Page.IsPostBack then

dim optionData=New DataSet

optionData.ReadXml(MapPath("bccopt.xml"))

optionSet.DataSource=optionData

optionSet.DataBind()

end if

end sub

</script>

<html>

<body>

<h2>Option List</h2>

<asp:Repeater id="optionSet" runat="server">

<tr>

<th>Option Name</th>

<th>Option Advisor</th>

</tr>

</HeaderTemplate>

<tr>

</tr>

</ItemTemplate>

</table>

</FooterTemplate>

</asp:Repeater>

</form>

</body>

</html>

bccopt.xml

<?xml version="1.0" ?>

<bcc>

<optionname>Programming</optionname>

<optionadv>Grocer</optionadv>

</option>

<optionname>Webmaster</optionname>

<optionadv>Grocer</optionadv>

</option>

<optionname>Networking</optionname>

<optionadv>Arruda</optionadv>

</option>

<optionname>Business Information</optionname>

<optionadv>Grocer</optionadv>

</option>

<optionname>Multimedia/Internet</optionname>

<optionadv>Vieira</optionadv>

</option>

<optionname>Computer Science</optionname>

<optionadv>Ferreira</optionadv>

</option>

<optionname>Information Systems</optionname>

<optionadv>Grocer</optionadv>

</option>

<optionname>Accounting</optionname>

<optionadv>Garand</optionadv>

</option>

<optionname>Marketing Management</optionname>

<optionadv>Leonard</optionadv>

</option>

<optionname>Retail Management</optionname>

<optionadv>Dickens</optionadv>

</option>

<optionname>Business Administration</optionname>

<optionadv>Leonard</optionadv>

</option>

</bcc>

deptoptgrid.aspx

<%@ Import Namespace="System.Data" %>

sub Page_Load

if Not Page.IsPostBack then

dim optionData=New DataSet

optionData.ReadXml(MapPath("bccoptions.xml"))

dgrTables.DataSource=optionData.Tables

dgrTables.DataBind()

dgrRelations.DataSource=optionData.Relations

dgrRelations.DataBind()

dgrDept.DataSource=optionData.Tables("department")

dgrDept.DataBind()

dgrOptTyp.DataSource=optionData.Tables("optiontype")

dgrOptTyp.DataBind()

dgrOptn.DataSource=optionData.Tables("option")

dgrOptn.DataBind()

end if

end sub

</script>

<html>

<body>

<h2>Tables</h2>

<asp:datagrid id="dgrTables" runat="server">

</asp:datagrid>

<br>

<h2>Relationships</h2>

<br>

<asp:datagrid id="dgrRelations" runat="server">

</asp:datagrid>

<br>

<h2>department Table</h2>

<br>

<asp:datagrid id="dgrDept" runat="server">

</asp:datagrid>

<br>

<h2>optiontype Table</h2>

<br>

<asp:datagrid id="dgrOptTyp" runat="server">

</asp:datagrid>

<br>

<h2>option Table</h2>

<br>

<asp:datagrid id="dgrOptn" runat="server">

</asp:datagrid>

</form>

</body>

</html>

bccoptions.xml

<?xml version="1.0" ?>

<bcc>

<deptname>Computer Information Systems</deptname>

<typename>Career</typename>

<optionname>Programming</optionname>

<optionadv>Grocer</optionadv>

</option>

<optionname>Webmaster</optionname>

<optionadv>Grocer</optionadv>

</option>

<optionname>Networking</optionname>

<optionadv>Arruda</optionadv>

</option>

<optionname>Business Information</optionname>

<optionadv>Grocer</optionadv>

</option>

<optionname>Multimedia/Internet</optionname>

<optionadv>Vieira</optionadv>

</option>

</optiontype>

<typename>Transfer</typename>

<optionname>Computer Science</optionname>

<optionadv>Ferreira</optionadv>

</option>

<optionname>Information Systems</optionname>

<optionadv>Grocer</optionadv>

</option>

</optiontype>

</department>

<deptname>Business</deptname>

<typename>Career</typename>

<optionname>Accounting</optionname>

<optionadv>Garand</optionadv>

</option>

<optionname>Marketing Management</optionname>

<optionadv>Leonard</optionadv>

</option>

<optionname>Retail Management</optionname>

<optionadv>Dickens</optionadv>

</option>

</optiontype>

<typename>Transfer</typename>

<optionname>Business Administration</optionname>

<optionadv>Leonard</optionadv>

</option>

</optiontype>

</department>

</bcc>

deptoptdata.aspx

<%@ Import Namespace="System.Data" %>

sub Page_Load

if Not Page.IsPostBack then

dim optionData=New DataSet

optionData.ReadXml(MapPath("bccoptions.xml"))

xmpResults.InnerHtml = ""

xmpResults.InnerHtml = optionData.getXmlSchema() & vbCrlf & vbCrlf

xmpResultd.InnerHtml = ""

xmpResultd.InnerHtml = optionData.getXml() & vbCrlf & vbCrlf

end if

end sub

</script>

<html>

<body>

<h2>Option List</h2>

</form>

</body>

</html>

deptoptnext.aspx

<%@ Import Namespace="System.Data" %>

sub Page_Load

if Not Page.IsPostBack then

dim optionData=New DataSet

optionData.ReadXml(MapPath("bccoptions.xml"))

optionSet.DataSource=optionData.Tables("option")

optionSet.DataBind()

end if

end sub

</script>

<html>

<body>

<h2>Option List</h2>

<asp:Repeater id="optionSet" runat="server">

<tr>

<th>Option Name</th>

<th>Option Advisor</th>

</tr>

</HeaderTemplate>

<tr>

</tr>

</ItemTemplate>

</table>

</FooterTemplate>

</asp:Repeater>

</form>

</body>

</html>

optdatalist3.aspx

<%@ Import Namespace="System.Data" %>

sub Page_Load

if Not Page.IsPostBack then

dim optionData=New DataSet

optionData.ReadXml(MapPath("bccopt.xml"))

optionSet.DataSource=optionData

optionSet.DataBind()

end if

end sub

</script>

<html>

<body>

<h2>Option List</h2>

<asp:DataList id="optionSet"

gridlines="both" runat="server">

<tr>

<th>Advisor</th>

</tr>

</HeaderTemplate>

<tr>

</tr>

</ItemTemplate>

</asp:DataList>

</form>

</body>

</html>

optdatalist4.aspx

<%@ Import Namespace="System.Data" %>

sub Page_Load

if Not Page.IsPostBack then

dim optionData=New DataSet

optionData.ReadXml(MapPath("bccoptions.xml"))

optionSet.DataSource=optionData.Tables("option")

optionSet.DataBind()

end if

end sub

</script>

<html>

<body>

<h2>Option List</h2>

<asp:DataList id="optionSet"

gridlines="both" runat="server">

<tr>

<th>Advisor</th>

</tr>

</HeaderTemplate>

<tr>

</tr>

</ItemTemplate>

</asp:DataList>

</form>

</body>

</html>

paydatalist.aspx

<%@ Import Namespace="System.Data" %>

sub Page_Load

if Not Page.IsPostBack then

dim payrollData=New DataSet

payrollData.ReadXml(MapPath("payroll.xml"))

payrollSet.DataSource=payrollData

payrollSet.DataBind()

end if

end sub

</script>

<html>

<body>

<h2>Employee List</h2>

<asp:DataList id="payrollSet"

gridlines="both" runat="server">

<b>Last Name / First Name / Dept / Job / Salary</b>

</HeaderTemplate>

<%#Container.DataItem("LAST_NAME")%> /

<%#Container.DataItem("FIRST_NAME")%> /

<%#Container.DataItem("DEPT")%> /

<%#Container.DataItem("JOB")%> /

<%#Container.DataItem("SALARY")%>

</ItemTemplate>

</asp:DataList>

</form>

</body>

</html>

paydatalist1.aspx

<%@ Import Namespace="System.Data" %>

sub Page_Load

if Not Page.IsPostBack then

dim payrollData=New DataSet

payrollData.ReadXml(MapPath("payroll.xml"))

payrollSet.DataSource=payrollData

payrollSet.DataBind()

end if

end sub

</script>

<html>

<body>

<h2>Employee List</h2>

<asp:DataList id="payrollSet"

gridlines="both" runat="server">

<b>Employees</b>

</HeaderTemplate>

<%#Container.DataItem("LAST_NAME")%>,

<%#Container.DataItem("FIRST_NAME")%> has a Job of:

<%#Container.DataItem("JOB")%> in Dept:

<%#Container.DataItem("DEPT")%> with a Salary of:

<%#Container.DataItem("SALARY")%>

</ItemTemplate>

</asp:DataList>

</form>

</body>

</html>

paydatalist2.aspx

<%@ Import Namespace="System.Data" %>

sub Page_Load

if Not Page.IsPostBack then

dim payrollData=New DataSet

payrollData.ReadXml(MapPath("payroll.xml"))

payrollSet.DataSource=payrollData

payrollSet.DataBind()

end if

end sub

</script>

<html>

<body>

<h2>Employee List</h2>

<asp:DataList id="payrollSet"

gridlines="both" runat="server">

<tr>

<th>First Name</th>

<th>Salary</th>

</tr>

</HeaderTemplate>

<tr>

</tr>

</ItemTemplate>

</asp:DataList>

</form>

</body>

</html>