关于数据库修改更新问题

[etononline]

exec="select * from user_tabe where id="&request.form("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
rs("user_id")=request.form("user_id")
rs("user_password")=request.form("user_password")
rs("telephone")=request.form("telephone")
rs("address")=request.form("address")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "list.asp"
更新用户资料时，如果修改的用户名以经存在怎么加一个检查语句。
如果修改存在提示错误，反之成功。

[etononline]

<!--#include file="conn.asp"-->
<%
name=request.form("user_id")
Set rst_ca=server.createobject("ADODB.Recordset")
ls_sql="select count(*) from user_tabe where user_id='"&name&"'"
rst_ca.open ls_sql,conn
exec="select * from user_tabe where id="&request.form("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
rs("user_id")=request.form("user_id")
rs("user_password")=request.form("user_password")
rs("telephone")=request.form("telephone")
rs("address")=request.form("address")
if rst_ca(0) <1 then
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "list.asp"
else
response.redirect "err.asp"
end if
%>

除了这句，还有没有更简洁点的语句了。