GÉNÉRATION D'UN MENU EN XML
cs_Mercury
Messages postés
329
Date d'inscription
jeudi 3 janvier 2002
Statut
Membre
Dernière intervention
7 octobre 2005
-
7 mai 2002 à 17:35
cs_Jackboy Messages postés 757 Date d'inscription vendredi 7 septembre 2001 Statut Membre Dernière intervention 19 juin 2008 - 12 janv. 2007 à 20:13
cs_Jackboy Messages postés 757 Date d'inscription vendredi 7 septembre 2001 Statut Membre Dernière intervention 19 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.
https://codes-sources.commentcamarche.net/source/8829-generation-d-un-menu-en-xml
https://codes-sources.commentcamarche.net/source/8829-generation-d-un-menu-en-xml
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