(0x80020009)发生意外，各位帮我看看哪里出了问题？

源码如下：
<select   name="s1"   onchange="changeselect1(this.value)">
   <%   
  set   rs1=server.createobject("adodb.recordset")   
  sql1="select   *   from   a "     
  rs1.open   sql1,conn,1,1  
  count1   =   0   
  do   while   not   rs1.eof  and not rs1.bof  %>
  <option   value="<%=rs1("ID")%>" <% if  trim(rs1("ID"))= trim(rs("class1"))  then%>selected="selected"<%end if%>><%=rs1("Name")%></option>  
  <%count1   =   count1   +   1   
  rs1.movenext   
  loop   
  rs1.close   
  %>
</select>
提示红色部分发生意外，请各位高手指点指点，弄了好久了也不知道哪里出错了