<!--
// Author: Yee Hsu
// Date: 3/14/2001
//
-->
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Developer Studio">
<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
<TITLE>Generate XML</TITLE>
</HEAD>
<BODY>
<%
' Create an empty root node for the document.
Set rootNode = Server.CreateObject("AspXml.AspXml")
rootNode.Encoding = "ISO-8859-1"
rootNode.Standalone = "yes"
rootNode.Tag = "table"
for row = 1 to 10
Set rowNode = rootNode.NewChild("row","")
for col = 1 to 10
Set colNode = rowNode.NewChild("column","("&col&","&row&")")
next
next
rootNode.SaveXml(Server.MapPath("table.xml"))
Set rootNode = Nothing
%>
<%
' Create an empty root node, and load an XML document.
Set rootNode = Server.CreateObject("AspXml.AspXml")
rootNode.LoadXmlFile Server.MapPath("table.xml")
Response.write "<table>"
Set rowNode = rootNode.FirstChild()
while (Not (rowNode Is Nothing))
Response.write "<tr>"
Set colNode = rowNode.FirstChild()
while (Not (colNode Is Nothing))
Response.write "<td>"
Response.write colNode.Content
Response.write "</td>"
Set colNode = colNode.NextSibling()
wend
Response.write "</tr>"
Set rowNode = rowNode.NextSibling()
wend
Set rootNode = Nothing
%>
</BODY>
</HTML>