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
Afficher les 6 commentaires