cs_Mercury
Messages postés329Date d'inscriptionjeudi 3 janvier 2002StatutMembreDernière intervention 7 octobre 2005
-
7 mai 2002 à 17:35
cs_Jackboy
Messages postés757Date d'inscriptionvendredi 7 septembre 2001StatutMembreDernière intervention19 juin 2008
-
12 janv. 2007 à 20:13
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_Jackboy
Messages postés757Date d'inscriptionvendredi 7 septembre 2001StatutMembreDernière intervention19 juin 2008 12 janv. 2007 à 20:13
en passent sa peut etre utiliser pour un fil d'ariane (breadcrumb) via un sitemap et pas nécessairement juste un menu ;)
cs_Jackboy
Messages postés757Date d'inscriptionvendredi 7 septembre 2001StatutMembreDernière intervention19 juin 2008 12 janv. 2007 à 20:11
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>
Frank339
Messages postés164Date d'inscriptionmardi 18 décembre 2001StatutMembreDernière intervention19 décembre 2008 18 oct. 2003 à 20:47
Pareil que jaszbere... :-(
jaszbere
Messages postés9Date d'inscriptionsamedi 12 avril 2003StatutMembreDernière intervention26 avril 2003 4 mai 2003 à 03:52
C'est merveilleuxparcequeutile lexmltoncode mais ca donne une error:
Type mismatch: 'UBound'
/menuXML/menu.asp, line 6
Comment on peut regler ca?
Merci!
Fl
Slashgo
Messages postés44Date d'inscriptionjeudi 18 octobre 2001StatutMembreDernière intervention19 octobre 2002 6 oct. 2002 à 15:22
Franchement bien, enfin quelqun qui pense au XML
cs_Mercury
Messages postés329Date d'inscriptionjeudi 3 janvier 2002StatutMembreDernière intervention 7 octobre 2005 7 mai 2002 à 17:35
12 janv. 2007 à 20:13
12 janv. 2007 à 20:11
<%@ 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>
18 oct. 2003 à 20:47
4 mai 2003 à 03:52
Type mismatch: 'UBound'
/menuXML/menu.asp, line 6
Comment on peut regler ca?
Merci!
Fl
6 oct. 2002 à 15:22
7 mai 2002 à 17:35