På vilket sätt funkar det inte då?
Frågan#1
Försöker hämta in följande RSS-feed:
http://wpy.observer.se/client/ObserverDemo/release/rssfeed20.aspx?modulecode=PRMSV
Är ute efter att bara lista dom nyheter som finns. Min kod ser ut så här
<%
Function GetChildNodeValue(ByRef node, ByVal elementName)
Dim childNode
Set childNode = node.selectSingleNode(elementName)
If childNode Is Nothing then
GetChildNodeValue = "foo"
Else
GetChildNodeValue = childNode.text
End if
End Function
Set XMLDoc = CreateObject("MSXML2.DOMDocument")
XMLDoc.setProperty "ServerHTTPRequest", true
XMLDoc.async=false
XMLDoc.Load "http://wpy.observer.se/client/ObserverDemo/release/rssfeed20.aspx?modulecode=PRMSV"
If XMLDoc.parseError.errorCode = 0 Then
Dim node
For Each node in XMLDoc.selectNodes("channel/item")
Response.Write(GetChildNodeValue(node, "title") & "<br />")
Next
Else
Response.write XMLDoc.parseError.reason
End If
%>
Men det vill sig inte riktigt. Vad är fel?
