Hämta rss-feed (MSXML2.DOMDocument)

Använder koden nedan för att hämta nyheterna från Expressen. Men om nyheterna har uppdaterats eller om det är ens första besök till sidan så får man ett felmeddelande som försvinner om man uppdaterar sidan.

            Set XMLDoc = CreateObject("MSXML2.DOMDocument")
            XMLDoc.setProperty "ServerHTTPRequest", true
            XMLDoc.async=false
            XMLDoc.Load "http://expressen.se/rss/nyheter" '************** RAD 62
            
            If XMLDoc.parseError.errorCode = 0 Then
            
                Set nodeLst = XMLDoc.getElementsByTagName("item")
                
                    For i = 0 To 8
            
                    strRubrik = nodeLst.Item(i).SelectSingleNode("title").text
                                        
                        response.write "<a href=""/click.asp?id=4&amp;url=" & nodeLst.Item(i).SelectSingleNode("link").text & """ target=""_blank"">"
            
            
                If Len(strRubrik) > 60 Then
                    Response.Write  Left(strRubrik,57) & "..."
                Else
                    Response.Write strRubrik
                End If
            
                    Response.Write "</a><br />" & vbCrLf
                    next
            
            Else
                Response.write XMLDoc.parseError.reason
            End If

Felmeddelandet:

msxml3.dll fel '80070005'
Åtkomst nekad.
/startsidan.asp, rad 62

/err

Det här är en rättighetsfråga på ditt system, sannolikt ett kontoproblem eller liknande. Det underliga är om det är intermittent. I vilket fall som helst fungerar koden bra för mig, förutom att du glömt ett inledande situationstecken på den här raden:

response.write [u]"[/u]<a href=""/click.asp?id=4&amp;url=" & nodeLst.Item(i).SelectSingleNode("link").text & """ target=""_blank"">"

Om du hade fått t.ex. en 401 response code (som signalerar Autorization failed) hade du hamnat i din felhanterare och fått ett annat meddelande, så det är inte ett HTTP responsfel.

Yepp, gjorde lite uppdateringar på msxml och fick ändra lite rättigheter så nu funkar det.

Så bra! Markera gärna rätt inlägg som lösning. :)

Verkar dock som att problemet var tillbaka när jag vaknade ur min törnrosa sömn... Verkar som att felet kommer tillbaka om nyheterna uppdateras och det är första gången kör scriptet. *suck*
Finns det inte en bättre script att hämta nyheterna på än msxml3?

Jag tror fortfarande inte det är något fel med scriptet i sig, inte om du får samma felmeddelande.