'asagisi fonksiyon bu kisimlarla oynamaniza gerek yok
Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
StrHTTP.Open "GET" , adres, false
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function

Function vericek(source,basla,bit,sira)
	kes=split(source,""&basla&"")
	kesson=split(kes(sira),""&bit&"")
	vericek=kesson(0)
End Function
'yukarısı fonksiyon bu kisimlarla oynamaniza gerek yok

kaynak = GETHTTP("http://r10.net")
response.write vericek(kaynak,"<title>","</title>",1)