<> 0 dann
Schwaches objNode, objSubNode, strCurrentCat, intCatCount
strCurrentCat = ""
intCatCount = 0
Tun
objNode = objResults.nextNode einstellen ()
Wenn objNode nichts dann ist, herausnehmen tun
objSubNode = objNode.selectSingleNode („Kategorie“) einstellen
Wenn nicht objSubNode nichts dann ist
Wenn nicht strCurrentCat = LCase (objSubNode.text) dann
intCatCount = 0
strCurrentCat = LCase (objSubNode.text)
Response.Write „„u. strCurrentCat u.“„
Beenden wenn
intCatCount = intCatCount + 1
Wenn intCatCount < 4="" Then="" strNodeName="pname" :="" Response="">„
strNodeName = „psubname“: Response.Write strNodeName u.“: „u. getNodeValue (objNode.selectSingleNode (strNodeName)) u.“ „
strNodeName = „lprice1“: Response.Write strNodeName u.“: „u. getNodeValue (objNode.selectSingleNode (strNodeName)) u.“ „
strNodeName = „lprice2“: Response.Write strNodeName u.“: „u. getNodeValue (objNode.selectSingleNode (strNodeName)) u.“ „
strNodeName = „lprice3“: Response.Write strNodeName u.“: „u. getNodeValue (objNode.selectSingleNode (strNodeName)) u.“ „
strNodeName = „mprice1“: Response.Write strNodeName u.“: „u. getNodeValue (objNode.selectSingleNode (strNodeName)) u.“ „
strNodeName = „mprice2“: Response.Write strNodeName u.“: „u. getNodeValue (objNode.selectSingleNode (strNodeName)) u.“ „
strNodeName = „mprice3“: Response.Write strNodeName u.“: „u. getNodeValue (objNode.selectSingleNode (strNodeName)) u.“ „
strNodeName = „sprice1“: Response.Write strNodeName u.“: „u. getNodeValue (objNode.selectSingleNode (strNodeName)) u.“ „
strNodeName = „sprice2“: Response.Write strNodeName u.“: „u. getNodeValue (objNode.selectSingleNode (strNodeName)) u.“ „
strNodeName = „sprice3“: Response.Write strNodeName u.“: „u. getNodeValue (objNode.selectSingleNode (strNodeName)) u.“ „
Response.Write „ „
Beenden wenn
Beenden wenn
Schleife
Beenden wenn
Funktion getNodeValue (objNode)
Wenn nicht objNode nichts dann ist
getNodeValue=objNode.text
Sonst
getNodeValue= ""
Beenden wenn
Funktion beenden
Response.Write TypeName (objResults)
objResults einstellen = nichts
objXML einstellen = nichts
%>
|