• Champions League
  • ENCUENTROS DE OCTAVOS DE FINAL
    Ida
    Vuelta
    Total
    • <% 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/CNF_00409.Xml?ver=0.806018738541752" Dim equipoLocal1(15) Dim golesLocal1(15) Dim equipoVisita1(15) Dim golesVisita1(15) Dim FechaPar1(15) Dim URLDirecto1(15) Dim cronica1(15) Dim equipoLocal2(15) Dim golesLocal2(15) Dim equipoVisita2(15) Dim golesVisita2(15) Dim FechaPar2(15) Dim Ganador(15) Dim URLDirecto2(15) Dim cronica2(15) 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("Fase") For Each objItemjAct In objItemListjAct If objItemjAct.attributes(0).value = "04" Then '** For Each objItem2 In objItemjAct.childNodes(0).childNodes equipoLocal1(i)=objItem2.attributes(3).value golesLocal1(i)=objItem2.attributes(5).value equipoVisita1(i)=objItem2.attributes(4).value golesVisita1(i)=objItem2.attributes(6).value FechaPar1(i)=Replace(objItem2.attributes(9).value,"-","/") ' If equipoLocal1(i) = "Deportivo de La Coruña" Then ' equipoLocal1(i) = "Deportivo" ' End If ' If equipoVisita1(i) = "Deportivo de La Coruña" Then ' equipoVisita1(i) = "Deportivo" ' End If URLDirecto1(i)=objItem2.attributes(39).value if URLDirecto1(i) <> "" then cronica1(i)="

    Crónica

    " else cronica1(i)="" end if ' if golesLocal1(i) > golesVisita1(i) then ' equipoLocal1(i)=""&equipoLocal1(i)&"" ' ElseIf golesLocal1(i) < golesVisita1(i) then ' equipoVisita1(i)=""&equipoVisita1(i)&"" ' end If 'response.write(equipoLocal1(i) &" ("&golesLocal1(i)&") - ("&golesVisita1(i)&") "& equipoVisita1(i) & "
    ") i=i+1 Next 'response.write("

    =======================================================================================

    ") i=0 If datediff("d",Now(),"10/11/2009") <=0 then For Each objItem2 In objItemjAct.childNodes(1).childNodes equipoLocal2(i)=objItem2.attributes(3).value golesLocal2(i)=objItem2.attributes(5).value equipoVisita2(i)=objItem2.attributes(4).value golesVisita2(i)=objItem2.attributes(6).value FechaPar2(i)=Replace(objItem2.attributes(9).value,"-","/") Ganador(i)=objItem2.attributes(17).value ' If Ganador(i) = "Deportivo de La Coruña" Then ' Ganador(i) = "Deportivo" ' End If ' If equipoLocal2(i) = "Deportivo de La Coruña" Then ' equipoLocal2(i) = "Deportivo" ' End If ' If equipoVisita2(i) = "Deportivo de La Coruña" Then ' equipoVisita2(i) = "Deportivo" ' End If URLDirecto2(i)=objItem2.attributes(39).value if URLDirecto2(i) <> "" then cronica2(i)="

    Crónica

    " else cronica2(i)="" end if ' if golesLocal2(i) > golesVisita2(i) then ' equipoLocal2(i)=""&equipoLocal2(i)&"" ' ElseIf golesLocal2(i) < golesVisita2(i) then ' equipoVisita2(i)=""&equipoVisita2(i)&"" ' end If 'response.write(equipoLocal2(i) &" ("&golesLocal2(i)&") - ("&golesVisita2(i)&") "& equipoVisita2(i) & "
    ") i=i+1 Next End If End If '** NEXT %> <% For i=0 To 7 totGol1=CInt(golesLocal1(i))+CInt(golesVisita2(i)) totGol2=CInt(golesVisita1(i))+CInt(golesLocal2(i)) cronica="" ' comprobamos para poner la crónica de la ida o de la vuelta If datediff("d",Now(),"10/11/2009") > 0 Then 'IDA cronica=cronica1(i) If datediff("d",Now(),FechaPar1(i)) >=0 Then ' Si ha jugado ya: pon la crónica cronica="" End if Else 'VUELTA cronica=cronica2(i) End If totGol01=CInt(golesLocal1(i))+(CInt(golesVisita2(i))*2) totGol02=(CInt(golesVisita1(i))*2)+CInt(golesLocal2(i)) if Ganador(i) = equipoLocal1(i) then 'response.Write(Ganador(i)) equipoLocal1(i)=""&equipoLocal1(i)&"" elseif Ganador(i) = equipoVisita1(i) then 'response.Write(Ganador(i)) equipoVisita1(i)=""&equipoVisita1(i)&"" end if ' if totGol01 > totGol02 then ' equipoLocal1(i)=""&equipoLocal1(i)&"" ' ElseIf totGol1 < totGol2 then ' equipoVisita1(i)=""&equipoVisita1(i)&"" ' end If %>
  • <%=equipoLocal1(i)%>
    <%=equipoVisita1(i)%>
    <%=golesLocal1(i)%> - <%=golesVisita1(i)%>
    <%=golesVisita2(i)%> - <%=golesLocal2(i)%>
    <%=totGol1%> - <%=totGol2%>
    <%=cronica%>
    • <% Next %>