会员分级登录问题

会员分为普通会员和vip，字段是 m_code

在登录时候想实现以下情景：

1、会员登录后，在登录口上显示：是普通会员 还是vip。

2、如果是普通会员就跳转到product.asp文件，如果是vip，就跳转至product_new.asp

3、普通会员 m_code=0 vip高级会员 m_code=1

附代码

一、登录后的提交action动作 代码如下：

'检查用户权限
strSQL="select * from web_member where m_Name='" & strName &"' And m_id=" & WebUserID
rs.open strSQL,conn,3,3
if rs.eof then
response.Redirect("error.asp?msg=对不起，此用户不存在，请重新输入！")
end if

if trim(rs("m_PassWord"))<>strPass then
response.Redirect("error.asp?msg=对不起，用户名和密码不正确，请重新输入！")
end if

'合法用户，给予授权
Session("m_Code")=rs("m_code") '级别

'添加会员日记
LogIn Session("m_UserID"),"登录网站"
response.redirect "."

总是测试不成功，不知道哪错了。


二、在页面上登录后要显示的内容：
尊敬的 <font color="#CC0000"><%=Session("m_LoginName")%></font>
<%
strSQL="Select m_code From web_member Where m_id=" & Session("m_UserID") & " and l_event='登录网站' Order by id Desc"
if Session("m_Code")="0" then
response.Write("普通会员")
end if

if Session("m_Code")=1 then
response.Write("VIP会员")
end if
%>

求助了。谢谢。现在的问题就是设置了if语句，可还是不能正常显示会员级别