senin istediğin en basit yolla for döngüsü felan kullanmadan 2 nokta arasında secenekleme ile olur ama onda bazı istenmeyen karekterler çıkabilir onları temizlemek için replace kullanırsın çalışır hali burada http://www.hostingege.com/google.asp
google.asp
<form method=post action=googleara.asp>
<input name="link" value="sorgulamak istediğiniz adresi yazımız" size="43">
<input type=submit value=Gönder>
</form>


googleara.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<%

Function trkarakter(heyy_gery)
heyy_gery = Replace(heyy_gery," ", "+")
trkarakter = heyy_gery
End Function
Function temizlikci(heyy_geryl)
heyy_geryl = Replace(heyy_geryl,"<li class=g><h3 class=r>", "<br>")
temizlikci = heyy_geryl
End Function


adr="http://www.google.com.tr/search?hl=tr&q="&trkarakter(Request("link"))&""
set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP")
StrHTTP.Open "GET" ,adr, false
StrHTTP.Send
kur = StrHTTP.Responsetext
Set StrHTTP = Nothing

if lcase(instr(kur,"<ol>"))>0 then
kes = split(kur,"<ol>")
kes2=split(kes(1),"</ol>")
link=kes2(0)
else
link= "<a href=http://www.google.com.tr>Bilader aradıgını bulamadık bide yan komşuya soruver</a>"
end if

response.write ""& temizlikci(link) &""

%>