Bueno al final no le queda a uno más que resolver sus dudas a base de aprender. He tardado lo mio hasta aclararme como trabaja el bucle con XMLDOM, creo que es bastante sencillo el código que voy a poner, así que espero que ayude a mucha gente y bueno si ha alguno le apetece mejorarlo o aconsejarnos pues mejor para todos. Yo os dejo aquí con "FOR" el resultado que conseguí, si alguno se anima y me dice como se consigue (si es posible) con DO WHILE pos me ayudaría a aprender algo más y a quitarme la espinita que no supe como conseguirlo con ese bucle. :)
Bueno pues si a alguno le vale aquí esta:
FICHERO ASP 3.0/Classic:
Código ASP:
Ver original<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- ////////////////////////////////////////////////// START ///////////////////////////////////////////////////////// -->
<div id="seccion">
<%
' Variables.
Dim xmlObj, v_item
Dim v_id, v_link, v_titulo, v_seccion, v_describe
Dim Salto
'Asigno Variables.
Salto = Replace (cadena, vbCrLf, "<BR>")
'Creo el objeto de XMLDOM
Set xmlObj = Server.CreateObject("Microsoft.XMLDOM")
'No dejo que el archivo se edite si está en uso
xmlObj.async = False
xmlObj.setProperty "ServerHTTPRequest", true
xmlObj.validateOnParse = False
xmlObj.resolveExternals = False
'Cargo el archivo
xmlObj.load (Server.MapPath("vid.xml"))
'Si el archivo XML tiene errores
If xmlObj.parseError.errorCode <> 0 Then
Response.Write("Error de Lectura (Por favor, ponerse en contacto con el webmaster).<br />FilePos: " & xmlObj.parseError.filepos & "<br /> Línea: " & xmlObj.parseError.Line & "<br /> Causa: " & xmlObj.parseError.reason & "<br /> Ocurrió en: " & xmlObj.parseError.srcText & "<br /> Archivo: " & xmlObj.parseError.URL)
Response.End
'Si no contiene errores continuo.
Else
'Creo v_item y ejecuto la orden.
Set v_item = xmlObj.getElementsByTagName("v_galeria/v_item")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' BUCLE ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Recorre todas las filas del resultado
For n=0 To v_item.length-1
v_id = xmlObj.selectSingleNode("/v_galeria").childNodes(n).childNodes(0).Text '"v_id"
v_link = xmlObj.selectSingleNode("/v_galeria").childNodes(n).childNodes(1).Text '"v_link"
v_seccion = xmlObj.selectSingleNode("/v_galeria").childNodes(n).childNodes(2).Text '"v_seccion"
v_titulo = xmlObj.selectSingleNode("/v_galeria").childNodes(n).childNodes(3).Text '"v_titulo"
v_describe = xmlObj.selectSingleNode("/v_galeria").childNodes(n).childNodes(4).Text '"v_describe"
%>
<div id="">
<ul>
<li><%= v_id %>º</li>
<li><%= v_link %></li>
<li><%= v_seccion %></li>
<li><%= v_titulo %></li>
<li><%= v_describe %></li>
</ul>
</div>
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' BUCLE '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' End If
'Pasa a la siguiente fila
Next
'Libera memoria
'v_item.Close
Set v_item = Nothing
'xmlObj.Close
Set xmlObj = Nothing
'Cerramos variables
Set v_id = Nothing
Set v_link = Nothing
Set v_titulo = Nothing
Set v_seccion = Nothing
Set v_describe = Nothing
End If
%>
</div>
<!-- ////////////////////////////////////////////////// FIN ///////////////////////////////////////////////////////// -->
FICHERO XML:
Código XML:
Ver original<?xml version="1.0" encoding="iso-8859-1"?>
<v_galeria>
<v_item>
<v_id>1</v_id>
<v_link>http://www.youtube.com/1</v_link>
<v_titulo>Titulo 1</v_titulo>
<v_seccion>Seccion 1</v_seccion>
<v_describe>Describe 1.</v_describe>
</v_item>
<v_item>
<v_id>2</v_id>
<v_link>http://www.youtube.com/2</v_link>
<v_titulo>Titulo 2</v_titulo>
<v_seccion>Seccion 2</v_seccion>
<v_describe>Describe 2.</v_describe>
</v_item>
<v_item>
<v_id>3</v_id>
<v_link>http://www.youtube.com/3</v_link>
<v_titulo>Titulo 3</v_titulo>
<v_seccion>Seccion 3</v_seccion>
<v_describe>Describe 3.</v_describe>
</v_item>
<v_item>
<v_id>4</v_id>
<v_link>http://www.youtube.com/4</v_link>
<v_titulo>Titulo 4</v_titulo>
<v_seccion>Seccion 4</v_seccion>
<v_describe>Describe 4.</v_describe>
</v_item>
<v_item>
<v_id>5</v_id>
<v_link>http://www.youtube.com/5</v_link>
<v_titulo>Titulo 5</v_titulo>
<v_seccion>Seccion 5</v_seccion>
<v_describe>Describe 5.</v_describe>
</v_item>
</v_galeria>