Ahmet Korkut Tahaoğlu

Con el siguiente código NTVMSNBC noticia 'de la XML methoduyla puede tomar.

NTVMSNBC "pertenece a todos los RSS direcciones pueden encontrarse en esta dirección: http://www.ntvmsnbc.com/id/24939559

En mi código puedo usar RSS dirección, NTV es propiedad de la sección de noticias de tecnología.

<%
TheFeed = 'http://www.ntvmsnbc.com/id/24927532/device/rss/rss.xml "

Establecer objXML Server.CreateObject = ("Microsoft.XMLDOM")

objXML.Async = Falso

objXML.SetProperty "ServerHTTPRequest", True

objXML.ResolveExternals = true

objXML.ValidateOnParse = true

objXML.Load (TheFeed)

CellCount = 0

Si (objXML.parseError.errorCode = 0) Then

Establecer objRoot = objXML.documentElement

Si IsObject (objRoot) = False Then

Response.Write "Error en la operación."

Más

objItems Set = objRoot.getElementsByTagName ("item")

Si IsObject (objItems) = True Then

Para cada objItem en objItems

On Error Resume Next

TheTitle = objItem.selectSingleNode ("title"). Texto
ObjItem.selectSingleNode TheLink = ("links"). Texto
ObjItem.selectSingleNode TheDesc = ("descripción"). Texto
ObjItem.selectSingleNode TheDate = ("pubDate"). Texto

Response.Write "<a href=" TheLink & & ">" & _
"<b>" Y TheTitle & "</ b>" & _
"</ A>" & _
"<br />"

Response.Write & _ TheDesc
"<br />"

Response.Write & _ TheDate
"<hr />
"Usted agregar registros a la base de datos de código. De acuerdo con sus necesidades.
Próximo
Response.Write ("Noticias de NTV.")
End If
ObjItems = Nothing Set
End If
Más
Response.Write "Error en la operación".
End If

ObjXML = Nothing Set
%>

Si tiene problemas para ejecutar el código en este tema que me haga saber en los comentarios a continuación.