我现在绕过ODBC建立连接，但发现我的存储过程不能用了，能帮我解决吗？

[babafish]

该存储过程为：
if purview <> "supper" then
set objcmd = server.createobject("adodb.command")
objcmd.CommandText="judge1"
objcmd.CommandType = 4
set objcmd.ActiveConnection = conn

set p=objcmd.Parameters
p.append objcmd.CreateParameter ("@username",202,1,10)
p.append objcmd.CreateParameter ("@itemtype",202,1,10)

objcmd("@username")=username
objcmd("@itemtype")=request("itemtype")
objcmd.Execute

set rs=server.CreateObject ("adodb.recordset")
set rs=objcmd.Execute()
purview=trim(rs("purview"))
Response.Write "权限为" & "|" & purview & "|"
end if

[slightgao]

出错信息！