öncelikle sayfana utf-8 i tanımlamanı tavsiye ederim. notepad++ bom olmadan kodla seçeneğini seçip vermiş oldugum kodları kullanabilirsin.

Adres = "www.domainadi.com"
Gelen = SayfaAl(Adres)

Private Function SayfaAl(URL)
On Error Resume Next
Dim HTTP
Set HTTP = Server.CreateObject("Microsoft.XMLHTTP" )
HTTP.Open "Get" , URL, False
HTTP.SEnd
SayfaAl = HTTP.ResponseText
Set HTTP = Nothing
End Function

Private Function BaslikAl1(Kaynak)
On Error Resume Next
Dim Baslangic, Genislik
Baslangic = InStr(1,Kaynak, "/BAŞLANGIÇ KODLARIN/" , 1) + Len("/BAŞLANGIÇ KODLARIN/" )
Genislik = InStr(Baslangic,Kaynak, "/BİTİŞ KODLARIN/" , 1) - Baslangic
BaslikAl1 = Mid(Kaynak, Baslangic, Genislik)
End Function


link1=BaslikAl1(Gelen)
response.write link1