更新只有第一条记录（update）求助

<[email=%@LANGUAGE=]%@LANGUAGE="VBSCRIPT[/email]" CODEPAGE="936"%>
<% option explicit %>
<!-- #include file="conn.asp"-->
<%
dim rs,sql,f_dianji,id,f_url   '定义变量供使用，不定义变量会出错哦！
id=request.querystring("f_id") '把前个页面的ID值获取并付给变量id
if id="" then
response.write "<script language='javascript'>alert ('乐乐提示：\n\n★非法操作！')</script>"
response.write "<script language='javascript'>window.location='friends.asp'</script>"
end if
on error resume next
set rs=server.createobject("adodb.recordset")
sql="select * from friend where f_id=" & id
rs.open sql,lele,1,1
f_dianji=rs("f_dianji")
f_url=rs("f_url")             '读取数据库中的字段f_url以供response.redirect使用跳转
if err then
response.write "<script language='javascript'>alert ('乐乐提示：\n\n★出现错误码！')</script>"
response.write "<script language='javascript'>window.location='friends.asp'</script>"
end if
if f_dianji=0 then      '如果点击为0则付值为1，否则则执行加1并更新数据库现有的数据！
rs("f_dianji")=1
else
sql="update friend set f_dianji=f_dianji+1 where f_id=" & id
lele.execute(sql)
end if
response.redirect(f_url)   '执行完后立即跳转到f_url的地址！
%>
------------------------------------
请问一下，为什么只有第一条记录id=1可以成功点击一次+1其它的没有反应的？