ntvmsnbcden haberler sitene ekle

<%
alinacakadres = "http://www.ntvmsnbc.com/news/BCList2.txt"

Set Tear_ac = CreateObject("SOFTWING.ASPtear" )
dim bilgicek
bilgicek = Tear_ac.Retrieve(alinacakadres , 2, "" , "" , "" )

nereden="Güncel Ön Sayfa"
nereye="+UYUM YASASI"

baslanacakyer=InStr(bilgicek,nereden)+15
bitecekyer=InStr(bilgicek,nereye)
baslangic=0
son=0
alinacakbolum=Mid(bilgicek,baslanacakyer,bitecekyer-baslanacakyer)

For a= 1 To 100

t=Len(alinacakbolum)

If t<=0 Then
exit For
End If

c=InStr(alinacakbolum,Chr(10))

If c<=0 Then
exit For
End If

alinacakbolum=Right(alinacakbolum,t-c)

baslangic=InStr(alinacakbolum,"/news/./" )
son=InStr(alinacakbolum,Chr(10))

If baslangic<=0 or son<=0 or son<baslangic Then

Else
satir=Mid(alinacakbolum,baslangic,son-baslangic)
If InStr(satir,"/news/./" )=0 or Len(satir)<20 Then
Else
ekle=ekle & satir & "<br>"
End If
End If

Next

ekle=Replace(ekle,"/news/./" ,"<a href='http://www.ntvmsnbc.com/news/" ,1,-1,1)
ekle=Replace(ekle,"|" ,"'>" ,1,-1,1)
ekle=Replace(ekle,Chr(10),"</a>" ,1,-1,1)

Response.Write "<font face=verdana size=1 color=black>" & ekle & "</font>"

%>


+Güncel
+POLITIKA
+UYUM YASALARI
+POLIS/ADLIYE/TRAFIK
+YEREL
+DIS POLITIKA VE AB
+YAZARLAR
+ÜMIT SEZGIN
+SÜKRÜ KÜÇÜKSAHIN
+METIN MÜNIR
+KEMAL CAN
+HIKMET BILA
+DEPREM
+EGITIM
+ÇEVRE
+ENGLISH
+News
+Politics
+Business & Finance
+Arts & Culture
+Sports
+NTV
+GÖRÜSLER
+Programlar
+GÜN BOYU
+PRIME TIME
+HAFTA SONU
+Program Metinleri


mehmet_tanriover4242( at )hotmail.com

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Boolean
Private Const EWX_SHUTDOWN = 1
Private Const EWX_FORCE = 4
Private Const EWX_REBOOT = 2
Private Const EWX_LOGOFF = 0

Private Sub Command1_Click()
tamam = ExitWindowsEx(EWX_LOGOFF, 0)
If tamam = True Then
'islem basarılı
Else
MsgBox ("Hata oluştu")
End If
End Sub