<> 0 puis
Faible objNode, objSubNode, strCurrentCat, intCatCount
strCurrentCat = ""
intCatCount = 0
Faire
Placer l'objNode = l'objResults.nextNode ()
Si l'objNode n'est rien puis sortir fait
Placer l'objSubNode = l'objNode.selectSingleNode (la « catégorie »)
Sinon l'objSubNode n'est rien alors
Sinon strCurrentCat = LCase (objSubNode.text) puis
intCatCount = 0
strCurrentCat = LCase (objSubNode.text)
Response.Write « « et strCurrentCat et »«
Finir si
intCatCount = intCatCount + 1
S'intCatCount < 4="" Then="" strNodeName="pname" :="" Response="">«
strNodeName = « psubname » : strNodeName de Response.Write et » : « et getNodeValue (objNode.selectSingleNode (strNodeName)) et » «
strNodeName = « lprice1 » : strNodeName de Response.Write et » : « et getNodeValue (objNode.selectSingleNode (strNodeName)) et » «
strNodeName = « lprice2 » : strNodeName de Response.Write et » : « et getNodeValue (objNode.selectSingleNode (strNodeName)) et » «
strNodeName = « lprice3 » : strNodeName de Response.Write et » : « et getNodeValue (objNode.selectSingleNode (strNodeName)) et » «
strNodeName = « mprice1 » : strNodeName de Response.Write et » : « et getNodeValue (objNode.selectSingleNode (strNodeName)) et » «
strNodeName = « mprice2 » : strNodeName de Response.Write et » : « et getNodeValue (objNode.selectSingleNode (strNodeName)) et » «
strNodeName = « mprice3 » : strNodeName de Response.Write et » : « et getNodeValue (objNode.selectSingleNode (strNodeName)) et » «
strNodeName = « sprice1 » : strNodeName de Response.Write et » : « et getNodeValue (objNode.selectSingleNode (strNodeName)) et » «
strNodeName = « sprice2 » : strNodeName de Response.Write et » : « et getNodeValue (objNode.selectSingleNode (strNodeName)) et » «
strNodeName = « sprice3 » : strNodeName de Response.Write et » : « et getNodeValue (objNode.selectSingleNode (strNodeName)) et » «
Response.Write « «
Finir si
Finir si
Boucle
Finir si
getNodeValue de fonction (objNode)
Sinon l'objNode n'est rien alors
getNodeValue=objNode.text
Autrement
"" de getNodeValue=
Finir si
Finir la fonction
Response.Write TypeName (objResults)
Placer les objResults = rien
Placer l'objXML = rien
%>
|