access不能更新

<!--#include file="conn.asp"-->
<% dim username,userpass,userpass1
username=trim(request("username"))
userpass=trim(request("userpass"))
userpass1=trim(request("userpass1"))
if username="" or userpass="" then
response.Redirect("err.asp?info=用户名，密码不能为空")
end if
if userpass <> userpass1 then
response.Redirect("err.asp?info=两次输入的密码必需相同")
end if
set rs=server.CreateObject("adodb.recordset")
sql="select*from user where NAME='"&username&"'"
rs.open sql,conn,1,1
if not rs.eof then
response.Redirect("err.asp?info=该用户已经存在请重新注册")
else
set rs1=server.CreateObject("adodb.recordset")
sql1="selete * from user"
rs1.open sql1,conn,1,3
rs1.addnew
rs1("NAME")=username
rs1("PASSWORD")=userpass
rs1("SEX&q