"Diodak" <di*****@poczta.onet.pl> wrote in message news:<c5**********@news.onet.pl>...
*******************************************
TNX for the solution but this in IE5 don't work correctly
maybe some other solution help ?
*******************************************
Here some VBScript using the DOM, I got off the web.
maybe someone can translate it into XSL/XSLT. You
should be able to insert your own counter.
Private Sub Dumpnode(nodename as MSXML.IXMLDOMNode, intlevel as Integer)
Dim nodattr as MSXML.IXMLDOMNode
Dim nodchild as MSXML.IXMLDOMNode
Debug.Print Space(intlevel); nodNode.NodeName; vbTab; nodNode.nodeValue
If Not nodNode.Attributes is Nothing Then
For Each nodAttr in nodNode.Attributes
Debug.Print Space(intlevel); nodNode.NodeName; vbTab; nodNode.nodeValue
Next
End If
For Each nodChild In nodNode.childNodes
DumpNode nodChild, intLevel +1
Next
End Sub
';initially called as DumpNode DomDocument, 0