Toda la información de la Eurocopa 2012 de Polonia y Ucrania, con los videos de los resúmenes de todos los partidos. Los mejores goles, los mejores momentos, las mejores jugadas y ¡todos con la roja!
La Eurocopa 2012 ( Campeonato Europeo de Fútbol de la UEFA o UEFA EURO 2012) es la XIV edición de la Eurocopa, el principal torneo entre selecciones de fútbol europeas organizado por la UEFA. Esta edición del torneo se realizará en Polonia y Ucrania, desde el 8 de junio al 1 de julio de 2012.
<%
function CortarCadena(Cuerpo)
on error resume next
dim Corto,CadenaRes
Corto=200
Cadena= Cuerpo
if cint(len(cuerpo))>Corto then
CadenaRes=trim(mid(Cadena,1,Corto-1))
posicion=instrrev(CadenaRes,chr(32),-1,0)
CadenaRes=trim(mid(CadenaRes,1,posicion))
CortarCadena=CadenaRes & " ... "
else
CortarCadena=Cadena&" "
end if
end function
On Error Resume next
Response.Charset = "iso-8859-1"
Dim objXML
Dim objItemList
Dim objItem
Dim strHTML
Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
objXML.async = False
objXML.setProperty "ServerHTTPRequest", True
objXML.Load("http://www.abc.es/hemeroteca/rss/todo/?exa=eurocopa+2012+video+resumen&or=1&ed=abc&nres=20")
If objXML.parseError.errorCode <> 0 Then
Response.Write "No se ha podido acceder al contenido, vuelve a intentarlo más tarde." & vbCrLf
End If
'OBTENEMOS TODOS LOS ITEM
Set objItemList = objXML.getElementsByTagName("item")
Set objXML = Nothing
otras=""
conta=1
For Each objItem In objItemList
TituloRSS = ""
LinkRSS = ""
DescripcionRSS = ""
FechaRSS = ""
'OBTENEMOS LOS DISTINTOS NODOS
TituloRSS = objItem.childNodes(0).text
LinkRSS = objItem.childNodes(2).text
DescripcionRSS = objItem.childNodes(1).text
FechaRSS = objItem.childNodes(4).text
If (conta=1) Then
Response.Write (" - ")
Response.Write ("
")
Else
If (conta<=3) Then
Response.Write ("- ")
'Response.Write ("
"& FechaRSS &"
")
Response.Write (" ")
Else
otras=otras&""
End If
End if
conta=conta+1
Next
Set objItemList = Nothing
%>
-