跪求:asp的问题,Microsoft VBScript 运行时错误 (0x800A0009),下标越线

请哪位高手指点下,如何把下面我定义的数值改大一些.让页面全部显示menu.asp的值.我现在只能显示到(4,0,0).请帮忙
这是我需要显示的页面
<TABLE align=center cellPadding=0 cellSpacing=0 width=158>
<!--下面是提取MENU里的连接循环数据开始-->
<%
dim j
dim tmpadmin_menu
dim admin_menuname
dim admin_menurl
for i=0 to ubound(admin_menu,1)
if isempty(admin_menu(i,0,0)) then exit for
for k=1 to ubound(admin_menu,2)
admin_clss_flag=","+(i&"|"&k)+"|0,"
if not (instr(session("flag"),admin_clss_flag)=0) then
admin_flag=true
end if
next
%>

<TR >
<TD id='subadmin_menu<%=i%>'> <DIV class=sec_menu style="WIDTH: 158px">
<table cellpadding=0 cellspacing=0 align=center width=135>
<%
for j=1 to ubound(admin_menu,2)
if isempty(admin_menu(i,j,0)) then exit for
admin_flag=","+cstr(i&"|"&j)+"|"
if

跪求！ASP问题 有关ASP的问题,跪求答案~~~ 选购Micro ATX主板的问题 TF micro SD卡 区别的问题 有关MICRO SD卡的问题 Micro Motion的质量流量计问题 关于Memory Stick Micro的问题 NDS的micro sd卡问题 有关MMC Micro卡的问题 映泰NF61S MiCro AM2 的接口问题