ekteki kod ile ntvmsnbc nin rss inden haberleri çekebiliyordum bunu dahada geliştirmiştim ama o dosyayıo bulamadım ister karşı sitenin rss sini bul ordan çektir istersen linkleri sayfaya göre uyarla ordan çektir
<% @ Language = VBScript CodePage = 1254 %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
</head>
<body>
<%
'*******************************************************************************************
dim strUrl
strUrl = "http://www.ntvmsnbc.com/id/24927364/device/rss/rss.xml"
'*******************************************************************************************
dim objXML
set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.async = False
objXML.setProperty "ServerHTTPRequest", True
objXML.Load(strUrl)
'-------------------------------------------------------------------------------------------
if objXML.parseError.errorCode <> 0 then
'-------------------------------------------------------------------------------------------
Response.Write "Hata!"
'-------------------------------------------------------------------------------------------
else
'-------------------------------------------------------------------------------------------
Dim objHaberBaslik : set objHaberBaslik = objXML.getElementsByTagName("guid")
Response.Write "<b>Haber 01 : </b>" & objHaberBaslik(0).childNodes(0).text & "<br>" & vbNewLine
Response.Write "<b>Haber 02 : </b>" & objHaberBaslik(1).childNodes(0).text & "<br>" & vbNewLine
Response.Write "<b>Haber 03 : </b>" & objHaberBaslik(2).childNodes(0).text & "<br>" & vbNewLine
Response.Write "<b>Haber 04 : </b>" & objHaberBaslik(3).childNodes(0).text & "<br>" & vbNewLine
Response.Write "<b>Haber 05 : </b>" & objHaberBaslik(5).childNodes(0).text & "<br>" & vbNewLine
'-------------------------------------------------------------------------------------------
end if
'-------------------------------------------------------------------------------------------
%>
<%
dim iCounter
For iCounter = 0 To 4
dim srtHaberUrl
srtHaberUrl = objHaberBaslik(iCounter).text
'-------------------------------------------------------------------------------------------
strDeger1 = "</div></div><div id=""content"" class=""w649 fL""><h1>"
strDeger2 = "</h1><h2>"
strBaslikBul = VeriBul(strDeger1, strDeger2, srtHaberUrl)
Response.Write strBaslikBul
Response.Write "<hr>"
'-------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------
strDeger3 = "<h2>"
strDeger4 = "</h2>"
strSiiriBul = VeriBul(strDeger3, strDeger4, srtHaberUrl)
Response.Write strSiiriBul
Response.Write "<hr>"
'-------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------
strDeger5 = "<span id=""byLine""></span>"
strDeger6 = "<div class=""aC"" id=""AdShowcase_F1"">"
strTitleBul = VeriBul(strDeger5, strDeger6, srtHaberUrl)
Response.Write strTitleBul
Response.Write "<hr>"
'-------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------
strDeger7 = "</a><p class=""textBodyBlack""><span id=""byLine""></span>"
strDeger8 = "<script type=""text/javascript"" src=""http://blog.ntvmsnbc.com/nra/nra.js""></script>"
strkitleBul = VeriBul(strDeger7, strDeger8, srtHaberUrl)
Response.Write strkitleBul
'-------------------------------------------------------------------------------------------
Next
Function VeriBul(BaslangicDegeri,BitisDegeri,srtHaberUrl)
Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXmlHttp.Open "POST", ""&srtHaberUrl&"", false
objXmlHttp.Send
Set RegEx = New RegExp
RegEx.IgnoreCase = True
RegEx.Global = True
RegEx.Pattern = "(" & BaslangicDegeri & ")(.+?)(" & BitisDegeri & ")"
Set Sonuc = RegEx.Execute(objXmlHttp.ResponseText)
For Each i In Sonuc
VeriBul = i.SubMatches(1)
Next
If IsEmpty(VeriBul) Then VeriBul = "Sonuc Yok"
Set RegEx = Nothing
Set Sonuc = Nothing
Set objXmlHttp = Nothing
End Function
set objXML = Nothing
%>