请帮个忙，看看这段代码有什么问题？

[Clamd]

<%
'找出最大值和最小值
set rs0=conn.execute("select MAX(BillID) as BillMax,MIN(BillID) as BillMin from TabBill")
if not rs0.eof then
rsMax=rs0("BillMax")
rsMin=rs0("BillMin")
randomize
i=int((rsMax-rsMin+1)*rnd()+rsMin)
Response.Write i
set rs=conn.execute ("select BillName from TabBill where BillID =" & i)
if not rs.eof then
%>
<%=rs("BillName")%>
<%
end if
else
Response.Write "宣传活动还没开始展开"
end if
%>


这是出错信息：

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft JET Database Engine 错误 '80040e14'

语法错误 (操作符丢失) 在查询表达式 'BillID =' 中。

/include/hl-bill.asp，行26