关于网站会员的锁定功能，为什么锁定不了呢？进行锁定的结果和解除锁定的结果一样，都是解除锁定~！请高手帮忙指点~！谢谢~！
（代码如下）

<%
dim UserID,Action,sql
UserID=trim(Request("UserID"))
Action=trim(request("Action"))
if UserID<>"" then
    if Action="Lock" then
        sql="Update [User] set LockUser=true where UserID=" & CLng(UserID)
    else Action="cancelLock"
        sql="Update [User] set LockUser=false where UserID=" & CLng(UserID)
    end if
    conn.Execute sql
call CloseConn()
end if
response.redirect "UserManage.asp"
%>