<> 0 после этого
Тусклое objNode, objSubNode, strCurrentCat, intCatCount
strCurrentCat = ""
intCatCount = 0
Сделайте
Установите objNode = objResults.nextNode ()
Если objNode ничего после этого, то выходите сделайте
Установите objSubNode = objNode.selectSingleNode («категория»)
Если не objSubNode ничего после этого
Если не strCurrentCat = LCase (objSubNode.text) после этого
intCatCount = 0
strCurrentCat = LCase (objSubNode.text)
Response.Write ««& strCurrentCat &»«
Закончитесь если
intCatCount = intCatCount + 1
Если intCatCount < 4="" Then="" strNodeName="pname" :="" Response="">«, то
strNodeName = «psubname»: strNodeName Response.Write &»: «& getNodeValue (objNode.selectSingleNode (strNodeName)) &» «
strNodeName = «lprice1»: strNodeName Response.Write &»: «& getNodeValue (objNode.selectSingleNode (strNodeName)) &» «
strNodeName = «lprice2»: strNodeName Response.Write &»: «& getNodeValue (objNode.selectSingleNode (strNodeName)) &» «
strNodeName = «lprice3»: strNodeName Response.Write &»: «& getNodeValue (objNode.selectSingleNode (strNodeName)) &» «
strNodeName = «mprice1»: strNodeName Response.Write &»: «& getNodeValue (objNode.selectSingleNode (strNodeName)) &» «
strNodeName = «mprice2»: strNodeName Response.Write &»: «& getNodeValue (objNode.selectSingleNode (strNodeName)) &» «
strNodeName = «mprice3»: strNodeName Response.Write &»: «& getNodeValue (objNode.selectSingleNode (strNodeName)) &» «
strNodeName = «sprice1»: strNodeName Response.Write &»: «& getNodeValue (objNode.selectSingleNode (strNodeName)) &» «
strNodeName = «sprice2»: strNodeName Response.Write &»: «& getNodeValue (objNode.selectSingleNode (strNodeName)) &» «
strNodeName = «sprice3»: strNodeName Response.Write &»: «& getNodeValue (objNode.selectSingleNode (strNodeName)) &» «
Response.Write « «
Закончитесь если
Закончитесь если
Петля
Закончитесь если
getNodeValue функции (objNode)
Если не objNode ничего после этого
getNodeValue=objNode.text
Еще
"" getNodeValue=
Закончитесь если
Закончите функцию
Response.Write TypeName (objResults)
Установите objResults = ничего
Установите objXML = ничего
%>
|