Hej ,
jag vill hämta alla nyhter från:
http://www.nyhetsportalen.se/static/export_888.xml
Med denna kod ?

Men jag får inte till det , någon som kan hjälpa mig ?


<code>
Dim xmlDOC 'As MSXML2.DOMDocument
Dim bOK
Dim HTTP 'As MSXML2.XMLHTTP

Set HTTP = CreateObject("MSXML2.XMLHTTP")
Set xmlDOC = CreateObject("MSXML2.DOMDocument")

xmlDOC.Async = False
HTTP.Open "GET", "http://www.nyhetsportalen.se/static/export_888.xml", False
HTTP.Send
bOK = xmlDOC.Load(HTTP.ResponseStream)

If Not bOK Then
Response.Write "Error loading XML"
Else
Dim objNode 'As MSXML2.IXMLDOMNode
Dim objNodeList 'As MSXML2.IXMLDOMNodeList
Dim objAttributes 'As MSXML2.IXMLDOMNamedNodeMap

Set objNode = xmlDOC.documentElement.selectSingleNode("item")
Set objNodeList = xmlDOC.documentElement.selectNodes("title/description")

Response.Write "Nyheter: "

For Each objNode In objNodeList
Set objAttributes = objNode.Attributes
Response.Write objAttributes.getNamedItem("title").nodeValue

Response.Write ": "
Response.Write objAttributes.getNamedItem("description").nodeValue
Response.Write "<br>" & vbCrLf
Next
End If
</code>

ingen som har några råd ?