NTVMSNBC Haberlerini Almak

<%
Public Function VeriAl(strGelen)
SET objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
With objXMLHTTP
.Open "GET", strGelen, False
.Send
VeriAl = .ResponseBody
End With
VeriAl = BinaryToString(LEft(VeriAl, 1000))
SET objXMLHTTP = Nothing
End Function

Private Function BinaryToString(Binary)
Dim cl1, cl2, cl3, pl1, pl2, pl3
Dim L
cl1 = 1
cl2 = 1
cl3 = 1
L = LenB(Binary)

Do While cl1<=L
pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1)))
cl1 = cl1 + 1
cl3 = cl3 + 1
If cl3>300 Then
pl2 = pl2 & pl3
pl3 = ""
cl3 = 1
cl2 = cl2 + 1
If cl2>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 = TRIM(Replace(Left(strSatir, Instr(strSatir, "|")-1), CHR(13), " "))
strLink = "http://www.ntvmsnbc.com" & Mid(strLink, 3)
strBaslik = TRIM(Right(strSatir, Len(strSatir)-Instr(strSatir, "|"))) %>
<a href="<%=strLink%>" target="_blank"><%=strBaslik%></a><br /><%
END IF
NEXT
strIcerik = ""
%>

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

ntvmsnbc haberlerini almak