Bonjour,
J'arrive à loader mon fichier xml mais je n'arrive pas à le sauvegarder:
<%
Dim objDOM, objNodeRoot, objNode, objNodeChild
Set objDOM = Server.CreateObject("Microsoft.XMLDOM")
if (objDOM.load (Server.MapPath(".")&"\sans.xml")) then
'--- Si tout est OK
'--- On extrait les caractéristiques de l'élément news par leurs ordres d'apparition (index)
response.write("Chargement effectué")
ajout(objDOM)
else
'--- Si une erreur s'est produite
set objDOM = Nothing
response.write("Une erreur s'est produite pendant le chargement du fichier XML")
response.end
end if
set objDOM =Nothing
'---commentaire
function ajout(objDOM)
response.write("function ajout")
Set objNodeRoot = objDOM.DocumentElement
Set objNode = objDOM.CreateElement("News")
objNode.Text = "aucune"
objNodeRoot.appendchild objNode
if ( objDOM.save ((Server.MapPath(".")&"\sans.xml")) ) then
response.write("sauvegarde effectuée")
else
response.write("Pb !")
response.end
end if
end function
%>
J'ai comme reponse PB !!! une idée? Merci