Merhaba arkadaşlar aşşağıdaki kodlar rss veri çekmektedir fakat rss deki tüm linklerin verisini çekiyor ben bir for each döngüsü kurdum ama işe yaramadı nedense rss deki son 5 linklin verisini nasıl çektirebilirim döngüye nasıl sokabilirm yardımlarınızı bekliyorum
<% @ 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>
<%
Function VeriBul(BaslangicDegeri,BitisDegeri,Verimizden)
Set RegEx = New RegExp
With RegEx
.IgnoreCase = True
.Global = True
.Pattern = "(" & BaslangicDegeri & ")(.+?)(" & BitisDegeri & ")"
End With
Set Sonuc = RegEx.Execute(Verimizden)
For Each i In Sonuc
VeriBul = i.SubMatches(1)
Next
If IsEmpty(VeriBul) Then VeriBul = "Sonuc Yok"
Set RegEx = Nothing
Set Sonuc = Nothing
End Function
Function veriCek(Adresten)
On Error Resume Next
Set strTear = Server.CreateObject("Softwing.AspTear")
strTear.FollowRedirects = True
veriCek = strTear.Retrieve(Adresten,2, "","","")
Set strTear = Nothing
End Function
strDeger1 = "</div></div><div id=""content"" class=""w649 fL""><h1>"
strDeger2 = "</h1><h2>"
strDeger3 = "<h2>"
strDeger4 = "</h2>"
strDeger5 = "<span id=""byLine""></span>"
strDeger6 = "<div class=""aC"" id=""AdShowcase_F1"">"
strDeger7 = "</a><p class=""textBodyBlack""><span id=""byLine""></span>"
strDeger8 = "<script type=""text/javascript"" src=""http://blog.ntvmsnbc.com/nra/nra.js""></script&g t;"
%>
<%
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("http://rsslinki.rss.xml")
If (objXML.parseError.errorCode = 0) Then
Set objRoot = objXML.documentElement
If IsObject(objRoot) = False Then
response.write "<li>Connection Error!"
End If
Set objItems = objRoot.getElementsByTagName("item")
If IsObject(objItems) = True Then
i=0
For Each objItem in objItems
i = i +1
link = objItem.selectSingleNode("link").Text
HTMLalAdresten = veriCek(link)
strBaslikBul = VeriBul(strDeger1,strDeger2,HTMLalAdresten)
strSiiriBul = VeriBul(strDeger3,strDeger4,HTMLalAdresten)
strTitleBul = VeriBul(strDeger5,strDeger6,HTMLalAdresten)
strkitleBul = VeriBul(strDeger7,strDeger8,HTMLalAdresten)
Response.Write turkce(strBaslikBul)
Response.Write("<hr>")
Response.Write turkce(strSiiriBul)
Response.Write turkce(strTitleBul)
Response.Write turkce(strkitleBul)
Response.Write ("<hr>")
%>
<%
if i = 3 then response.end
Next
else
response.write "<li>Connection Error!"
End If
Set objItems = Nothing
Set objRoot = Nothing
End If
Set objXML = Nothing
function turkce(data)
data = Replace(data, "ü", "ü" )
data = Replace(data, "Ãœ", "Ü" )
data = Replace(data, "Å ", "Ş" )
data = Replace(data, "ı", "ı" )
data = Replace(data, "Ä°", "İ" )
data = Replace(data, "ÅŸ", "ş" )
data = Replace(data, "ç", "ç" )
data = Replace(data, "ö", "ö" )
data = Replace(data, "ÄŸ", "ğ" )
data = Replace(data, "Ö", "Ö" )
data = Replace(data, "Ç", "Ç" )
turkce = data
end function
%>
</body>