我想做一个留言版回复权限的判断，只有管理员才有回复和删除留言的权限。可是总是调不出来，
这是我写的代码，大家帮忙看下哪里的问题。
<%if request("action")="add" then
password=request("password")
huifuneirong=request("huifuneirong")
set rss=server.CreateObject("adodb.recordset")
sql="select * from adminuser where id=1"
rss.open sql,conn,1,1
if password<>rss("userpass") then
response.Redirect"replayno.asp"
else
set rsa=server.CreateObject("adodb.recordset")
sql="select * from replay where id="&request("id")
rsa.open sql,conn,1,3
rsa.addnew
rsa("neirong")=huifuneirong
lid=request("id")
rsa.update
rsa.close
set rsa=nothing
end if
response.Redirect"message.asp"
end if
%>