ilgine ve alakan teşekkür ederim bu işime yarar... agile isn't how fast you can go, it's how fast you can turn.

Arkadaşlar bildiğiniz gibi inndir.com'daki teknoloji haberlerini sağladığı kod sayesindfe sitemize ekleyebiliyoruz. Buna benzer siyasi gelişmeleri içeren bir gazete veya bir haber ajansının sağladığı kodları arıyorum, yardımcı olursanız sevinirim. agile isn't how fast you can go, it's how fast you can turn.

<% Dim intForNewsSayDim strKaynakDim arryKaynakstrKaynak = OkuURL strKaynak = Mid(strKaynak,859, Len -891)arryKaynak = split For intForNewsSay=1 to UBound if intForNewsSay > 6 Then exit for Response. write "<a href=""" & GetTagText(arryKaynak ,"link") & """ target=""_blank""> " & GetTagText(arryKaynak ,"title") & "</a><br>" Response. write "<hr>"nextFunction OkuURL Dim oXMLHttp on error resume Next Set oXMLHttp = Server. CreateObject("MSXML2. XMLHTTP") oXMLHttp. Open "GET" , Trim , false oXMLHttp. send If oXMLHttp. status = 200 Then OkuURL = oXMLHttp. responseText ElseIf oXMLHttp. status = 404 Then OkuURL = "Sayfa Bulunamadi." ElseIf oXMLHttp. status = 500 Then OkuURL = "Sayfada ic sunucu hatasi." Else OkuURL = "HATA. HATA KODU = " & oXMLHttp. status End If Set oXMLHttp = Nothing End FunctionFunction GetTagText If InStr = 0 Then GetTagText = "" Exit Function End If GetTagText = Mid(SourceString, InStr + Len , (InStr - (InStr + Len End Function %> -- benimm kullandığım ntv son 5 haber kodu kelimeler albayım bazı anlamlara gelmiyor.