Destacados
ABC te trae en exclusiva la historia del mejor club de todos los tiempos
Desde enero, sigue la «Historia del Real Madrid contada por ABC», un riguroso relato de los 110 años del club más laureado del mundo. Consigue con ABC los cromos que completan la obra, de lunes a viernes y de forma gratuita, .
Dos entidades centenarias, dos vidas paralelas
Federico Ayala
Desde 1903 ABC ha contado las gestas del Real Madrid en más de 138.000 páginas. Nuestro archivo atesora más de 75.000 fotos del club
Butragueño: «La quinta devolvió al socio la ilusión del Madrid de Di Stéfano»
Tomás González-Martín
«Entra en el área y mira adelante, al portero, no al balón. Es un grande». Di Stéfano le caló. Y lo ascendió al Madrid en 1984. Fue el comienzo de una época que levantó al público de sus asientos.
Héroes para el recuerdo de los amantes del fútbol
Zamora, Casillas, Di Stéfano, Gento, Butragueño, Raúl, Zidane, Cristiano… Elija su alineación favorita del Madrid y participe en el debate de ABC.es.
¿Cuánto sabes de la historia del mejor club del mundo?
Participa en el concurso de preguntas de ABC y gana una camiseta de Cristiano Ronaldo.
La plantilla ideal
Los 24 jugadores de la historia
Nos hemos atrevido con esta propuesta de plantilla ideal, abierta al debate de los lectores
Encuesta
¿Cuál es tu 11 ideal?
Te dejamos una gran selección de jugadores para que elijas tu 11 ideal. Te proponemos un sistema 4-3-3. ¡Vota ya!
Fotografías
Noticias
-
<%
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/noticia?exa=real+madrid&or=1&nres=20&ed=abc")
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 ("
" & TituloRSS & "
")
Else
If (conta<=14) Then
Response.Write (" - ")
'Response.Write ("
"& FechaRSS &"
") Response.Write ("" & TituloRSS & "
")
Else
otras=otras&" " & TituloRSS & "
"
End If
End if
conta=conta+1
Next
Set objItemList = Nothing
%>