为什么？数据库还是其他的错

[l_q_liqiang]

<!--#include file="conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>西装入库管理</title>
<%
dim i,rs,sql,sel2
%>
<style type="text/css">
<!--
body {
background-color: #CCCCCC;
}
-->
</style>
<form name="form1" id="form1" method="post" action="rk_xz_zx.asp">
<table width="800" border="1">
<tr>
<td colspan="12"><p align="center">登记西装入库信息</td>
</tr>
<tr>
<td align="center">入库单号
<input type="text" name="rkdh" size="12" >
</td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td>入库日期
<%dim dh
dh=cstr(now())
%>
<input name="rkrq" type="text" size="10" value= <%=dh%> >
</td>
</tr>

<tr>
<td colspan="1" rowspan="2">款号</td>
<td colspan="1" rowspan="2">成份</td>
<Td colspan="7"> <p align="center">尺码</p></Td>
<TD colspan="1" rowspan="2">合计</TD>
<TD colspan="1" rowspan="2">价格</TD>
<TD colspan="1" rowspan="2">季节</TD>
</tr>
<tr>
<Td>-S</Td>
<Td>S</Td>
<Td>M</Td>
<Td>L</Td>
<Td>XL</Td>
<Td>XXL</Td>
<Td>XXXL</Td>
</tr>

<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from cfb"
rs.open sql,conn,1,1
%>

<%
rem i
for i=1 to 10
%>
<tr>
<td width="50"><input type="text" name="<% response.write"data1"&i %>" size="12"></td>
<td width="50"><select name="<% response.write"data2"&i %>" size="1">
<%
response.write "<option value="">select</option>"
do while not rs.eof
response.write "<option value='"+rs("cf_cf")+"'>"+rs("cf_cf")+"</option>"+chr(13)+chr(10)
rs.movenext

loop
set rs=nothing
%></select>
</td>
<td width="50"><input type="text" name="<% response.write"data3"&i %>" size="8"></td>
<td width="50"><input type="text" name="<% response.write"data4"&i %>" size="8"></td>
<td width="50"><input type="text" name="<% response.write"data5"&i %>" size="8"></td>
<td width="50"><input type="text" name="<% response.write"data6"&i %>" size="8"></td>
<td width="50"><input type="text" name="<% response.write"data7"&i %>" size="8"></td>
<td width="50"><input type="text" name="<% response.write"data8"&i %>" size="8"></td>
<td width="50"><input type="text" name="<% response.write"data9"&i %>" size="8"></td>
<td width="50"><input type="text" name="<% response.write"data10"&i %>" size="8"></td>
<td width="50"><input type="text" name="<% response.write"data11"&i %>" size="8"></td>
<td width="50"><select name="<% response.write"data12"&i %>" size="1">
<option value="">select</option>
<option value="春夏">春夏</option>
<option value="秋冬">秋冬</option>
</select>
</td>
</tr>
<% next %>
<tr>
<td>制表人<input type="text" name="zbr" size="12">
</td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td></td>
<td></td>
<td></td>
<td></td>
<td align="center"><input type="submit" name="rk_xz" value="确定"></td>
<td></td>
<td align="center"><input type="submit" name="rk_xz" value="退出"></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
</table>
</form>
为什么这个循环只能够循环不可以阿，他仅仅显示了一行就不可以了， 就是
do while not rs.eof
response.write "<option value='"+rs("cf_cf")+"'>"+rs("cf_cf")+"</option>"+chr(13)+chr(10)
rs.movenext

loop
set rs=nothing
这个内部循环，在别对 页面程序中可以实现循环，在这里就 不可以了
有下面的提示
<td width="50"><select name="data22" size="1">
<option value=">select</option> <font face="宋体" size=2>
<p>Microsoft VBScript 编译器错误</font> <font face="宋体" size=2 > 错误 '800a03f6'</font>
<p>
<font face="宋体" size=2>缺少 'End'</font>
<p>
<font face="宋体" size=2>/iisHelp/common/500-100.asp</font><font face="宋体" size=2>，行242</font> <font face="宋体" size=2>
<p>Microsoft VBScript 运行时错误</font> <font face="宋体" size=2 > 错误 '800a01a8'</font>
<p>
<font face="宋体" size=2>缺少对象</font>
<p>
<font face="宋体" size=2>/lq/fzkc/rk_xz.asp</font><font face="宋体" size=2>，行74</font>

[menrock]

字段名有没有用错？rs("cf_cf")

[l_q_liqiang]

绝对没有错，就是内层对循环是正确的 ，没有任何对语法错误，如果报它注释掉那么这个外部对循环就可以循环十次了 ，很奇怪阿，