Error en redimension de Arreglo

[Shiryu_Libra]

amigos, estoy intentando realizar unos arreglos, para poder evaluar costos, en este caso miren el codigo

'primero buscamos las matriculas y los indices para crear los arreglos de consulta

SELECT id_matricula, index, periodo FROM LE where status=1
'creo las variables a usar
DIM matriculas()
DIM indexs()
DIM periodos()
DIM cont1
DIM montos()
DIM x
con1=0
x=0

while mientras no sea el final
ReDim Preserve matriculas(cont)
matriculas(cont)=RS id_matricula value
ReDim Preserve indexs(cont)
indexs(cont)=RS index value
ReDim Preserve periodos(cont)
periodos(cont)=RS periodo value
RS movenext
cont1=cont1+1
wend
RS close
hasta aki todo bien

[Shiryu_Libra]

el problema radica en la siguiente seccion

[code]
DIM sumatotal(cont1) 'Cuanto a dado
DIM CuantoX(cont1) 'Cuanto deberia de pagar
DIM Differencia(cont1) 'cuanto adeuda

'con este sacaremos cuanto se supone que deberia pagar el alumno
for k=0 to cont1
CuantoX(k)=periodos(k)*2000
next

y ahi es donde me aparece el error que es este

Tipo de error:
Error de compilación de Microsoft VBScript (0x800A0402)
Se esperaba una constante entera
/Gestion/Gestion.asp, línea 1682, columna 14
DIM sumatotal(cont1) 'Cuanto a dado
-------------^


el cual segun lo mencionado es que no le estoy asignando valor alguno, pero le estoy enviando el total de vueltas de la primera parte, alguna observacion.....