<%

Public Function aramaKelime()
Set oCtrl = Server.CreateObject("MSScriptControl.ScriptControl ")
oCtrl.Language = "Javascript"
oCtrl.AddCode "function GoogleQ(M){var oS = /q=(.*?)&/i.exec(String(M));if(oS != null){return decodeURIComponent(oS[1].replace(/\+/,' '));}}"
aramaKelime = oCtrl.CodeObject.GoogleQ(Request.ServerVariables(" HTTP_REFERER"))
Set oCtrl = Nothing
End Function
Response.Write "Arama Kelimesi : "& aramaKelime()


%>

arkadaşlar yukardaki Google Chrome da çalışıyor Internet Explorer da çalışmıyor
tüm arama motorlarından gelen ziyaretçi hangi kelimeden gelmiş nasıl alabilirim olmuyorsa yukardaki kodu explorerda nasıl çalıştırabilirim .
teşekkürler....