asp 读取远程xml内容循环输出

 <?xml version="1.0" encoding="UTF-8" ?> 

- <TrackResult>

  <message>完成</message> 

  <nu>123456</nu> 

- <data>

- <itme>

  <time>2013-06-28</time> 

  <context>提交</context> 

  </itme>

- <itme>

  <time>2013-06-29</time> 

  <context>处理中</context> 

  </itme>

- <itme>

  <time>2013-06-30</time> 

  <context>完成</context> 

  </itme>

  </data>

  <state>1</state> 

  <condition>7</condition> 

  </TrackResult>

请求asp 读取远程xml内容循环输出
需要输出message、nu、time、context、state、condition，其中time和context需要加样式<tb>和</tb>样式，希望大侠给段代码
------解决方案--------------------

<%



s = "<?xml version=""1.0"" encoding=""UTF-8"" ?><TrackResult><message>完成</message><nu>123456</nu><data><itme><time>2013-06-28</time><context>提交</context></itme><itme><time>2013-06-29</time><context>处理中</context></itme><itme><time>2013-06-30</time><context>完成</context></itme></data><state>1</state><condition>7</condition></TrackResult>"



Set oDoc = CreateObject("Msxml2.DOMDocument")

With oDoc

    .async              = False

    .validateOnParse    = False

    .preserveWhiteSpace = False

    .resolveExternals   = False

    .loadXML s

    If .parseError.errorCode <> 0 Then

        sErrMsg = .parseError.errorCode & "
------解决方案--------------------
" & .parseError.srcText & "
------解决方案--------------------
" & .parseError.reason

        Response.Write sErrMsg        

    End If

End With

Set oNode = oDoc.selectSingleNode("//message")

If Not oNode Is Nothing Then

    Response.Write "message:" & oNode.text

End If



Set oNode = oDoc.selectSingleNode("//nu")

If Not oNode Is Nothing Then

    Response.Write "nu:" & oNode.text

End If



Set oNodes = oDoc.selectNodes