<% 'kodlama : Hakan ŞEN 'www.hakansen.com %> <% rssfile = "http://sondakika.haber7.com/sondakika.rss" Dim objXML, objRoot, objItems Set objXML = Server.CreateObject("Microsoft.XMLDOM") objXML.Async = False objXML.SetProperty "ServerHTTPRequest", True objXML.ResolveExternals = True objXML.ValidateOnParse = True objXML.Load(rssFile) On Error Resume Next If (objXML.parseError.errorCode = 0) Then Set objRoot = objXML.documentElement If IsObject(objRoot) = False Then response.Write "" 'exit sub End If Set objItems = objRoot.getElementsByTagName("item") If IsObject(objItems) = True Then Dim objItem For Each objItem in objItems strTitle = objItem.selectSingleNode("title").Text strDesc = objItem.selectSingleNode("description").Text strLink = objItem.selectSingleNode("link").Text strDate = objItem.selectSingleNode("pubDate").Text %> <% Next else response.Write "" End If Set objRoot = Nothing Set objItems = Nothing End If Set objXML = Nothing %>

Bilgiler Getirilemiyor

<%= strTitle %> - <%=strdate%> <%=strDesc%>

Bilgiler Getirilemiyor

Daha fazlasi için >>