I have an rss feed from an external server. Reading it with classic asp works fine, but I want to delete certain <item>'s from it. I have been trying for days but can't get it to work.

When I get all the <item>'s with xmlDOM.getElementsByTagName("item"), I want to delete all double titles (<title>), because I need to create a list of unique authors (which are in the title). I use a For each to walk through the original collection of items and use a comma seperated string to hold unique titles. When a <title> alreade is in the string, that <item> must be deleted.

I've been trying and trying, but can't find the solution,.. it sounds like it must be real simple.

I tried this: http://www.devguru.com/Technologies/...moveChild.html
and different combinations,.. it ends up in errors like this Object doesn't support this property or method: 'removeChild'

I use MSXML2.Domdocument.3.0, I tried version 5 and 6, tried Microsoft.XmlDom like in the examples.)

Someone can point me in the right direction?

My code (ASP):

Public Sub ReadRSSDistinct(strURL)

    Dim URLToRSS, MaxNumberOfItems, ErrorMessage, RSSItemsCount
    Dim xmlHttp, xmlDOM, RSSXML
    'Dim RSSItems public
    Dim RSSItem
    Dim blnDelete
    Dim i
    Dim child
    Dim strAuthors
    Dim RSSAuthor

    Dim objRoot
    Dim objExNode
    Dim oldChild

    Response.Expires = -1

    ' URL to RSS Feed to display
    URLToRSS = strURL

    '
    ErrorMessage = ""

    ' ================================================

    Set xmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
    xmlHttp.Open "Get", URLToRSS, False
    xmlHttp.Send()
    RSSXML = xmlHttp.ResponseText

    Set xmlDOM = Server.CreateObject("MSXML2.DomDocument.3.0")
    xmlDOM.async = False
    xmlDOM.validateOnParse = False
    xmlDOM.resolveExternals = False

    If Not xmlDOM.LoadXml(RSSXML) Then
        ErrorMessage = "Can not load XML:" & vbCRLF & xmlDOM.parseError.reason & vbCRLF & ErrorMessage
    End If

    Set xmlHttp = Nothing ' clear HTTP object
    Set RSSItems = xmlDOM.getElementsByTagName("item") ' collect all "items" from downloaded RSS

    RSSItemsCount = RSSItems.Length - 1

    ' if not <item>..</item> entries, then try to get <entry>..</entry>
    If RSSItemsCount = -1 Then
        Set RSSItems = xmlDOM.getElementsByTagName("entry") ' collect all "entry" (atom format) from downloaded RSS
        RSSItemsCount = RSSItems.Length - 1
    End If

    If Not RSSItemsCount = -1 Then

        For i = 0 To RSSItemsCount

            Set RSSItem = RSSItems.Item(i)
            blnDelete = False

            For Each child in RSSItem.childNodes

                Select case lcase(child.nodeName)
                    Case "title"
                        RSSAuthor = GetAuthor(child.text)
                        If Len(strAuthors) = 0 Then
                            strAuthors = Trim(RSSAuthor)
                            blnDelete = True
                        Else
                            If InStr(strAuthors, Trim(RSSAuthor)) = 0 Then
                                strAuthors = strAuthors & "," & Trim(RSSAuthor)
                                blnDelete = False
                            Else
                                'Response.Write "Delete: " & RSSAuthor & "<br />"
                                blnDelete = True
                            End If
                        End If

                        If blnDelete = True Then

                            If RSSItem Is Nothing Then
                                 Response.Write "Nothing: " & RSSAuthor & "<br />"
                            Else
                                Dim childitem
                                Dim objRootItem

                                Set objRoot = xmlDOM.getElementsByTagName("item")

                                Set objExNode = objRoot.Item(i)
                                objRoot.removeChild(objExNode)


                            End if
                        End If
                End Select
            Next
        Next
    End If


    If Len(ErrorMessage) > 0 Then
        Response.Write "<script language='javascript'>alert('" & ErrorMessage & "');</script>"
    End If

    Set xmlDOM = Nothing ' clear XML

End Sub