Lille hurtig xml hjælp

Hej Eksperter...

Lille hurtig hjælp...

Jeg har denne xml reader men, den tager kun den første post i xml dokumentet... kan ikke lige få et loop til at fungere...

Nogle der kan se hvordan det kunne sættes ind?

Og ekstra til det... Hvis der nu i samme gruppe (Product) findes 2 felter af eksempelvis (ProductID) skal dette bare skrives ??:

Set objProductID1 = objCatalog.selectSingleNode("//Product/ProductID")
Set objProductID2  = objCatalog.selectSingleNode("//Product/ProductID")


<%
' Lav objektet der henter data
Set objXml = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0")

' Sæt eventuelt codepage (SXH_OPTION_URL_CODEPAGE)
'objXml.setOption 0, 0

' Åben UTF-8 kodet XML-fil
objXml.Open "GET", "/doc.xml", False

' Lever dataene
objXml.Send

Set objCatalog = objXml.responseXML
Set objProductCode = objCatalog.selectSingleNode("//Product/ProductCode")
Set objProductName = objCatalog.selectSingleNode("//Product/ProductName")

strOutput = _
  "<h1>Bog søgeresultat</h1>" & vbCrLf & _
  "<p>ProductCode: " & objProductCode.Text & "<br/>" & vbCrLf & _
  "ProductName: " & objProductName.Text & "</p>" & vbCrLf


Set objXml = Nothing
Set objCatalog = Nothing
Set objProductCode = Nothing
Set objProductName = Nothing

Response.Write strOutput
%>