Do an xsl transform, rather than parsing it...
<%
Dim xml
Set xml = Server.CreateObject("Msxml2.DomDocument")
xml.async = False
xml.load (Server.Mappath("yourxmlfile.xml"))
Dim xsl
set xsl = Server.CreateObject("Msxml2.DomDocument")
xsl.async = false
xsl.load(Server.MapPath("yourxslfile.xsl"))
'Response.Write XML.transformNode(XSL)
%>
point yourxmlfile.xml to the xml file you posted, and for the xsl style sheet (yourxslfile.xsl), do something like..
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="html"/>
<xsl:template match="projects">
<html><body>
<h2><xsl:value-of select="name"/></h2>
<p><xsl:value-of select="created-on"/> - <xsl:value-of select="last-changed-on"/></p>
</body></html>
</xsl:template>
</xsl:stylesheet>
(the xsl I've made is a brief example of what you can do. You can add more values, insert html to make it look presentable etc)