用户注册的有关问题

用户注册的问题
这是一段用户注册时，填写有推荐人并给推荐人加积分的代码。现在的情况是推荐人加积分实现了，注册人却没注册上。请教高手指点，谢谢


dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql ="Select * from Siruo_user where username='"&userid&"'"
rs.open sql,conn,1,3
  if rs.recordcount>=1 then
  errma "注册没有成功","用户名已经被占用!"
  response.End()
  end if
  rs.addnew
  rs("username")=userid
  rs("userpass")=md5(userpsd,16)
  rs("sex")=sex
  rs("jifen")=50
  rs("blood")=1
  rs("regtime")=now()
  rs("dengji")=dengji1
  rs("yearold")=yearold
  rs("userques")=userques
  rs("userans")=userans
  rs("usermail")=usermail

set rs=server.CreateObject("adodb.recordset")
sql ="Select * from Siruo_user where username='"&tjuserid&"'"
rs.open sql,conn,1,3
rs("jifen")=rs("jifen")+20


  rs.update
  rs.close
  set rs=nothing
  closedb

[解决办法]
添记录就用INSERT，ADDNEW既啰嗦还容易忘提交。