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
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
Codice:
<%
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
%>