RSS Reader

det er med denne kode jeg henter RSS

<%
Session.LCID=1030

TheFeed = "http://nyhederne.tv2.dk/rss/nyhederne.xml"

Set objXML = Server.CreateObject("Microsoft.XMLDOM")

objXML.Async = False

objXML.SetProperty "ServerHTTPRequest", True

objXML.ResolveExternals = True

objXML.ValidateOnParse = True

objXML.Load(TheFeed)

CellCount = 0

If (objXML.parseError.errorCode = 0) Then

  Set objRoot = objXML.documentElement

  If IsObject(objRoot) = False Then

    Response.Write "There was an error retrieving the news feed"

  Else

    Set objItems = objRoot.getElementsByTagName("item")

        If IsObject(objItems) = True Then

          For Each objItem in objItems

              On Error Resume Next

              TheTitle =  objItem.selectSingleNode("title").Text

              TheLink =  objItem.selectSingleNode("link").Text

              TheDesc =  objItem.selectSingleNode("description").Text

              TheDate =  objItem.selectSingleNode("pubDate").Text


  Response.Write " &bull; &nbsp; " & TheTitle & " &nbsp; &bull;  &nbsp; &nbsp; &nbsp;  &nbsp;"

%>

            Response.Write "<a href=" & TheLink & ">" & _

                            "<b>" & TheTitle & "</b>" & _

                            "</a>" & _

                            "<br />"



              Response.Write TheDesc & _

                            "<br />"



              Response.Write TheDate & _

                            "<hr />"   
                           
                            <%

          Next

        End If

    Set objItems = Nothing



  End If

Else

  Response.Write "There was an error retrieving the news feed"

End If



Set objXML = Nothing

Mærkeligt - efter 5 dages nedtid, virker det igen

er bange for at min udbyder af webhotellet igen har haft problemer :-(