在线等，急急急啊！那位好汉进来帮忙关于ASP和JAVASCRIPT的问题

Question

代码如下：
                  <td><form name="frm1" method="post" action="edit_class2.asp?method=saveEdit&index2=<%=request("index2")%>&cp=<%=iCurPage%>">
                      <table width="100%"  border="0" cellspacing="1" cellpadding="0">
                        <tr class="td4">
                          <td>所属大类：</td>
                          <td><select name="sClass1" id="fjj" class="form1"><option value="-1">选择一个大类</option></select>
<%
'CreateASelect "class1","name","index1"
set rsGetToCB=Server.CreateObject("adodb.recordset")
szSQL="select * from class1 order by index1"
rsGetToCB.open szSQL,conn,3,2
for i=1 to rsGetToCB.recordcount
if not rsGetToCB.eof then
response.Write rsGetToCB("name")%>
<script language="javascript">
alert(frm1.sClass1.options.lenght);
fjj.options(i=new Option["1111","-1"];
//frm1.sClass1.options(i).value="1";
</script>
<%rsGetToCB.moveNext
end if
next
%>
                             </td>
                        </tr>
                        <tr class="td4">
                          <td width="12%">类别名称：</td>
                          <td width="88%"><input name="tfName" type="text" class="form1" size="30" maxlength="150" value="<%=rs("name")%>"></td>
                        </tr>
                        <tr>
                          <td height="5" colspan="2" background="bops/Images/lin1.gif"></td>
                        </tr>
                        <tr>
                          <td>　</td>
                          <td><input name="btSave" type="button" class="button" value="保存" onClick="checkInput(frm1)">
                              <input name="btReturn" type="button" class="button" value="返回" onClick="goToPage(<%=iCurPage%>)"></td>
                        </tr>
                        <tr>
                          <td>　</td>
                          <td>　</td>
                        </tr>
                      </table>
                  </form></td>其中这段代码出错，实在不知道为什么
<%
'CreateASelect "class1","name","index1"
set rsGetToCB=Server.CreateObject("adodb.recordset")
szSQL="select * from class1 order by index1"
rsGetToCB.open szSQL,conn,3,2
for i=1 to rsGetToCB.recordcount
if not rsGetToCB.eof then
response.Write rsGetToCB("name")%>
<script language="javascript">
alert(frm1.sClass1.options.lenght);
fjj.options(i)=new Option["1111","-1"];
//frm1.sClass1.options(i).value="1";
</script>
<%rsGetToCB.moveNext
end if
next
%>
我用fjj.options(i)=new Option["1111","-1"];对吗？
frm1.sClass1.options(i)=new Option["1111","-1"];同样出错