Vídeo con la declaración de «alto el fuego permanente y verificable» declarado por ETA en enero de 2011
-
<%
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/Espa%C3%B1a-s?exa=eta&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<=12) Then
Response.Write ("
" & TituloRSS & "
" & DescripcionRSS & "
")
Else
otras=otras&"" & TituloRSS & "
" & DescripcionRSS & "
"
End If
conta=conta+1
Next
Set objItemList = Nothing
%>