Todas las noticias sobre la beatificación de Juan Pablo II
-
<%
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=beatificacion&or=1&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 & "
"&CortarCadena(DescripcionRSS)&"
")
Else
If (conta<=3) Then
Response.Write (" - ")
'Response.Write ("
"& FechaRSS &"
") Response.Write ("" & TituloRSS & "
"&CortarCadena(DescripcionRSS)&"
")
Else
otras=otras&" " & TituloRSS & "
"
End If
End if
conta=conta+1
Next
Set objItemList = Nothing
%>
-
-
<%=otras%>
Pie de foto
-
Pie de foto