高手求解！在线等ASP用户注册后 Microsoft VBScript 编译器错误 '800a03ea'

<TABLE align="center" cellSpacing=0 cellPadding=0 width=200 border=0>
    <TR> 
      <TD vAlign=top>
   <% if LngUserID="0" then 
    %>
   <table width="165" height="30" border="0" align="center" cellpadding="0" cellspacing="0">
         <tr>
           <td height="30" align="center"><strong><img src="image/pic2.gif" width="15" height="16" align="absmiddle" /> 请注册或登录会员！</strong></td>
         </tr>
       </table>
<table width=90% height="147" border=0 align=center cellpadding=0 cellspacing=0>
<tr><td width="100" height="0" border=0></td>
</tr>
          <form name=loginfo method=post action="chkuser.asp">
            <tr> 
              <td  height="35"><div align="center">用户名：
                <input name=username type=text size="14" maxlength="15">              
              </div></td>
            </tr>
            <tr > 
            <td  height="35"><div align="center">密　码：
                <input name=UserPassword type=password size="14">            
                </div>
            </tr>
            <tr > 
              <td  height="36"> &nbsp;&nbsp;验证码：
              <input name=passcode type=text  size=6 maxlength="4">                <img src="code.asp"></td>
    </tr>
            <tr> <td height="41" colspan="2" align="center"><table width="100%" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td width="35%" height="41" >
                  
                    <div align="center">
                      <input name="Submit" type="image"  src="poto/bbslogin.gif" onclick="return checkuu();" value="登录" />
                    </div></td>
                <td width="32%" height="41"><div align="center"><a 
                              href="reg.asp" 
                              target="_blank"><img height="20" 
                              src="poto/bbsreg.gif" width="58" border="0" /></a></div></td>
                <td width="33%"><div align="right">
                  <input name="Submit2" type="button" class="input_bot" onclick="location.href='repassw.asp?action=repass';" value="找密码"/>
                </div></td>
              </tr>
              
            </table>
            </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 %>
<table width="100%" height="167" border="0" align="center" cellpadding="1" cellspacing="1">  <tr height=20>
    <td height="29"> <div align="center">欢迎<font color="FF6600">
      <% = strUserName %>
    </font></div></td>
  </tr>
  <tr height=20>
    <td height="20"><div align="center">您是<font color=FF6600><b>
      <% = strTitle %>
    </b></font></div></td>
  </tr>  <tr>
    <td height=20><div align="center">您目前没有未处理订单</div></td>
  </tr>
  <tr>
    <td height=20><div align="center">共计:0.00元</div></td>
  </tr>
  <tr><td align="center" height=20><a href=profile.asp?action=profile>用户中心</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href=logout.asp>注销登录</a></td></tr>
</table><%else
dim shopjiage
shopjiage = 0
set rs=server.CreateObject("adodb.recordset")
rs.open "select product.vipprice,product.amount,product." & LstPrice & ",orders.productnum from product inner join orders on product.id=orders.id where orders.state=2 and orders.username='"&trim(strUserName)&"' ",conn,1,1
do while not rs.eof
shopjiage=shopjiage+(rs("" & LstPrice & "")+rs("vipprice"))*rs("productnum")
rs.movenext
loop 
shopjiage=round(shopjiage,2)
%><table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center"><%
  if session("uid")<>"" then
   mSql="select Count(*) as Num from welcomemesbuy where UserID='"&Session("uID")&"' and isLook=False"
set mRs=conn.execute(mSql)
smsg=mRs("Num")
if mRs("Num")<>0 then
response.write "<a href='profile.asp?action=profile'>"
response.Write "<font color='#ff0000'>"
response.Write "<b>"
response.Write "您有新的消息，请查收！"
response.Write "</b>"
response.Write "</font>"
response.Write "<img border='0' src='image/mespic.gif' align='absmiddle'>"
response.Write "</a>"
end if
mRs.close
set mRs=nothing
  end if
  %>
   <script language="vbscript">
<%if smsg<>0 then%>            
document.write "<bgsound src='sound/newmsg.mp3' loop='1'>"
<%end if%>   
</script></td>
  </tr>
</table>
<table width="100%" height="167" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
  <td height="14" background=images/bg_04.gif border=0> <div align="center">欢迎<font color="FF6600">
    <% = strUserName %>
  </font></div></td>
</tr>
  <tr>
    <td height=20><div align="center">您是<font color=FF6600><b>
      <% = strTitle %>
    </b></font></div></td>
  </tr>  <tr>
    <td height=20><div align="center">您目前有<font color="#FF6600">
      <% =IntOrderNum %>
    </font>笔<a href="profile.asp?action=goods"><font color="#FF6600">未处理订单</font></a> </div></td>
  </tr>
  <tr>
    <td height=20><div align="center">共计：<font color="#FF6600">
      <% = shopjiage %>
    </font>&nbsp;元</div></td>
  </tr>
  <tr><td align="center" height=20><a href=profile.asp?action=profile>用户中心</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href=logout.asp>注销登录</a></td></tr>
</table>
<%
end if 
rs.close
end if %></TD>
    </TR>
</TABLE>
<SCRIPT LANGUAGE="JavaScript">
<!--
  function checkuu()
{
    if(checkspace(document.loginfo.username.value)) {
document.loginfo.username.focus();
    alert("用户名不能为空！");
return false;
  }
    if(checkspace(document.loginfo.UserPassword.value)) {
document.loginfo.UserPassword.focus();
    alert("密码不能为空！");
return false;
  }
    if(checkspace(document.loginfo.passcode.value)){
document.loginfo.passcode.focus();
alert("验证码不能为空");
return false;
}

  }//-->
</script>