<%
Server.ScriptTimeOut=100
strURL = Request.QueryString("url")		' Hangi sayfanın kaynak kodları alınacak 
Dim tear 
Set tear = Server.CreateObject("Softwing.AspTear") 						
strHTML = Tear.Retrieve(strURL,Request_Get, "","","")  					' Kaynak Kod gel buraya
strbasla = Instr(StrHTML,"</->")              	' Kodların içinde </-> ile başlayandan
strbitis = Instr(StrHTML,"</strong></a></p>")					' </strong></a></p> ' a
response.write(stroyun & "</a>" )
%>