我想给站内作个搜索统计，每搜索一次就查看该数据库中是否有此关键字，有的话搜索次数+1，没有就增加一条记录，这个如何实现

'表：subook
'key 关键字
'su 计数统计
<%
tx=session("key")
if tx<>"" then
set conn= Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("su.mdb")
conn.Open connstr
Set rs=server.CreateObject("ADODB.Recordset")
sql2="select * from subook where key ='"&tx&"'"
rs.open sql2,conn,1,3
If Not rs.Bof And Not rs.Eof Then
rs("su")=rs("su")+1
else
rs("key")=tx
rs("su")=1
end if
rs.update
response.write "关键字"&tx& "查询："& rs("su")
rs.close
set rs=nothing
else
response.write"无关键字"
end if
%>

我这样在：If Not rs.Bof And Not rs.Eof Then 这一句就不行了，：
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

谢谢版主，但
我是建的一个单独的数据库用来统计搜索的关键字，搜索一次就统计一次(key有记录就加1，key无记录就插入记录并设初始值su为1)

谢谢版主，
很好，就是我要的，谢谢！