fonksiyonları yanlış hatırlıyor olabilirim. kodları denemedim. ama mantıken doğru. aralara notlar düşerek anlatmaya çalıştım. deneyip sonucunu banada söylersin.

<%
//referansı okuyoruz
refURL = Request.ServerVariables("HTTP_REFERER")
//referans dolu mu kontrolü
If refURL <> "" Then
//ilk önce referansda "q=" olan yere kadar kesip atmamız lazım. bunun içinde "q=" kaçıncı karakter olduğunu bulmamız gerekir
silinecek = Instr(refURL,"q=")
//daha sonra bulduğumuz karakter sayısından sonrasını alıyoruz
yeni = mid(refURL,silinecek,len(refURL)-silinecek)
//arama kelimesinden sonraki gereksizleri temizlemek içinde "&" karakterini bulmamız gerekir
silinecek = Instr(yeni,"&")
//bu sefer bulduğumuz karakter noktasından öncesini alıyoruz ve aranan kelimeyi bulmuş oluyoruz
aranan_kelime = mid(yeni,1,silinecek)
response.write(aranan_kelime)
end if
%>