GÉNÉRATION D'UN MENU EN XML

Signaler
Messages postés
329
Date d'inscription
jeudi 3 janvier 2002
Statut
Membre
Dernière intervention
7 octobre 2005
-
Messages postés
757
Date d'inscription
vendredi 7 septembre 2001
Statut
Membre
Dernière intervention
19 juin 2008
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/8829-generation-d-un-menu-en-xml

Messages postés
757
Date d'inscription
vendredi 7 septembre 2001
Statut
Membre
Dernière intervention
19 juin 2008

en passent sa peut etre utiliser pour un fil d'ariane (breadcrumb) via un sitemap et pas nécessairement juste un menu ;)
Messages postés
757
Date d'inscription
vendredi 7 septembre 2001
Statut
Membre
Dernière intervention
19 juin 2008

Plus simple et on ne doit pas connaitre à l'avance le nombre de noeud du xml

<%@ Language=VBScript %>
<html>


<%
strFileXml = Server.MapPath("admin.xml")

Set objXML = Server.CreateObject("MSXML2.DOMDocument")

objXML.load(strFileXml)

Set objMenu = objXML.documentElement.selectSingleNode("menu")

Set objRubNom = objMenu.getElementsByTagName("nom")
Set objRubUrl = objMenu.getElementsByTagName("url")

Dim Nom, Url

For ind01=0 To objRubNom.length -1
Nom = objRubNom.item(ind01).text
Url = objRubUrl.item(ind01).text
Response.Write(", \" & nom & \" ></td>\")
Next

%>
</td>


</html>
Messages postés
164
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
19 décembre 2008

Pareil que jaszbere... :-(
Messages postés
9
Date d'inscription
samedi 12 avril 2003
Statut
Membre
Dernière intervention
26 avril 2003

C'est merveilleuxparcequeutile lexmltoncode mais ca donne une error:
Type mismatch: 'UBound'
/menuXML/menu.asp, line 6
Comment on peut regler ca?
Merci!
Fl
Messages postés
44
Date d'inscription
jeudi 18 octobre 2001
Statut
Membre
Dernière intervention
19 octobre 2002

Franchement bien, enfin quelqun qui pense au XML
Afficher les 6 commentaires