这个二级动态菜单程序怎么出错在“未定义”？

[afant]

运行时microsoft script debugger提示说：“出现了运行时间错误。。”
错误：'苹果'未定义。
哪里出错了？

进入debugger窗口，箭头指向最后那里

<script language = "JavaScript">
var onecount;
onecount=0;
fruit = new Array();
dt=苹果

源程序如下：


<%
connstr=Application("fruit_ConnectionString")
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
depts=split("苹果","梨子","山楂,",")
%>
<script language = "JavaScript">
var onecount;
onecount=0;
fruit = new Array();
<%
count=0
'用来计算数组的数量
for i=0 to (dpnum)-1
Set rs = Server.CreateObject("ADODB.Recordset")
dt=depts(i)
response.write "dt="&dt&""
sql="select * from fruit where dept='"&dt&"'"
rs.open sql,conn,3,2
%>
<%
if not rs.eof then
do while not rs.eof
%>
fruit[<%=count%>] =new Array("<%=dt%>","<%=rs("name")%>","<%=count%>");
<%
count = count + 1
rs.movenext
loop
rs.close
set rs=nothing
%>

<%else%>
fruit[<%=count%>] = new Array("<%=dt%>","无","0");
<%
count=count+1
end if
next
%>

[孟子E章]

dt="苹果"

[qiushuiwuhen]

response.write "dt="""&dt&""""