SQL Insert su più record

[skorpio]

Utilizzo il seguente codice per inserire dati in una tabella.

SQL = "INSERT INTO risultati (squadra_casa, squadra_fuori, data_partita, giornata ) "
SQL = SQL & "VALUES ('" & squadra_casa & "','" & squadra_fuori & "','" & data_partita & "','" & giornata & "')"

Il problena è che non riesco ad inserire più di una riga (record) per volta nel database,

è possibile reperire più dati da un form (es: tx1, tx2, tx3, tx4, ecc.... ) e farli scrivere nel database ognuno su un record diverso (es: tx1 su 1° record, tx2 su secondo record ecc..)

Spero di essere stato chiaro.
Ciao e grazie a quelli che interverranno.

[maximum]

Devi recuperare i dati sotto forma di stringa, magari concetenandoli e separandoli da "," per poi splittare le rispettive variabili e trasformarle in array.
Iterare su questi e inserire i vari elementi degli arrai.

[supergeniux]

Se conosci, anzi, se sai che devi sempre inserire X campi, puoi fare un ciclo.

'recupero_valori

for x = 1 to cicli
    'inserisci i dati sql
next

[maximum]

Diciamo meglio:

for each field in Request.Form
    INSERISCI CAMPI
next

[supergeniux]

certo, facciamogli pure fare il passo più lungo della gamba

[maximum]

Gli abbiamo dato l'input...

[skorpio]

siete velocissimi

avevo provato a fare
squadra_casa=Request.Form ("tx1,tx2,tx3")

ma ha dato esito negativo


provo la soluzione di supergeniux che mi sembra più semplice, ho fatto qualcosa di simile per creare il form inserimento squadre.

Poi vi faccio sapere, domani o lunedì pomeriggio
Tra 15 minuti devo andare al lavoro.

Ciao e grazie

[supergeniux]

devi recuperare un dato per volta

[skorpio]

Allora recupro i dati dal form
---------------------------------------------------------------------------------
giornata = Request.Form("gg")
c1 = Request.Form("c1") 'prima squadra in casa
c2 = Request.Form("c2")
c3 = Request.Form("c3")
c4 = Request.Form("c4")
c5 = Request.Form("c5")
c6 = Request.Form("c6")
c7 = Request.Form("c7")
c8 = Request.Form("c8")
f1 = Request.Form("f1") ' prima squadra fuori casa
f2 = Request.Form("f2")
f3 = Request.Form("f3")
f4 = Request.Form("f4")
f5 = Request.Form("f5")
f6 = Request.Form("f6")
f7 = Request.Form("f7")
f8 = Request.Form("f7")
-------------------------------------------
da qui in poi il problema:
--------------------------------
squadra_casa = "c1,c2,c3,c4,c5,c6,c7,c8"
squadra_fuori = "f1,f2,f3,f4,f5,f6,f7,f8"
-----------------------------------------------------------
Apro la conn al database
-------------------------------------------------------------
dim objconn
dim objrs
set objconn = Server.CreateObject("ADODB.Connection")
set objrs = Server.CreateObject("ADODB.Recordset")
objconn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Dat a Source=" & Server.MapPath("/fpdb/webgoal.mdb"))

-------------------------------------------

Poi se ho capito bene dovrei ciclare
---------------------------------------------
For x=1 to 8

SQL = "INSERT INTO risultati (squadra_casa, squadra_fuori, data_partita, giornata ) "
SQL = SQL & "VALUES ('" & squadra_casa & "','" & squadra_fuori & "','" & data_partita & "','" & giornata & "')"

objrs.Open SQL, objconn
next
----------------------------------------------

mi inserisce 8 righe ma su squadra_casa squadra_fuori mi mette sempre lo stesso valore rispettivamente c1,c2,c3,c4,c5,c6,c7,c8 e f1,f2,f3 ecc....

potete suggerirmi dove sbaglio?

grazie di nuovo
Ciao.

[skorpio]

piccolo passo avanti:

<%
on error resume next
  giornata = Request.Form("gg")
  data_partita = Request.Form("T1")
dim objconn
dim objrs
set objconn = Server.CreateObject("ADODB.Connection")
set objrs = Server.CreateObject("ADODB.Recordset")
objconn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/fpdb/webgoal.mdb"))

For i= 1 to 8
cs = "c"& CStr(i)
casa = Request.Form(cs)

   'For x= 1 to 8
   'fr = "f"& CStr(i)
   'fuori = Request.Form(fr)

SQL = "INSERT INTO risultati (squadra_casa, squadra_fuori, data_partita, giornata ) "
SQL = SQL & "VALUES ('" & casa & "','" & fuori & "','" & data_partita & "','" & giornata & "')"

objrs.Open SQL, objconn 
next   
If err.number>0 then
response.write "

Errore nell'inserimento</P>" 
elseif conn.errors.count> 0 then
response.write "

Attenzione!</P>"
response.write "

I dati inseriti non sono corretti.</P>"
Else
response.write "

I dati sono stati inseriti correttamente!</p>"
End if
objconn.Close
set objconn = nothing
%>

con questo codice mi inserisce bene le squadre in casa , forse devo fare degli INSERT separati per ogni ciclo, m aadesso è tardi vado a nanna.
Ciao.