Tercera boda de la duquesa de Alba

El sí más feliz de la duquesa

El sí más feliz de la duquesa

Cayetana, con un vestido color rosa pálido de los modistos Victorio y Lucchino, lanzó su ramo de novia y hasta bailó una sevillana tras la ceremonia.

Así fue la boda

Minuto a minuto, desde ABC te contamos todos los detalles, desde la llegada de los invitados hasta el posado de los novios, con baile incluído.

Alfonso y Cayetana, la historia de amor

Beatriz Cortázar

Se reencontraron en un cine tras años de amistad a distancia y, al principio, solo una amiga y su secretaria conocían la relación.

Las tres bodas de la duquesa

Teresa Ródenas

La duquesa pasa a sus 85 años por tercera vez por el altar. Pero, aunque son ya tres bodas, no ha habido ni un solo divorcio.

Última hora

    <% 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=duquesa+alba&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<=12) Then Response.Write ("
  • ") Response.Write ("

    " & TituloRSS & "

  • ") Else otras=otras&"
  • " & TituloRSS & "

  • " End If End if conta=conta+1 Next Set objItemList = Nothing %>

Más noticias >>

ABC

Copyright © ABC Periódico Electrónico S.L.U, Madrid