0

このコードを機能させようとしていますが、どういうわけかコンテンツを取得できません

マイコード

Dim m_xmld As XmlDocument
    Dim m_nodelist As XmlNodeList
    Dim m_node As XmlNode
    'Create the XML Document
    m_xmld = New XmlDocument()
    'Load the Xml file
    m_xmld.Load("http://feeds.thescore.com/nfl.rss")
    'Get the list of name nodes 
    m_nodelist = m_xmld.SelectNodes("/rss/channel/item")

    Dim content As XmlNamespaceManager = New XmlNamespaceManager(m_xmld.NameTable)
    content.AddNamespace("content", "http://schemas.xmlsoap.org/soap/envelope/")

    'Loop through the nodes
    For Each m_node In m_nodelist
        If Not m_node.SelectSingleNode("content:encoded",content) Is Nothing AndAlso Len(m_node.SelectSingleNode("content:encoded",content).InnerText) > 0 Then 
            response.Write(m_node.SelectSingleNode("content:encoded",content))
            response.Flush()
        end if

    Next

誰か助けてくれませんか?

4

2 に答える 2