ASP解析标题和子标题

Question

您好我希望用ASP解析以下XML。我已经开发了下面的代码，但我仍然没有看起来像需要。任何帮助将不胜感激。

 <title>Long Title</title>

 <small>Short text</small>

 <main>Main Text</main>

 <date>11/20/2013</date>

 <month>November</month>

 <year>2013</year>

我如何在ASP中解析这个看起来像这样

YEAR

 Month Year

     Linked title                                                    date

YEAR

 Month Year

     Linked title                                                    date

等等。

我有以下代码

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
        Response.Write "<ul>"
       For Each objItem in objItems
          On Error Resume Next
          Title = objItem.selectSingleNode("title").text
          Small = objItem.selectSingleNode("small").text
          Month = objItem.selectSingleNode("month").text
          Year = objItem.selectSingleNode("year").text


         If Year <> prev_Year then

            Response.write "<hr><br><br>" & Creator

         End if


         If Month <> prev_Month then

            Response.write "<br>" & Month

         End if

          Response.Write "<p>"& Title &"</p>"
          Response.Write "<p>"& Small &"</p>"

              prev_Year = Year
              prev_Month = Month


           Next

           Response.Write "</ul>"
        End If

     Set objItems = Nothing

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

 Set objXML = Nothing