<> 0 toen
Schemerige objNode, objSubNode, strCurrentCat, intCatCount
strCurrentCat = ""
intCatCount = 0
Plaats objNode = objResults.nextNode ()
Als objNode niets toen Uitgang is
Plaats objSubNode = objNode.selectSingleNode („categorie“)
Als niet objSubNode dan niets is
Als niet strCurrentCat = LCase (objSubNode.text) Dan
intCatCount = 0
strCurrentCat = LCase (objSubNode.text)
Response.Write „„& strCurrentCat &“„
Eind als
intCatCount = intCatCount + 1
Als intCatCount < 4="" Then="" strNodeName="pname" :="" Response="">„
strNodeName = „psubname“: Response.Write strNodeName &“: „& getNodeValue (objNode.selectSingleNode (strNodeName)) &“ „
strNodeName = „lprice1“: Response.Write strNodeName &“: „& getNodeValue (objNode.selectSingleNode (strNodeName)) &“ „
strNodeName = „lprice2“: Response.Write strNodeName &“: „& getNodeValue (objNode.selectSingleNode (strNodeName)) &“ „
strNodeName = „lprice3“: Response.Write strNodeName &“: „& getNodeValue (objNode.selectSingleNode (strNodeName)) &“ „
strNodeName = „mprice1“: Response.Write strNodeName &“: „& getNodeValue (objNode.selectSingleNode (strNodeName)) &“ „
strNodeName = „mprice2“: Response.Write strNodeName &“: „& getNodeValue (objNode.selectSingleNode (strNodeName)) &“ „
strNodeName = „mprice3“: Response.Write strNodeName &“: „& getNodeValue (objNode.selectSingleNode (strNodeName)) &“ „
strNodeName = „sprice1“: Response.Write strNodeName &“: „& getNodeValue (objNode.selectSingleNode (strNodeName)) &“ „
strNodeName = „sprice2“: Response.Write strNodeName &“: „& getNodeValue (objNode.selectSingleNode (strNodeName)) &“ „
strNodeName = „sprice3“: Response.Write strNodeName &“: „& getNodeValue (objNode.selectSingleNode (strNodeName)) &“ „
Response.Write „ „
Eind als
Eind als
Lijn
Eind als
Functie getNodeValue (objNode)
Als niet objNode dan niets is
getNodeValue=objNode.text
Anders
getNodeValue= ""
Eind als
De Functie van het eind
Response.Write TypeName (objResults)
Reeks objResults = niets
Reeks objXML = niets
%>
|