<% Response.Status="301 Moved Permanently" Response.AddHeader "Location", "http://www.viajesporegipto.com/noticias-egiptologia.htm" %> <% Set objXML2 = Server.CreateObject("MSXML2.FreeThreadedDOMDocument") objXML2.async = False objXML2.setProperty "ServerHTTPRequest", True objXML2.Load("http://www.viajesegipto.eu/rss.xml") Set objItemListA = objXML2.getElementsByTagName("item") Set objXML2 = Nothing For Each objItemA In objItemListA ' Nodos: 0=Título, 3=link, 2=Descripción Limite2=Limite2+1 If Limite2<=5 Then strHTML2 = strHTML2 & " " strHTML2 = strHTML2 & "" & objItemA.childNodes(0).text & vbCrLf strHTML2 = strHTML2 & "
" End if Next Set objItemListA = Nothing Response.Write strHTML2 strHTML2="" %>