登录实现不了，请各位高手指点！

登录代码如下，请帮忙检查一下错误
<table width=100% border=0 align=center cellpadding=0 cellspacing=0>
<tr><td width="100" border=0></td></tr>
          <form name=loginfo method=post action="chkuser.asp">
            <tr bgcolor=#ffffff> 
              <td style='padding-left:5px' height="25">用户名：
                <input name=username type=text class="input_sr" size="14" maxlength="15"> 
              </td>
            </tr>
            <tr bgcolor=#ffffff> 
            <td style='padding-left:5px' height="25">密　码：
              <input name=UserPassword type=password class="input_sr" size="14">
            </tr>
            <tr bgcolor=#ffffff> 
              <td style='padding-left:5px' height="25">验证码：
                <input name=passcode type=text class="input_sr" size=6 maxlength="4">
              <img src="code.asp"></td>
    </tr>
            <tr bgcolor=#ffffff> <td colspan="2" align="center" height="25">
                <input name=Submit type=submit class="input_bot" onClick="return checkuu();" value="登录">
<input name="Submit1" type="button" class="input_bot" onClick="location.href='reg.asp';" value="注册"> 
<input name="Submit2" type="button" class="input_bot" onClick="location.href='repassw.asp?action=repass';" value="找回密码">
            </td></tr>
          </form>
        </table>
<%
else dim IntOrderNum
set rsvip=server.CreateObject("adodb.recordset")
rsvip.Open "select distinct(goods) from orders where username='"&strUserName&"' and state=2 ",conn,1,1
IntOrderNum = rsvip.recordcount
rsvip.Closersvip.open "select [User].grpid,username,GrpID,b2b_userjb.GrpName,bookzt,b2b_userjb.Stars from [User] Inner Join b2b_userjb On [User].GrpID = b2b_userjb.GrpID where username='"&strUserName&"' ",conn,1,1strTitle = rsVip("GrpName")
bookzt=rsVip("bookzt")
LngDiscount = rsVip("Stars")
rsvip.close
set rsvip=nothing if IntOrderNum=0 then %>
运行提示这行错误rsvip.Open "select distinct(goods) from orders where username='"&strUserName&"' and state=2 ",conn,1,1