CMJNBonjour
J'ai monté une BDD en asp qui récupère des données texte et transfert des images sur un serveur. J'aimerais créer un xml répertoriant mes infos texte au moment où j'ajoute les champs remplis dans la BDD.
J'ai mon code asp d'ajout des infos et je n'arrive pas à intégrer à la suite le code pour la création de ce xml.
J'ai ceci :
<%
sql = "SELECT dessin.* FROM dessin"
Set ajouter = Server.CreateObject("ADODB.Recordset")
ajouter.Open sql, conn, 3, 3
ajouter.AddNew
ajouter.fields("Titre_dessin")=request("Titre_dessin")
ajouter.fields("Legende_dessin")=request("Legende_dessin")
ajouter.fields("Imagebr_dessin")=request("Imagebr_dessin")
ajouter.fields("Imagehr_dessin")=request("Imagehr_dessin")
ajouter.fields("Auteur_dessin")=request("Auteur_dessin")
ajouter.fields("Motscles_dessin")=request("Motscles_dessin")
ajouter.fields("Date_dessin")=request("Date_dessin")
ajouter.fields("Heure_dessin")=request("Heure_dessin")
ajouter.Update
ajouter.Close
Set ajouter = Nothing
%>
<%
Dim objDOM, objNodeRoot, objNode, objNodeChild
sql = "SELECT dessin.* FROM dessin"
Set objDOM = Server.CreateObject("Microsoft.XMLDOM")
objDOM.Open sql, conn, 3, 3
'la racine
Set objNodeRoot = objDOM.CreateElement("Dessin")
objDOM.appendchild objNodeRoot
'premier élément
Set objNode = objDOM.CreateElement("Dessin")
objNode.SetAttribute "NAME","DOCIN"
objNodeRoot.appendchild objNode
'les caractéristiques du site
Set objNodeChild = objDOM.CreateElement("TITRE")
objNodeChild.Text = "objDOM.Fields("Titre_dessin")"
objNode.appendchild objNodeChild
Set objNodeChild = Nothing
Set objNodeChild = objDOM.CreateElement("LEG")
objNodeChild.Text = "objDOM.Fields("Legende_dessin")"
objNode.appendchild objNodeChild
Set objNodeChild = Nothing
Set objNodeChild = objDOM.CreateElement("VGN")
objNodeChild.Text = "objDOM.Fields("Imagebr_dessin")"
objNode.appendchild objNodeChild
Set objNodeChild = Nothing
Set objNodeChild = objDOM.CreateElement("URI")
objNodeChild.Text = "objDOM.Fields("Imagehr_dessin")"
objNode.appendchild objNodeChild
Set objNodeChild = Nothing
Set objNodeChild = objDOM.CreateElement("NAME")
objNodeChild.Text = "objDOM.Fields("Auteur_dessin")"
objNode.appendchild objNodeChild
Set objNodeChild = Nothing
Set objNodeChild = objDOM.CreateElement("TXT")
objNodeChild.Text = "objDOM.Fields("Motscles_dessin")"
objNode.appendchild objNodeChild
Set objNodeChild = Nothing
Set objNodeChild = objDOM.CreateElement("DAV")
objNodeChild.Text = "objDOM.Fields("Date_dessin")"
objNode.appendchild objNodeChild
Set objNodeChild = Nothing
Set objNodeChild = objDOM.CreateElement("HEU")
objNodeChild.Text = "objDOM.Fields("Heure_dessin")"
objNode.appendchild objNodeChild
Set objNodeChild = Nothing
'Principe identique pour les autres nodes
...
objDOM.save Server.MapPath("dessin\" & "(objDOM.Fields("Imagebr_dessin").xml")
Set objNodeRoot = Nothing
Set objNode = Nothing
Set objDOM = Nothing
%>
Est-ce que j'emploie la bonne méthode de création de xml.
Merci de votre aide
CMJN