Kodumuz
<%
Set sorhocam = Server.CreateObject("msxml2.DOMDocument" )
sorhocam.async = false
sorhocam.resolveExternals = false
sorhocam.setProperty "ServerHTTPRequest" ,true
sorhocam.load("http://www.sorhocam.com/rss/index.asp" )
Set sonuc =sorhocam.getElementsByTagName("item")
%>
<%
for i = 1 to 9 ' veri adeti
baslik = sonuc.item(i).childnodes.item(0).nodeTypedValue
link = sonuc.item(i).childnodes.item(1).nodeTypedValue
aciklama = left(sonuc.item(i).childnodes.item(2).nodeTypedValue,140)
%>
<%= baslik %>
<%= aciklama %>...
<%next%>
Bir başka makalede görüşmek diyeğiyle şimdilik hoşçakalın.