inserimento record multipli e array

[User Name]

salve ho creato una pagina con inserimento record multipli.
inserisco tutti i dati in array ma poi ricevo un errore al momento dell'inserimento

Microsoft VBScript runtime error '800a0009'
Subscript out of range: '0'

posto il codice.

se potete mi aiutate a trovare l'errore e correggerlo? grazie

PS i campi in fase di inserimento sono tutti valorizzati

<%
Dim arrayID_Alunno
arrayID_Alunno = Split(Request("ID_Alunno"), ",")

Dim arraycognome
arraycognome = Split(Request("CognomeNome"), ",")

Dim arrayclasse
arrayclasse = Split(Request("ID_Classe"), ",")

Dim arrayindirizzo
arrayindirizzo = Split(Request("indirizzo"), ",")

Dim arrayeta
arrayeta = Split(Request("eta"), ",")

Dim arraypagamento
arraypagamento = Split(Request("altro"), ",")

Dim arrayaut
arrayaut = Split(Request("rialtro"), ",")

Dim arraypssw
arraypssw = Split(Request("password"), ",")

Dim arraymatricola
arraymatricola = Split(Request("codice"), ",")


%>

<%

If (CStr(Request("MM_insert")) = "form1") Then
  If (Not MM_abortEdit) Then
     'execute the insert
   Dim MM_editCmd

Dim i
For i = 0 to quanti-1 ' Repeat2__index è il numero di righe ripetute

dim idalu, cogno, cla, indi, ann, ret, aut, pas, mat

idalu=arrayID_Alunno(i)
idalu = replace(idalu, " ", "")

cogno=arraycognome(i)
cogno = trim(cogno)

cla=arrayclasse(i)
cla = replace(cla, " ", "")

indi=arrayindirizzo(i)
indi = trim(indi)

ann=arrayeta(i)
ann = trim(ann)

ret=arraypagamento(i)
ret = trim(ret)

aut=arrayaut(i)
aut = replace(aut, " ", "")

pas=arraypssw(i)
pas = trim(pas)

mat=arraymatricola(i)
mat = replace(mat, " ", "")


    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_prese_STRING
    MM_editCmd.CommandText = "INSERT INTO Alunni (ID_Alunni, CognomeNome, ID_Classe, indirizzo, eta, altro, rialtro, password, codice) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 255, idalu) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, cogno) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 255, cla) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 255, indi) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 255, ann) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 255, ret) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 255, aut) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 255, pas) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 202, 1, 255, mat) ' adVarWChar
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
next
    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl
    MM_editRedirectUrl = "?msg=Alunno inserito"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl)
  End If
End If
%>