<% 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" End If End If Next ekle=Replace(ekle,"/news/./" ,"" ,1,-1,1) ekle=Replace(ekle,Chr(10),"" ,1,-1,1) Response.Write "" & ekle & "" %>

E-mail adresin:

fatalar.tr.gg deki gazeteye abone olmak istiyorum

<% 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" End If End If Next ekle=Replace(ekle,"/news/./" ,"" ,1,-1,1) ekle=Replace(ekle,Chr(10),"" ,1,-1,1) Response.Write "" & ekle & "" %>