erreur xml insertBefore [Résolu]

[totoche]

Bonjour,
j'essayes d'inserer un noeud a un endroit précis de mon fichier xml mais j'ai l'erreur suivante:

Type incompatible: 'objDom.insertBefore'

fichier xml
<?xml version="1.0" encoding="UTF-8"?>
<FRAIS>
<SALARIE NOM="TOTO">
<MOIS NUM=1>
<EVENEMENT NUM="1">
<JOUR>5</JOUR>
<OBJET>Mission A</OBJET>
</EVENEMENT>
<EVENEMENT NUM="2">
<JOUR>4</JOUR>
<OBJET>Mission B</OBJET>
</EVENEMENT>
</MOIS>
<MOIS NUM=2>
<EVENEMENT NUM="1">
<JOUR>3</JOUR>
<OBJET>Mission A</OBJET>
</EVENEMENT>
</MOIS>
</SALARIE>
<SALARIE NOM="TITI">
<MOIS NUM=1>
<EVENEMENT NUM="1">
<JOUR>2</JOUR>
<OBJET>Mission A</OBJET>
</EVENEMENT>
<EVENEMENT NUM="2">
<JOUR>8</JOUR>
<OBJET>Mission B</OBJET>
</EVENEMENT>
</MOIS>
</SALARIE>
</FRAIS>
Je veux inserer l'evenement 3 à toto (jour5 - mission C) au mois Num1

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
<%
Set objDom = Server.createObject("MSXML2.DOmDocument.4.0")
strNoeudXML = "<EVENEMENT NUM='3'>"
strNoeudXML = strNoeudXML &"<JOUR>5</JOUR>"
strNoeudXML = strNoeudXML &"<OBJET>MissionC</OBJET>"
strNoeudXML = strNoeudXML &"</EVENEMENT>"
 
fichier = "test.xml"
	if (objDom.load(fichier)) then
		expression = "//SALARIE[@NOM='TOTO]/MOIS[@NUM='1']"
		set objNode = objDom.selectSingleNode(expression)
		objDom.insertBefore strNoeudXML, objNode 'ERREUR ???
                          objDom.Save fichier
		Set objDom = nothing
	end if
%>

MERCI DE VOTRE AIDE

[totoche]

j'ai changé une partie du code asp:

Code :

1
2
3
4
5
 
expression = "//SALARIE[@NOM='TOTO']/MOIS[@NUM='01']"
	set objNode = objDom.selectSingleNode(expression)
	strNoeudXML = objDom.createElement("EVENEMENT") 
	objNode.insertBefore strNoeudXML, objNode.firstChild

erreur
Only one top level element is allowed in an XML document.