Split e query INSERT INTO

[vitacillina]

Split e query INSERT INTO

bentrovati.

da un form dati recupero la seguente stringa:

CM1,,,,CS1,,,,CS4,,,,CS5,,,,CS6,,,,CS7,Ins,1,1,CS8,Suf,2,2,

I dati risultanti andrebbero inseriti nel db mysql quattro x volta, cioè così:

CM1,,,,
CS1,,,,
...
CS7,Ins,1,1,
CS8,Suf,2,2,

La splitto per virgola STEP 4 ed ottengo una lista di valori:

    strSplitDati = Split(Request.Form("dati"), ",")
 
        for i = LBound(strSplitDati) to UBound(strSplitDati) STEP 4
        response.write(strSplitDati(i) & "<br /><br />" )
        next

Ho previsto la insert all'interno del ciclo... ma stampa "n" query tutte uguali.... dove sbaglio?

    strSplitDati = Split(Request.Form("dati"), ",")
 
        for i = LBound(strSplitDati) to UBound(strSplitDati) step 4
        response.write(strSplitDati(i) & "<br /><br />" )
 
        strSql = " INSERT INTO "
        strSql = strSql & " tbl "
        strSql = strSql & " ( "
        strSql = strSql & "   testo_A, "
        strSql = strSql & "   testo_B, "
        strSql = strSql & "   numero_A, "
        strSql = strSql & "   numero_B "
        strSql = strSql & " ) "
        strSql = strSql & "   VALUES "
        strSql = strSql & " ( "
        strSql = strSql & "  '" & strSplitDati(0) & "', "
        strSql = strSql & "  '" & strSplitDati(1) & "', "
        strSql = strSql & "   " & strSplitDati(2) & ", "
        strSql = strSql & "   " & strSplitDati(3) & " "
        strSql = strSql & " ) "
        cn.execute strSql
 
        next

[cali1981]

Non devi mettere strSplitDati(0), strSplitDati(1) ecc ma strSplitDati(i), strSplitDati(i + 1) ecc

[vitacillina]

@cali1981 said:

Non devi mettere strSplitDati(0), strSplitDati(1) ecc ma strSplitDati(i), strSplitDati(i + 1) ecc

Grazie!

[cali1981]

Prego! A presto!