Array e split di stringa

[Mizushi]

Ciao a tutti; utilizzo il seguente codice ASP per eseguire l'upload (Baol) di files su un server remoto e memorizzo alcuni dati in una tabella mysql:

If Request("Upload") = "1" then

Dim oUpload

   Set oUpload= new cUpload
   With oUpload
   .EnabledAspUpload = False
   .EnabledLog = False
   .AutoRename = True
   .Overwrite = False
   .SetPath "ticket\"
   .Load 

While Not .Eof

 .Save
 
file_uploaded = replace(oUpload.files("name"), "'", "''") & "." & oUpload.files("ext")

arrNota = Split(oUpload.Form("NOTA"), ", ")

strSQL = " INSERT INTO "
strSql = strSql & " tbl_ticket "
strSql = strSql & " ( Note ) "
strSql = strSql & "   VALUES "
strSql = strSql & " ( '" & arrNota(i) & "' ) "
cn.execute strSQL

response.write strSQL &"

"

.MoveNext
Wend

End With
Set oUpload = Nothing

end if

Il problema è che dal form arriva dai diversi campi NOTE una stringa del tipo:

testo1, testo2

Che vorrei memorizzare singolarmente sulla tabella; ho splittato per virgola il campo NOTE, ma nella tabella mi registra sempre e soltanto testo1... perchè ?

Grazie

[Mizushi]

Soluzione:

If Request("Upload") = "1" then

Dim oUpload

   Set oUpload= new cUpload
   With oUpload
   .EnabledAspUpload = False
   .EnabledLog = False
   .AutoRename = True
   .Overwrite = False
   .SetPath "ticket\"
   .Load 

While Not .Eof

arrNota = Split(oUpload.Form("NOTA"), ", ")

for i = LBound(arrNota) to UBound(arrNota)

 .Save
 
file_uploaded = replace(oUpload.files("name"), "'", "''") & "." & oUpload.files("ext")

strSQL = " INSERT INTO "
strSql = strSql & " tbl_ticket "
strSql = strSql & " ( Note ) "
strSql = strSql & "   VALUES "
strSql = strSql & " ( '" & arrNota(i) & "' ) "
cn.execute strSQL

response.write strSQL &"

"

.MoveNext

next

Wend

End With
Set oUpload = Nothing