<% Response.Charset = "iso-8859-1" %> <% Dim objXMLjAct Dim objItemListjAct Dim objItemListjAct2 Dim objItemjAct Dim strHTMLjAct r="http://admin.hoysport.com/geca/CNF_00554.Xml?ver=0.806018738541752" Set objXMLjNueva = Server.CreateObject("MSXML2.FreeThreadedDOMDocument") objXMLjNueva.async = False objXMLjNueva.setProperty "ServerHTTPRequest", True objXMLjNueva.Load(r) Set objItemListjNueva = objXMLjNueva.getElementsByTagName("Fase") For Each objItemjNueva In objItemListjNueva if ucase(objItemjNueva.attributes(1).value) = ucase(request.QueryString("grupo")) then for i=0 to 5 FechaPartido=objItemjNueva.childNodes(i).attributes(1).value 'Fecha %>
<%=FechaPartido%>
Jornada <%=i+1%>
<% for x=0 to 1 ' Saca los 2 partidos EquipoLocal=objItemjNueva.childNodes(i).childNodes(x).attributes(3).value EquipoVisita=objItemjNueva.childNodes(i).childNodes(x).attributes(4).value GolesLocal=objItemjNueva.childNodes(i).childNodes(x).attributes(5).value GolesVisita=objItemjNueva.childNodes(i).childNodes(x).attributes(6).value 'response.Write(EquipoLocal&" "&GolesLocal&" - "&GolesVisita&" "&EquipoVisita&"
") %>
<%=EquipoLocal%>
<%=GolesLocal%> - <%=GolesVisita%>
<%=EquipoVisita%>
<% next %>
<% next end if NEXT %>