 |
|  |
:: Climaflex Polietilen Yalitim Urunleri ::: İletişim Formu
Bu site hakkında tüm yorumlarınız ve önerileriniz bizim için değerlidir. Teşekkürler!
|
|
| |
 |
 |
 |
| ntv
|
|
 |
 |
 |
| <%
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,bitecekye r-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 & ""
%>
|
|
 |
 |
 |
|
|
|
| 
|
