codice:motivo = request.Form("Motivo") Convocato = request.Form("Convocato") if Convocato <> "1" then Convocato = "0" DivisioneNome = split(no,",") DivisioneCognome = split(co,",") DivisioneMotivo = split(motivo,",") DivisioneMaglia = split(Maglia,",") For i = LBound(DivisioneNome) to UBound(DivisioneNome) sql1 = "INSERT INTO T_Convocazioni"&session("StagioneAttuale")&" ( Nome, Cognome, Categoria, Avversario, DataConvocazione, LuogoRitrovo, LuogoPartita, OraRitrovo, OraPartita, Accompagnatore, Ufficiale, Medico, Massaggiatore, Allenatore, Maglia, Convocato) " &_ "VALUES ( '" & trim(DivisioneNome(i)) & "','" & trim(DivisioneCognome(i)) & "','" & Session("categoria") & "','" & Session("chi1") & "',#" & DataAmerica & "#,'" & Session("dove1") & "','" & Session("dovepartita1") & "','" & Session("quando") & "','" & Session("quandopartita") & "','" & Session("Acco1") & "','" & Session("Uff1") & "','" & Session("Med1") & "','" & Session("Mas1") & "','" & Session("All1") & "','" & trim(DivisioneMaglia(i)) & "','" & trim(Convocato) & "')" cn1.Execute sql1 next

Rispondi quotando


