• Copa del Rey
  • ENCUENTROS DE SEGUNDA ELIMINATORIA
    Resultado
    • <% Response.Charset = "iso-8859-1" Dim objXMLjAct Dim objItemListjAct Dim objItemListjAct2 Dim objItemjAct Dim strHTMLjAct cont=0 cont2=0 i=0 j=0 y=0 clas=0 ano=year(now) dia=day(now) mes=month(now) r="http://admin.hoysport.com/geca/CRF_00556_09_01.Xml?ver=0.806018738541752" Set objXMLjAct = Server.CreateObject("MSXML2.FreeThreadedDOMDocument") objXMLjAct.async = False objXMLjAct.setProperty "ServerHTTPRequest", True objXMLjAct.Load(r) 'http://admin.hoysport.com/geca/CGF_07344.Xml?ver=0.6700115990825 Set objItemListjAct = objXMLjAct.getElementsByTagName("CRR") For Each objItemjAct In objItemListjAct Set objItemListjAct2 = objXMLjAct.getElementsByTagName("RES") For Each objItem2 In objItemListjAct2 Set objItemList8 = objXMLjAct.getElementsByTagName("RE") For Each objItem8 In objItemList8 equipoLocal=objItem8.attributes(3).value golesLocal=objItem8.attributes(6).value equipoVisita=objItem8.attributes(5).value golesVisita=objItem8.attributes(7).value FechaPartido=replace(objItem8.attributes(8).value,"-","/") HoraPartido=objItem8.attributes(9).value Estadio=objItem8.attributes(15).value URLDirecto=objItem8.attributes(20).value if URLDirecto <> "" then cronica="

    Crónica

    " else cronica="" end if if golesLocal > golesVisita then equipoLocal=""&equipoLocal&"" else equipoVisita=""&equipoVisita&"" end if %>
  • <%=equipoLocal%>
    <%=equipoVisita%>
    <%=golesLocal%> - <%=golesVisita%>
    <%=cronica%>
    • <% ' Set objItemList9 = objXMLjAct.getElementsByTagName("GOL") ' For Each objItem9 In objItemList9 ' ' select case objItem9.attributes(7).value ' case IDlocal ' ' case IDVisita ' ' end select ' NEXT NEXT NEXT NEXT %>