一个百思不得其解的错误。第279行 rs.close 的时候就会出错，我明明创建了对象，硬说我没有。。。 - 编程论坛

程序代码：

<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3">
    <tr>
      <td width="100%" height="25"><b><font color="#000080" size="3">二、多项选择题(每题<%=multiper%>分,共<%=multicount%>题。每题至少有2项正确的答案，少选每答对一题得<%=multiper/4%>分，多选不得分)</font></b></td>
    </tr>
  </table>
<%
for i=singlecount to multicount+singlecount-1
sql="select * from exam_database where ID="&subject_id(i)
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
%>
  <table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
    <tr>
      <td width="100%" bgcolor="#EFEFEF" height="20">  <b><%=i+1%>、<%=rs("question")%></b></td>
    </tr>
    <%
  if trim(rs("text1"))<>"" then
  %>
    <tr>
      <td width="100%">    <input type="checkbox" name="NO<%=rs("id")%>" value="A">A、<%=rs("text1")%></td>
    </tr>
    <%
  end if
  %>
  <%
  if trim(rs("text2"))<>"" then
  %>
    <tr>
      <td width="100%">    <input type="checkbox" name="NO<%=rs("id")%>" value="B">B、<%=rs("text2")%></td>
    </tr>
    <%
  end if
  %> <%
  if trim(rs("text3"))<>"" then
  %>
    <tr>
      <td width="100%">    <input type="checkbox" name="NO<%=rs("id")%>" value="C">C、<%=rs("text3")%></td>
    </tr>
    <%
  end if
  %> <%
  if trim(rs("text4"))<>"" then
  %>
    <tr>
      <td width="100%">    <input type="checkbox" name="NO<%=rs("id")%>" value="D">D、<%=rs("text4")%></td>
    </tr>
    <%
  end if
  %> <%
  if trim(rs("text5"))<>"" then
  %>
    <tr>
      <td width="100%">    <input type="checkbox" name="NO<%=rs("id")%>" value="E">E、<%=rs("text5")%></td>
    </tr>
    <%
  end if
  %> <%
  if trim(rs("text6"))<>"" then
  %>
    <tr>
      <td width="100%">    <input type="checkbox" name="NO<%=rs("id")%>" value="F">F、<%=rs("text6")%></td>
    </tr>
    <%
  end if
  %>
  </table>
  <%
end if
next
rs.close
set rs=nothing
%>