Yapmam gerekenin o oldugunu biliyorum ancak kodu yazamadım.Aşağıdaki koda bakabilirisin.
<%
kelime=Trim(request.querystring("kelime"))
Set arm=Baglanti.Execute("Select * from arama_motoru ")
do while not arm.eof
if arm("kelime")<>kelime then
call ekle
else
call duzenle
end if
arm.movenext:loop
sub ekle
adet = request.
form("adet")+1
baglanti.execute("insert into arama_motoru (kelime,adet,tarih) values ('"& kelime &"',"& adet &",'"& now() &"')")
end sub
sub duzenle
adet = arm("adet")+1
Baglanti.Execute ("update arama_motoru set adet="& adet &",tarih='"& now() &"' where kelime=('"& kelime &"')")
end sub
arm.close
set arm=nothing
%>