Bucle ASP con XMLDOM

Mexman · #1 (**permalink**) 08/03/2010, 06:29

Hola este ejemplo lo diseño en su día para que me cargara las variables desde una base de datos ACCES, el problema posterior es que me daba un error asíncrono entre el servidor y el cliente, ya que uso un JQuery para cargar la galería, así que tras mucho intentarlo he desisitido de cargar los datos desde la base de datos y decidí hacer lo siguiente:

Usar un XML como comodín. Donde con otro script exporto los datos de la BD y los grabo en un XML. Acto siguiente para leerlo desde el Navegador llamo a ese XML y así resuelvo el asincronismo.

En resumen:

El caso es que ando muy perdido con XLDOM y sobre todo con el DO WHILE porque no se como estructurar el dichoso Bucle con XML para que me lea los datos del XML. Estoy leyéndome el FAQ de XLDOM, estoy googleando a muerte y también he mirado aquí en antiguos post y sigo en las mismas.

Este es el codigo:

Código ASP:

Ver original<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- ////////////////////////////////////////////////// START ///////////////////////////////////////////////////////// -->
<div id="seccion">
    <%
        ' Variables.
            Dim xml, oXml   
            Dim v_id, v_link, v_titulo, v_seccion, v_describe
            Dim Salto               
        'Asigno Variables.  
             items = "items"
                 i = 1
              v_id = xml.documentElement.childNodes(0).text '"v_id"
            v_link = xml.documentElement.childNodes(1).text '"v_link"
         v_seccion = xml.documentElement.childNodes(2).text '"v_seccion"
          v_titulo = xml.documentElement.childNodes(3).text '"v_titulo"            
        v_describe = xml.documentElement.childNodes(4).text '"v_describe" 
             Salto = Replace (cadena, vbCrLf, "<BR>")
 
        'Creo el objeto de XMLDOM
            Set xml = Server.CreateObject("Microsoft.XMLDOM")
        'No dejo que el archivo se edite si está en uso
            xml.async = False
        'Cargo el archivo
            xml.load (Server.MapPath("./db/vid.xml"))
    
        'Si el archivo XML tiene errores
            If xml.parseError.errorCode <> 0 Then
                Response.Write("<p> Hay un error en el archivo XML: <b>" "<p>")  
                Response.Write("<b>"& xml.parseError.reason &  xml.parseError.line & xml.parseError.linepos)
                Response.End
            End If  
            
        'Si no contiene errores continuo. Creo un objeto XML y ejecuto la orden.
            Set oXML = xml.getElementsByTagName(items+i)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''     BUCLE     ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        'Recorre todas las filas del resultado
            Do While Not oXML.EOF
    %>  
        <div id="demo">
                <ul>
                    <li><%= v_id %>º</li>
                    <li><%= v_link %></li>
                    <li><%= v_seccion %></li>
                    <li><%= v_titulo %></li>
                    <li><%= v_describe %></li>                                      
                </ul>
        </div>
    <% 
        'Pasa a la siguiente fila
            oXML.MoveNext()
            i=i+1
            Loop
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''     BUCLE     ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        'Libera memoria             
            oXML.Close
            Set oXML = Nothing
            xml.Close
            Set xml = Nothing
            
        'Cerramos variables
            Set v_id = Nothing
            Set v_link = Nothing
            Set v_titulo = Nothing
            Set v_seccion = Nothing
            Set v_describe = Nothing
    %>
</div>
<!-- ////////////////////////////////////////////////// FIN ///////////////////////////////////////////////////////// -->

El archivo XML sería este:

Código XML:

Ver original<?xml version="1.0" encoding="iso-8859-1"?>
     <items>
    <item>
        <v_id>1</v_id>
        <v_link>http://www.youtube.com/watch?v=qMlmcQTN-Es</v_link>
        <v_titulo>Título.</v_titulo>
        <v_seccion>Sección.</v_seccion>
        <v_describe>Descripción.</v_describe>
    </item>
    <item>
        <v_id>2</v_id>
        <v_link>http://www.youtube.com/watch?v=qMlmcQTN-Es</v_link>
        <v_titulo>Título.</v_titulo>
        <v_seccion>Sección.</v_seccion>
        <v_describe>Descripción.</v_describe>
    </item>
    </items>

De verdad Mil gracias si me podéis echar un cable.
Saludos.

Mexman · #2 (**permalink**) 10/03/2010, 19:08

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>

Mexman · #3 (**permalink**) 15/03/2010, 06:12

Se me olvido. Este es el fin de tanto quebradero de cabeza:
[URL="http://www.xtremexperience.es/videos.asp"]http://www.xtremexperience.es/videos.asp[/URL]

Tengo que mejorar el diseño evidentemente que esta todavía bastante simple, pero lo resolveré más adelante ya que ahora tengo que revisar los errores que me da con jQuery & jQueryUI. El error en sí, lo tengo en la carga de esta pagina sobre el index de la web. Es decir en videos.asp tengo un script que me carga las secciones dentro de un div/id contenedor y como esta galería hace con otro script exactamente lo mismo, creo que al tener mayor jerarquía el index invalida el script de la sección. Por tanto se cruzan, me esta viniendo bastante bien por una parte ya que ahora empiezo a interpretar correctamente las librerías ya que hasta hoy no me había molestado en leerme su documentación. Como muchas otras cosas miraba código y lo amoldaba a l que quería.

Al final este post va a ser un bitacora de desarrollo, pero todo sea porque al proximo que se le ocurra algo por el estilo, tenga una referencía para consultar sus dudas.

Espero en unas semanas ya traeros todo resuelto.

Saludos y Volvere !!
:)