<%
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
Dim PosicionE(33)
Dim NEquipo(33)
Dim Puntos(33)
Dim PJugados(33)
Dim PGanados(33)
Dim PEmpatados(33)
Dim PPerdidos(33)
ano=year(now)
dia=day(now)
mes=month(now)
r="http://admin.hoysport.com/geca/CSF_00696_10.Xml?ver=0.806018738541752"
'554 la del 2010
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("Clasificaciones")
Set objItemList8 = objItemListjAct(0).getElementsByTagName("Equipo")
For Each objItem8 In objItemList8
PosicionE(j)=objItem8.attributes(0).value
NEquipo(j)=objItem8.attributes(1).value
Puntos(j)=objItem8.attributes(3).value
PJugados(j)=objItem8.attributes(4).value
PGanados(j)=objItem8.attributes(5).value
PEmpatados(j)=objItem8.attributes(6).value
PPerdidos(j)=objItem8.attributes(7).value
select case ucase(NEquipo(j))
case ucase(trim("Girondins de Burdeos"))
NEquipo(j)="Girondins"
case ucase(trim("Manchester United"))
NEquipo(j)="Man. United"
case ucase(trim("CFR 1907 Cluj Napoca"))
NEquipo(j)="CFR 1907"
end select
j=j+1
NEXT
For Each objItemjAct In objItemListjAct
Set objItemListjAct2 = objXMLjAct.getElementsByTagName("CLF")
cuenta=0
For Each objItem2 In objItemListjAct2
cuenta=cuenta+1
Grupo=objItem2.attributes(0).value
if (cuenta MOD 2)=0 then ' Si es par
estiloBOX="championbox_dxa"
else
estiloBOX="championbox"
end if
%>
<%
next
exit for
end if
next
end if
NEXT
%>
<%
select case Grupo
case "A"
y=0
case "B"
y=4
case "C"
y=8
case "D"
y=12
case "E"
y=16
case "F"
y=20
case "G"
y=24
case "H"
y=28
end select
for j=y to y+3
select case PosicionE(j)
case 1
colorfila="#BCCEDF"
case 2
colorfila="#BCCEDF"
case 3
colorfila="#D6BCDF"
case else
colorfila="#f1f1f1"
end select
%>
<%next%>
<%
NEXT
NEXT
%>
Grupo <%=Grupo%>
<%
r="http://admin.hoysport.com/geca/CNF_00696.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 objItemjNueva.attributes(1).value = Grupo then
for i=5 to 0 step -1
FechaPartido=replace(objItemjNueva.childNodes(i).attributes(1).value,".","/") 'Fecha
DiasDiferencia=DateDiff("d", FechaPartido, now())
if DiasDiferencia >= 0 or i=0 then
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
select case ucase(EquipoLocal)
case ucase(trim("CFR 1907 Cluj Napoca"))
EquipoLocal="CFR 1907"
case ucase(trim("Tottenham Hotspurs"))
EquipoLocal="Tottenham"
' case ucase(trim("CFR 1907 Cluj Napoca"))
' EquipoLocal="CFR 1907"
end select
select case ucase(EquipoVisita)
case ucase(trim("CFR 1907 Cluj Napoca"))
EquipoVisita="CFR 1907"
case ucase(trim("Tottenham Hotspurs"))
EquipoVisita="Tottenham"
' case ucase(trim("CFR 1907 Cluj Napoca"))
' EquipoLocal="CFR 1907"
end select
%>
<%=EquipoLocal%>
<%=GolesLocal%> - <%=GolesVisita%>
<%=EquipoVisita%>
Pos.
Equipos
Pts
PJ
PG
PE
PP
<%=PosicionE(j)%>.
<%=NEquipo(j)%>
<%=Puntos(j)%>
<%=PJugados(j)%>
<%=PGanados(j)%>
<%=PEmpatados(j)%>
<%=PPerdidos(j)%>
Champions League
Europa League