Döngü Sorunu - R10.net

17-04-2010, 11:15:36

Üyeliği durduruldu

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>

17-04-2010, 13:17:54

#2