请问各位高人，以下代码出现：  下标越界: 'i' 
请问错误在哪呢？？谢谢！

<% 
str=""
str=str&"<form>"
str=str&"<table width=""390"" height=""70"" width=""390"" height=""70"" border=""1"" cellspacing=""1""  cellpadding=""1"">"
str=str&"<%"
str=str&"For i=0 to ubound(CCcart,2)"
str=str&"if CCcart(CC_PRODUCTID,i) <> """" then"
str=str&"%"&">"
str=str&"<tr align=""center"" valign=""middle"">"
str=str&"<td height=""15"" class=""style1 style9"">" & CCcart(CC_Name,i) & "</td>"
str=str&"<td height=""15"" class=""style1 style9"">" & CCcart(CC_Price,i) & "</td>"
str=str&"<td height=""15"" class=""style1 style9"">" & CCcart(CC_Quantity,i) & "</td>"
str=str&"<td height=""15"" class=""style1 style9"">" & CCcart_LineTotal & "</td>"
str=str&"<td height=""15"" class=""style1 style9"">&nbsp;</td>"
str=str&"</tr>"
str=str&"<%"
str=str&"end if"
str=str&"next"
str=str&"%"&">"
str=str&"</table>"
str=str&"</form>"