<> 0 allora
objNode fioco, objSubNode, strCurrentCat, intCatCount
strCurrentCat = ""
intCatCount = 0
Fare
Regolare il objNode = objResults.nextNode ()
Se il objNode è niente allora uscire fanno
Regolare il objSubNode = objNode.selectSingleNode (“categoria„)
Se non il objSubNode allora è niente
Se non strCurrentCat = LCase (objSubNode.text) allora
intCatCount = 0
strCurrentCat = LCase (objSubNode.text)
Response.Write ““& strCurrentCat &„“
Concluder se
intCatCount = intCatCount + 1
Se intCatCount < 4="" Then="" strNodeName="pname" :="" Response="">“
strNodeName = “psubname„: strNodeName di Response.Write &„: “& getNodeValue (objNode.selectSingleNode (strNodeName)) &„ “
strNodeName = “lprice1„: strNodeName di Response.Write &„: “& getNodeValue (objNode.selectSingleNode (strNodeName)) &„ “
strNodeName = “lprice2„: strNodeName di Response.Write &„: “& getNodeValue (objNode.selectSingleNode (strNodeName)) &„ “
strNodeName = “lprice3„: strNodeName di Response.Write &„: “& getNodeValue (objNode.selectSingleNode (strNodeName)) &„ “
strNodeName = “mprice1„: strNodeName di Response.Write &„: “& getNodeValue (objNode.selectSingleNode (strNodeName)) &„ “
strNodeName = “mprice2„: strNodeName di Response.Write &„: “& getNodeValue (objNode.selectSingleNode (strNodeName)) &„ “
strNodeName = “mprice3„: strNodeName di Response.Write &„: “& getNodeValue (objNode.selectSingleNode (strNodeName)) &„ “
strNodeName = “sprice1„: strNodeName di Response.Write &„: “& getNodeValue (objNode.selectSingleNode (strNodeName)) &„ “
strNodeName = “sprice2„: strNodeName di Response.Write &„: “& getNodeValue (objNode.selectSingleNode (strNodeName)) &„ “
strNodeName = “sprice3„: strNodeName di Response.Write &„: “& getNodeValue (objNode.selectSingleNode (strNodeName)) &„ “
Response.Write “ “
Concluder se
Concluder se
Ciclo
Concluder se
getNodeValue di funzione (objNode)
Se non il objNode allora è niente
getNodeValue=objNode.text
Altrimenti
"" del getNodeValue=
Concluder se
Concludere la funzione
Response.Write TypeName (objResults)
Regolare i objResults = niente
Regolare il objXML = niente
%>
|