<% extURL = "http://www.bilisimhukuk.com/feed/rss/" Set xmlDoc = createObject("Msxml.DOMDocument" ) xmlDoc.async = false xmlDoc.setProperty "ServerHTTPRequest" , true xmlDoc.load(extURL) If (xmlDoc.parseError.errorCode <> 0) Then Response.Write xmlDoc.parseError.reason Else Set channelNodes = xmlDoc.selectNodes("//item/*" ) a= "1" For Each entry in channelNodes If entry.tagName = "description" Then response.write entry.text & "
" End If If entry.tagName = "title" Then response.write entry.text & "
" End If If entry.tagName = "pubDate" Then response.write entry.text & "
" End If If entry.tagName = "link" Then response.write entry.text & "
" End If Next End If %>