ASP生成JS报错!程序是一个生成三级分类JS的文件,麻烦高手帮看看!

JS要求是 Subval2[0],Subval2[1],Subval2[2]..............等

程序内容:

VBScript code

<%
Dim classall,classallid,Count1,Count2,Count3,i
classall = classall & "var Subval2 = new Array();"&vbCrlf

set rs=server.CreateObject("adodb.recordset") 
sql="select * from classlist where CType=5 and CParentId=0"
rs.open sql,conn,1,1
if not rs.eof then
Count1=0 
do while not rs.eof
'就是下面这句出错了
classall = classall & "Subval2[<%=Count1%>] = new Array('"&rs("CParentId")&"','"&rs("CId")&"','"&rs("CTitle")&"')      "&vbCrlf

Count1=Count1+1
rs.movenext
loop
rs.close
set rs=nothing
end if
%>

麻烦帮我看看,出错的那句该怎么改,怎么样加进去才能生成Subval2[0]到Subval2[n]的JS,急求解

帮顶 避免杯具