Programalama > ASP

<%  
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 = "<table border=0 cellpadding=0 cellcpacing=0>"   
bitis = "</table>"   
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 "</table>" 
%>