 Via Laietana, 9, 1º 1ª
08003 BARCELONA
Tel. 93 310 03 12
Tel. 93 310 04 13
Fax 93 310 14 00
kecprosport@kecprosport.com
|
|
|
<%
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.europapress.es/rss/rss.aspx?ch=396")
If objXML.parseError.errorCode <> 0 Then
Response.Write "" & vbCrLf
Response.Write "Error: " & objXML.parseError.reason
Response.Write "Linea: " & objXML.parseError.line & vbCrLf
Response.Write "Texto: " & Server.HTMLEncode(objXML.parseError.srcText) & vbCrLf
Response.Write "" & vbCrLf
End If
'OBTENEMOS TODOS LOS ITEM
Set objItemList = objXML.getElementsByTagName("item")
Set objXML = Nothing
For Each objItem In objItemList
'OBTENEMOS LOS DISTINTOS NODOS
TituloRSS = objItem.childNodes(0).text
LinkRSS = objItem.childNodes(1).text
DescripcionRSS = objItem.childNodes(2).text
FechaRSS = objItem.childNodes(3).text
Response.Write ("" & TituloRSS & "")
Next
Set objItemList = Nothing
Application.Lock
Application("LectorRSSContenido") = strHTML
Application("LectorRSSActualizado") = Now()
Application.UnLock
%>
<%= Application("LectorRSSContenido") %> |
|
|
|
