Inserire form su più righe in db mysql

[djjunior]

Salve
ho un form dove alcuni campi hanno stesso nome, come posso fare l'inserimento sul db mysql su piu righe ma solo se questi campi con stesso nome vengono riempiti.

Esempio form:
NOME: maurizio
COGNOME: rossi
TELEFONO: 0000000000
CAMPOA : pippo
CAMPOB : giorgio
CAMPOC : marco
CAMPOA : nicola
CAMPOB : carlo
CAMPOC : michele

Come si vede di campi uguali CAMPOA etc posso essercene altri nello stesso form.
In pratica nel db deve caricare così:

id NOME COGNOME TELEFONO CAMPOA CAMPOB CAMPOC
1 maurizio rossi 0000000000 pippo giorgio marco
2 maurizio rossi 0000000000 nicola carlo michele

nel caso i secondi campi non vengano riempiti cioè CAMPOA - CAMPOB - CAMPOC

NOME: maurizio
COGNOME: rossi
TELEFONO: 0000000000
CAMPOA : pippo
CAMPOB : giorgio
CAMPOC : marco
CAMPOA :
CAMPOB :
CAMPOC :

nel db deve carica solo 1 riga:
In pratica nel db deve caricare così:

id NOME COGNOME TELEFONO CAMPOA CAMPOB CAMPOC
1 maurizio rossi 0000000000 pippo giorgio marco

potete aiutarmi? Grazie

[optime]

quindi

NOME COGNOME TELEFONO: solo una volta
CAMPOA CAMPOB CAMPOC: una o più volte

corretto?

[djjunior]

NOME COGNOME TELEFONO nel form ci sono solo una volta mentre CAMPOA CAMPOB CAMPOC possono essere una o più volte.
ma naturalmente se nel db vengono inseriti una o più volte
CAMPOA CAMPOB CAMPOC deve copiarmi per ogni riga anche lo stesso NOME COGNOME TELEFONO

[optime]

cos'è che non sai fare? come capire se CAMPOA CAMPOB CAMPOC ci sono più di una volta? come ripetere NOME COGNOME TELEFONO negli inserimenti successivi?

eventualmente posta il codice già scritto

[djjunior]

Inserire i records in più righe se i campi CAMPOA CAMPOB CAMPOC sono più di uno, ecco l'insert che sto provando senza successo, non mi provoca errori ma non inserisce nulla.

Dim mode, mode_a, i

mode = Request.form("CAMPOA")
modea = Request.form("CAMPOB")
modeb = Request.form("CAMPOC")

mode_a = split(mode,",")
mode_b = split(modea,",")
mode_c = split(modeb,",")

For i=LBound(mode_a) to UBound(mode_a)

Set Connn = Server.createobject("ADODB.Connection")
Connn.connectionstring="DRIVER={MySQL ODBC 3.51 Driver}; -------------------------------"
Connn.Open
strSQL = "INSERT INTO Carico " &_
"(NOME, COGNOME, TELEFONO, CAMPOA, CAMPOB, CAMPOC ) " &_
"VALUES " &_
"('"&request.Form("NOME")&"' , '"&request.Form("COGNOME")&"','"&request.Form("TELEFONO")&"', '"&mode_a(i)&"', '"&mode_b(i)&"', '"&mode_c(i)&"')"
Connn.Execute(strSQL)
response.write(strSQL)
Connn.close

Next

Grazie

[optime]

Dim nome, cognome, telefono
Dim modea, modeb, modec
Dim mode_a, mode_b, mode_c
Dim i


nome=request.Form("NOME")
cognome=request.Form("COGNOME")
telefono=request.Form("TELEFONO")


modea = Request.form("CAMPOA")
modeb = Request.form("CAMPOB")
modec = Request.form("CAMPOC")


mode_a = split(modea,",")
mode_b = split(modeb,",")
mode_c = split(modec,",")


Set Connn = Server.createobject("ADODB.Connection")
Connn.connectionstring="DRIVER={MySQL ODBC 3.51 Driver}; -------------------------------"
Connn.Open


For i=LBound(mode_a) to UBound(mode_a)


   strSQL = "INSERT INTO Carico ("
   strSQL = strSQL & "NOME, COGNOME, TELEFONO, CAMPOA, CAMPOB, CAMPOC"
   strSQL = strSQL & ") VALUES (" &_
   strSQL = strSQL & "("
   strSQL = strSQL & "  '" & nome & "'"
   strSQL = strSQL & ", '" & cognome & "'"
   strSQL = strSQL & ", '" & telefono & "'"
   strSQL = strSQL & ", '" & telefono & "'"
   strSQL = strSQL & ", '" & mode_a(i) & "'"
   strSQL = strSQL & ", '" & mode_b(i) & "'"
   strSQL = strSQL & ", '" & mode_c(i) & "'"
   strSQL = strSQL & ")"


   response.write(strSQL)


   Connn.Execute(strSQL)


Next


Connn.close

[optime]

no
strSQL = strSQL & ") VALUES (" &_
ma
strSQL = strSQL & ") VALUES ("

[djjunior]

Funziona come sempre alla grande, grazie optime

[optime]

a volte è solo questione di essere ordinati

[djjunior]

Hai effettivamente ragione...