Problema urgente con XMLDom

valmans
28 de Febrero del 2006
Hola. tengo un problema con XMLDom, tengo el siguiente archivo xml.

<?xml version="1.0" encoding="iso-8859-1"?>
<NewsML>
<Catalog Href="http://www.Nombre.com/dtd/NombreCatalog.xml"/>
<NewsEnvelope>
<DateAndTime>20060222T172305Z</DateAndTime>
</NewsEnvelope>
<NewsItem>
<Identification>
<NewsIdentifier>
<ProviderId>Nombre.com</ProviderId>
<DateId>20060222</DateId>
<NewsItemId>060222172258.0prtc24c</NewsItemId>
<RevisionId PreviousRevision="0" Update="N">1</RevisionId>
<PublicIdentifier>urn:newsml:Nombre.com:20060222:060222172258.0prtc24c:1</PublicIdentifier>
</NewsIdentifier>
<NameLabel>Fbl-Mundial-2006-GER</NameLabel>
</Identification>
<NewsManagement>
<NewsItemType FormalName="News"/>
<FirstCreated>20060222T172258Z</FirstCreated>
<ThisRevisionCreated>20060222T172258Z</ThisRevisionCreated>
<Status FormalName="Usable"/>
</NewsManagement>
<NewsComponent>
<NewsLines>
<HeadLine>La FIFA dice que el 15 de mayo es el tope para las listas de 23 del Mundial</HeadLine>

<DateLine>PARIS (Nombre)</DateLine>
<CopyrightLine>© 2006 Nombre</CopyrightLine>
<SlugLine>Fbl-Mundial-2006-GER</SlugLine>
</NewsLines>
<AdministrativeMetadata>
<Provider>
<Party FormalName="Nombre"/>
</Provider>
</AdministrativeMetadata>
<DescriptiveMetadata>
<Language FormalName="es"/>
<OfInterestTo FormalName="mmd--espanol--periodico--mundial2006"/>
</DescriptiveMetadata>
<NewsComponent>
<ContentItem>
<MediaType FormalName="Text"/>
<Format FormalName="bcNITF2.5"/>
<DataContent>
<media media-type="image" style="leftSide">
<media-reference mime-type="" data-location="#photo0" />
</media>
<p>La fecha límite para que los 32 países clasificados para el Mundial de Alemania den las listas definitivas de sus 23 seleccionados sigue fijada para el 15 de mayo, a pesar de la petición informal de varios equipos, anunció este miércoles la Federación Internacional de Fútbol (FIFA).</p>

</DataContent>
</ContentItem>
</NewsComponent>
<NewsComponent Duid="photo0">
<NewsLines>
<HeadLine>Selección de Alemania, el país anfitrión</HeadLine>
</NewsLines>
<AdministrativeMetadata>
<Provider>
<Party FormalName="Nombre"/>
</Provider>
<Creator>
<Party FormalName="Patrik Stollarz"/>
</Creator>
</AdministrativeMetadata>
<NewsComponent>
<Role FormalName="Caption"/>
<ContentItem>
<MediaType FormalName="Text"/>
<Format FormalName="bcNITF2.5"/>
<DataContent>
<p>(ARCHIVO) Imagen de archivo de la selección de fútbol de Alemania, en un partido contra México por la Copa de Confederaciones, el 29 de junio de 2005 en Leipzig. </p>
</DataContent>
</ContentItem>
</NewsComponent>
<NewsComponent>
<Role FormalName="Thumbnail"/>
<ContentItem Href="SGE.NZK55.220206172253.photo00.thumbnail.default-110x74.jpg">
<MediaType FormalName="Photo"/>
<Characteristics>
<Property FormalName="Width" Value="110"/>
<Property FormalName="Height" Value="74"/>
</Characteristics>
</ContentItem>
</NewsComponent>
<NewsComponent>
<Role FormalName="Quicklook"/>
<ContentItem Href="SGE.NZK55.220206172253.photo00.quicklook.default-245x165.jpg">
<MediaType FormalName="Photo"/>
<Characteristics>
<Property FormalName="Width" Value="245"/>
<Property FormalName="Height" Value="165"/>
</Characteristics>
</ContentItem>
</NewsComponent>
<NewsComponent>
<Role FormalName="Preview"/>
<ContentItem Href="SGE.NZK55.220206172253.photo00.photo.default-384x260.jpg">
<MediaType FormalName="Photo"/>
<Characteristics>
<Property FormalName="Width" Value="384"/>
<Property FormalName="Height" Value="260"/>
</Characteristics>
</ContentItem>
</NewsComponent>
</NewsComponent>
</NewsComponent>
</NewsItem>
</NewsML>

Tengo problemas para leer las rutas de la imagenes. la forma en que estoy leyendo la información es asi:

class XmlCatalog
private m_xmldoc

private sub Class_Initialize()
set m_xmldoc = createobject("Microsoft.XmlDom")
end sub

private sub Class_Terminate()
set m_xmldoc = nothing
end sub

'gets or sets the path to the xml movie catalog database
public XmlDatabasePath

'renders the movie catalog
public sub RenderCatalog()
m_xmldoc.load XmlDatabasePath

Cont = 0

dim xnodelist, xnode

xpath = "/NewsML/NewsItem/NewsComponent/NewsLines"
set xnodelist = m_xmldoc.documentElement.selectnodes(xpath)
for each xnode in xnodelist
Head = xnode.selectsinglenode("HeadLine").text
DateL = xnode.selectsinglenode("DateLine").text
Copy = xnode.selectsinglenode("CopyrightLine").text
Slug = xnode.selectsinglenode("SlugLine").text
next

ipath = "/NewsML/NewsItem/NewsComponent/NewsLines"

bpath = "/NewsML/NewsItem/NewsComponent/NewsComponent/ContentItem/DataContent"
set bnodelist = m_xmldoc.documentElement.selectnodes(bpath)

Response.Write("<tr><td width=""5""><img src=""./imgs/pixel_transparente.gif"" width=""5"" height=""5""/></td>")
Response.Write("<td width=""140"" valign=""top""><img src=""./imgs/foto_fut_1.jpg"" width=""140"" height=""140"" /></td>")
Response.Write("<td width=""5""><img src=""./imgs/pixel_transparente.gif"" width=""5"" height=""5"" /></td>")
Response.Write("<td width=""266""><p class=""nota_ppal_Tit"">" & Head&"<br /><br /></p>")


for each bnode in bnodelist
Parrafo = bnode.selectsinglenode("p").text
Response.Write("<p class=""separacion"">"&Parrafo& "</p>")
Response.Write("<br><br>")
next
Response.Write("</td></tr>")
set bnodelist = nothing
end sub

public sub RenderCatalog2()
m_xmldoc.load XmlDatabasePath

Cont = 0

dim xnodelist, xnode

xpath = "/NewsML/NewsItem/NewsComponent/NewsLines"
set xnodelist = m_xmldoc.documentElement.selectnodes(xpath)
for each xnode in xnodelist
Head = xnode.selectsinglenode("HeadLine").text
DateL = xnode.selectsinglenode("DateLine").text
Copy = xnode.selectsinglenode("CopyrightLine").text
Slug = xnode.selectsinglenode("SlugLine").text
next

Response.Write("<tr>")
Response.Write("<td valign=""top""><img src=""./imgs/bullet_conVerde.jpg"" width=""14"" height=""13"" /></td>")
Response.Write("<td><span class=""nota_ppal_Tit"">")
Response.Write(Head)
Response.Write("</span></td>")
Response.Write("</tr>")

set xnodelist = nothing
end sub

public sub RenderCatalog3()
m_xmldoc.load XmlDatabasePath

Cont = 0

dim xnodelist, xnode

xpath = "/NewsML/NewsItem/NewsComponent/NewsLines"
set xnodelist = m_xmldoc.documentElement.selectnodes(xpath)
for each xnode in xnodelist
Head = xnode.selectsinglenode("HeadLine").text
DateL = xnode.selectsinglenode("DateLine").text
Copy = xnode.selectsinglenode("CopyrightLine").text
Slug = xnode.selectsinglenode("SlugLine").text
next

Response.Write(Head)
Response.Write("</span><br />")

bpath = "/NewsML/NewsItem/NewsComponent/NewsComponent/ContentItem/DataContent"
set bnodelist = m_xmldoc.documentElement.selectnodes(bpath)

for each bnode in bnodelist
Parrafo = bnode.selectsinglenode("p").text
Response.Write(parrafo)
Response.Write("<br><br>")
next
set bnodelist = nothing
end sub
end class

Alguien me puede orientar. apenas estoy empezando a usarlo XML y me urge sacar esto..

Gracias a todos!