Código ASP:
Ver original<%
Class XMLParser
Private sFile
Private oXML
Public Property Get LoadXML(file)
sFile = file
End Property
Private Sub Class_Initialize
Set oXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
End Sub
Public Sub OpenXML()
oXML.Load(sFile)
oXML.Async = False
End Sub
Public Sub SaveXML(path)
oXML.Save(path)
End Sub
Public Function ReadAttribute(node, attr)
Dim sNode, sAttr
Set sNode = oXML.GetElementsByTagName(node)
sAttr = sNode.item(0).getAttribute(attr)
ReadAttribute = sAttr
End Function
Public Function ReadNode(node)
Dim sNode, vNode, n
Set sNode = oXML.GetElementsByTagName(node)(0)
vNode = sNode.childnodes(0).nodevalue
ReadNode = vNode
End Function
Public Function CountNodes(node)
Dim sNode, vNode, n
Set sNode = oXML.GetElementsByTagName(node)
vNode = sNode.length
CountNodes = vNode
End Function
End Class
%>
Algo que hice y me ha sacado de muchos dolores de cabeza