sos，asp＋access权限问题！

我建了两张表user和part，
表user的字段有“id”（数字），“name”（文本），“userpart”（文本）
表part的字段有“id”（数字），“part”（文本），“系统登陆”，“客户管理”“查询”等字段，
将“系统登陆”“客户管理”“查询”等字段设置为“1”或“0”，1表示有权限操作，0表示没权限。
给每个页面都写了一个判断是否有权限操作代码。
<!--#include file="../data/conn.asp"-->
<%dim strusername
strusername=trim(request.form("username"))%>
<script language=VBScript runat=SERVER>
Function check_power(power_string)
set Recordset1 = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * FROM part,user where name=userpart and username='"&trim(strusername)&"'"
Recordset1.Open strSQL,connstr,1,1
if Recordset1.recordcount=0 then
check_power = 0
else
if Recordset1(power_string).value=1 then
check_power = 1
else
check_power = 0
end if
end if
END Function
</script>

<%
if session("username")="" then
response.redirect"../index.asp"
else
if check_power("客户管理")=0 then
response.redirect"check_false.asp"
else

%>
.
.
.
<%end if%>

运行后系统显示错误，各位高手能给小弟指点哈吗？