XML based website - how to create?

<data>
  <item visible="no">
    <title>Invisible item 1</title>
  </item>
  <item visible="yes">
    <title>Visible item 1</title>
  </item>
  <item visible="yes">
    <title>Visible item 2</title>
  </item>
</data>

Dim oXMLDoc
Dim oNode
Set oXMLDoc = CreateObject("MSXML.DOMDocument")
oXMLDoc.Load Server.MapPath("../_private/data.xml")
Set oNode = oXMLDoc.SelectSingleNode("data/item")
Do Until oNode Is Nothing
  If oNode.GetNamedAttribute("visible") = "yes" Then
    Response.Write "Title: " & oNode.SelectSingleNode("title").Text & "<br />" & vbCrLf
  End If
  Set oNode = oNode.nextSibling
Loop