'Coloring the command node
Function Renderinstruction (NodNode, Intlease)
DIM STRNODES, INTCOUNT, INTNODE
Strnodes = ""
INTCOUNT = 0
INTNODE = 0
Dim nodattrlist
Strnodes = strnodes & getind (intled) & " & lt "
Strnodes = STRNODES & "?"
Strnodes = strnodes & nodnode.nodename & ""
'CHECK THERE ARE SOME Attributes
Strnodes = strnodes & nodnode.nodevalue
Strnodes = STRNODES & "? & gt font>
"
Renderinstruction = Strnodes
END FUNCTION
Function GetInDent (intLevel)
'Create A String of Spaces
DIM STRINDENT
StrindENT = ""
For intundent = 0 to intLevel-1
Strindent = STRINDENT & "& NBSP & NBSP & NBSP & NBSP & NBSP & NBSP & NBSP & NBSP & NBSP & NBSP"
NEXT
Getindent = StrindENT
End function%>
HEAD>
<% = STRF%> span>
<% = strRRESULT%>
Span>
stan span> body>
HTML
>