<%
page = Request.ServerVariables("URL")
ref = Request.ServerVariables("HTTP_REFERER")
refURL = Request.ServerVariables("HTTP_REFERER")

If refURL <> "" Then
silinecek = Instr(refURL,"q=")
yeni = mid(refURL,silinecek,len(refURL)-silinecek)
silinecek = Instr(yeni,"&")
kelime = mid(yeni,3,silinecek)


Kontrol="SELECT *FROM arama WHERE kelime='"&kelime&"'"
Set Kont=bag.Execute (Kontrol)

If Kont.EOF Then

Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open "SELECT *FROM arama ", bag, 1, 3

Rs.addnew
Rs("kelime")=kelime
Rs("page")=page
Rs.Update
else
end if
end if
%>