Referer og søge ord

Jeg hár lige rodet lidt med dette, men kan ikke finde ud af hvordan man får fat på de ord der er blevet brugt i eks. Jubii.

Her er lige en kodestump der kan fange det der er blevet brugt i Google.

<%
testStr = "http://www.google.com/search?q=lokum&hl=da&ie=UTF8&oe=UTF8"
indexStart = inStr(1, testStr,"q=")
if indexStart > 0 then
  indexSlut = inStr(indexStart, testStr,"&")
end if
if indexSlut > indexStart then
  par_q = mid(testStr,indexStart+2,(indexSlut-indexStart-2))
else
  if indexStart > 0 then
    par_q = mid(testStr,indexStart+2,(len(testStr)-indexStart-1))
  else
    par_q = ""
  end if
end if
Response.Write "par_q : " & par_q
%>


Nu vil jeg bare kunne finde jubii.dk yahoo.dk + et par mere..

Kender du et simpel statistik script hvor man kan lurer noget af koden vil jeg gerne se det.