İsimler için teşekkürler.
Tam istediğin olay kodları biraz düzenledim...
ASPTear bileşeni ile çalışmaktadır.
iyi çalışmalar
<%
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>" )
%>
Valla çok güzel düzenlemişsin hocam
bileşenleri hiç bilmiyorum bileşen hostla mı alakalı veya localden yapsam çalışır mı, baby webserver veya iis den?