棒棒糖最贵:急!!Microsoft VBScript 编译器错误 '800a0400'

==============================================
Microsoft VBScript 编译器错误 '800a0400'

缺少语句

\wwwroot\8\jszx.asp, line 40

==============================================

这是那一段代码
==============================================
<%dim bookid,action,i
action=request("action")
set rs=server.CreateObject("adodb.recordset")
rs.open "select count(*) as rec_count from wq_action where username='"&username&"' and zhuangtai=7",conn,1,1
if rs("rec_count")=0 then
response.write "<script language=javascript>alert('对不起，您购物车没有商品，请在购物后，再去“结算中心”！');window.close();</script>"
response.End
end if
rs.close
set rs=nothing
//////////////////////////////////(这里就是第40行)
select case action
case ""
set rs=server.CreateObject("adodb.recordset")
rs.open "select wq_action.actionid,wq_action.bookid,wq_action.bookcount,wq_action.zonger,wq_books.bookname,wq_action.shjiaid,wq_books.shichangjia,wq_books.huiyuanjia,wq_books.vipjia from wq_books inner join wq_action on wq_books.bookid=wq_action.bookid where wq_action.username='"&username&"' and wq_action.zhuangtai=7",conn,1,1
%>
=============================
哪个大哥可以帮忙解决一下啊????谢谢了.