<% Dim mydoc Set mydoc=Server.CreateObject("Microsoft.XMLDOM") mydoc.async=false mydoc.load(Server.MapPath("prensa/videos.xml")) if mydoc.parseError.errorcode<>0 then Response.write("Error. No se puede leer el origen de datos.") else Dim titulo Dim video Dim tam Dim format Dim w Dim h Set ElementList = mydoc.getElementsByTagName("video ") Set ElementInter = mydoc.getElementsByTagName("entrevista ") Set ElementFoto = mydoc.getElementsByTagName("imagen ") If ElementList.length > 0 Then %> <% For k=0 To (ElementList.length -1) titulo = ElementList.item(k).attributes.getNamedItem("galego").value video = ElementList.item(k).attributes.getNamedItem("destino").value tam = ElementList.item(k).attributes.getNamedItem("formato").value format = Split(tam,"x") w = Cint(format(0)) h = Cint(format(1)) %> <% Next End If 'aqui ponemos la mandanga ... If ElementInter.length > 0 Then %> <% For k=0 To (ElementInter.length -1) titulo = ElementInter.item(k).attributes.getNamedItem("galego").value video = ElementInter.item(k).attributes.getNamedItem("destino").value tam = ElementInter.item(k).attributes.getNamedItem("formato").value format = Split(tam,"x") w = Cint(format(0)) h = Cint(format(1)) %> <% Next End If 'hasta aqui ................. end if %>
<%=titulo%>
<%=titulo%>
Fotos Ruth Beltrán.