下标越界: '1'????????

<td ><table border="0" cellpadding="0" cellspacing="0" bgcolor="#FAFAFA" id="table247">
<%
If IsArray(strSort) Then
For ii = 1 To 4
ShowStr = Split(strSort(ii),"||")
%>
<td width="127" height="227" ><font color="#42586F"><span style="font-size: 9pt"> </span></font>
<table width="122" align="center" cellpadding="0" cellspacing="0" bgcolor="#FAFAFA" id="table246"

style="">
<tr>
<td width="122" >
<p align="center"> <a href="<% =szPath %>oemui/vod/progmain.asp?ProgID=<% =ShowStr(0) %>"><span

style="font-size: 9pt">
<% if Len(ShowStr(2)) > 0 and Mid(ShowStr(2), 2, 1) <> "*" then %>
<img src="/<% =URLEncode(ShowStr(2)) %>" alt="<%=ShowStr(1)%>" width="120" height="175"

hspace="1" vspace="1" border="0" align="baseline">
<% else %>
<% end if %>
</span></a> </p></td>
</tr>
运行的时候 出现
Microsoft VBScript 运行时错误 错误 '800a0009'
下标越界: '1'

178行的这段代码 那里错了？

相关了解……