<code>
<HTML>
<HEAD>
<meta name=vs_targetSchema content="HTML 4.0">
<TITLE></TITLE>
<META HTTP-EQUIV="Content-Type" content="text/html; charset=UTF-8">
<META NAME="save" CONTENT="snapshot">
<STYLE>
.saveSnapshot {behavior:url(#default#savesnapshot);}</style>
<script>
var PDat="";
var XMLD="";
</script>
</HEAD>
<BODY id="Bel" onmouseover="Bel.innerHtml=PDat;"><textarea cols="40" rows="20" id="DXML" class="saveSnapShot"></textarea><br><input type="button" onclick="build()" value="Build XML.">
<script language="vbscript">
Dim x : Set x = CreateObject("MSXML2.DOMDocument"
Dim GD : GD = FormatDateTime(Date, vbShortDate)
function Build()
dim childNode
childNode = document.all.DXML.innerHTML
childNode = x.loadXML(childNode)
x.replaceChild(childNode, oRootNode)
End function
</script><span id="xs"><xml id="oRootNode" name="Dxml"></xml></span>
<!-- Insert HTML here -->
</BODY>
</HTML>
</code>
<HTML>
<HEAD>
<meta name=vs_targetSchema content="HTML 4.0">
<TITLE></TITLE>
<META HTTP-EQUIV="Content-Type" content="text/html; charset=UTF-8">
<META NAME="save" CONTENT="snapshot">
<STYLE>
.saveSnapshot {behavior:url(#default#savesnapshot);}</style>
<script>
var PDat="";
var XMLD="";
</script>
</HEAD>
<BODY id="Bel" onmouseover="Bel.innerHtml=PDat;"><textarea cols="40" rows="20" id="DXML" class="saveSnapShot"></textarea><br><input type="button" onclick="build()" value="Build XML.">
<script language="vbscript">
Dim x : Set x = CreateObject("MSXML2.DOMDocument"
Dim GD : GD = FormatDateTime(Date, vbShortDate)
function Build()
dim childNode
childNode = document.all.DXML.innerHTML
childNode = x.loadXML(childNode)
x.replaceChild(childNode, oRootNode)
End function
</script><span id="xs"><xml id="oRootNode" name="Dxml"></xml></span>
<!-- Insert HTML here -->
</BODY>
</HTML>
</code>