• Europa League
  • ENCUENTRO DE LA FINAL
    Ida
    • <% 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_00410.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 = "01" 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)="

    Narración

    " 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 End If '** NEXT %> <% For i=0 To 0%> <% 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(),"26/05/2010") > 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)%>
    <%=cronica%>
    • <% Next %>