XML dans ASP Vbscript classique

Question

Je suis de retour à asp avec XML manupulation. fichier initial:

<?xml version="1.0" ?> 
<root> 
    <sport/> 
</root> 

ceci est ma fonction

Public Function DefinitFunction(x,z) 


Dim text 
Dim Root 
Dim NodeList 

    text = "<Definition>" ---<x> </x> <z> </z> --</Definition> " 
    text = text & "<x><![CDATA["&x&"]]> </x>" 
    text = text & "<z> </z>"   
    text = text & "</Definition>" 

Set Root = objDoc.documentElement 
Set NodeList = Root.getElementsByTagName("sport") 

NodeList.appendChild text 

objDoc.Save strFile 

end function 
' Private strFile, objDoc are class object 

Je souhaite modifier dynamiquement la toute chose. J'ai donc une fonction: DefinitFunction(x,z) qui concaténer une chaîne et append <Definition> ---<x> </x> <z> </z> --</Definition> dans mon dossier juste après le nœud <sport> à la fin cela devrait être mon résultat:

<?xml version="1.0" ?> 
<root> 
    <sport> 
    <Definition> 
     ---<x> </x> <z> </z> -- 
     </Definition> 
    </sport> 
</root> 

Ce ne fonctionne pas. Y a-t-il une meilleure façon d'accomplir cela?

Answer 1

Vous ne pouvez pas ajouter du texte directement .. vous devez convertir au noeud XML premier ..

Set newXML = CreateObject("Microsoft.XMLDOM") 
newXML.async = False 
newXML.loadXML("<root>" & text & "</root>") 

NodeList.appendChild(newXML.documentElement.selectSingleNode("/Definition"))