Den här koden funkar men jag vill slippa (om det går) att ha en If sats i loopen som går kollar om channel är = 2.
<%
Dim XMLDoc,nodeLst,nodeLst2,nodeLst3,i
Set XMLDoc = CreateObject("MSXML2.DOMDocument")
XMLDoc.setProperty "ServerHTTPRequest", true
XMLDoc.async=False
XMLDoc.Load Server.Mappath("filen.xml")
If XMLDoc.parseError.errorCode = 0 Then
Set nodeLst = XMLDoc.getElementsByTagName("programme")
For each obj in nodeLst
Response.Write(obj.attributes.getNamedItem("channel").text &" - "& obj.selectSingleNode("title").text &".<br>")
next
Else
Response.write XMLDoc.parseError.reason
End If
%>
Set nodeLst = XMLDoc.selectNodes("//programme[@channel='2']")
Funkade kanon men nu har ett annat litet problem dykt upp (som vanligt). ;)
Jag ändrade i XML filen (se först inlägget) så att den spara in morgondagens program också. Nu när jag kör loopen så loopar den ut allt där channel är = "2", kan man inte på något sätt avsluta loopen när den loopar ut channel 2 för andra gången?
Typ så här om jag loopar igenom hela xml filen
<%
For each obj in nodeLst
If obj.attributes.getNamedItem("channel").text = 2 Then
Response.Write(obj.attributes.getNamedItem("channel"))
Else
'Exit loop
End If
next
