NTVMSNBC Haberleri (tr)

XMLHTTP bileşeni ile Ntvmsnbc.com adresinden güncel haberler listelenmekte.

Kodu .asp sayfası olarak kayıt ettikten sonra çalıştırmanız yeterli.



************************************************** ******



200 Then

pl1 = pl1 & pl2

pl2 = ""

cl2 = 1

End If

End If

Loop

BinaryToString = pl1 & pl2 & pl3

End Function





Function TRTemizle(strGelen)

strGelen = Replace(strGelen, "İ", "?")

strGelen = Replace(strGelen, "ş", "?")

strGelen = Replace(strGelen, "ğ", "?")

strGelen = Replace(strGelen, "ö", "?")

strGelen = Replace(strGelen, "ı", "?")

strGelen = Replace(strGelen, "ü", "?")

strGelen = Replace(strGelen, "ç", "?")

strGelen = Replace(strGelen, "Ş", "?")

strGelen = Replace(strGelen, "Ğ", "?")

strGelen = Replace(strGelen, "Ö", "?")

strGelen = Replace(strGelen, "Ü", "?")

strGelen = Replace(strGelen, "Ç", "?")

TRTemizle = strGelen

End Function



SET RF = Request.Form



strIcerik = (VeriAl("http://www.ntvmsnbc.com/news/BCList2.txt"))

strKategori = TRIM(RF("Kategori"))

IF strKategori = "" THEN strKategori = "G"

iBasla = Instr(strIcerik, "+" & strKategori)+Len(strKategori)+1

iBitis = Instr(iBasla, strIcerik, "+")-1

strIcerik = Mid(strIcerik, iBasla, iBitis-iBasla)



FOR EACH strSatir IN Split(strIcerik, CHR(13))

IF Instr(strSatir, "|") > 0 THEN

strLink = "http://www.ntvmsnbc.com" & TRIM(Replace(Left(strSatir, Instr(strSatir, "|")-1), CHR(13), " "))

strBaslik = TRIM(Right(strSatir, Len(strSatir)-Instr(strSatir, "|")))



%>

<a href="%=strLink%" target="_blank"></a><br>