Make your own free website on Tripod.com
<% const Request_GET = 2 Dim haberURL, haberim, basliklar haberURL = "http://www.tr.net" Set alma = CreateObject("SOFTWING.ASPtear" ) On Error Resume Next haberim = alma.Retrieve(haberURL, Request_GET, "" , "" , "" ) If Err.Number <> 0 Then Response.Write "HATA!!!!!!! Lütfen Sayfayi Yeniden Yükleyiniz... " Response.End End If dim baslangic , bitis baslangic = "" bitis = "
" dim x , abc x = 0 abc = 0 dim lale lale = "" Do Until abc = 2 x = x + 1 If Mid(haberim,x,Len(bitis)) = bitis and abc = 1 Then abc = abc + 1 End If If Mid(haberim,x,Len(baslangic)) = baslangic Then abc = abc + 1 Else If abc = 1 Then lale = lale + Mid(haberim,x,1) End If End If Loop Function seklesok(hammadde) Dim gecicigeyik gecicigeyik = hammadde gecicigeyik = Replace(gecicigeyik, "" , "" , 1, -1, 1) gecicigeyik = Replace(gecicigeyik, "" , "" & vbCrLf, 1, -1, 1) seklesok = gecicigeyik End Function Response.Write "<" Response.Write seklesok(lale) Response.Write "" %>