Inserimento multiplo record

[gusalvo]

Inserimento multiplo record

Salve,

Da un elenco di prodotti vorrei selezionarne alcuni e scriverli su un'altra tabella del db con la scelta facoltativa di apporre un flag sui checkbox 'sera' e 'mattina'.
Il seguente script mi permette di scrivere sull'altra tabella il campo 'idprodotto' e 'idtrattamento', ma i checkbox non vengono scritti correttamente.
Cosa sbaglio?

<form action="es_02.asp" method="post">

<%

'aperta connnessione al database
Set Conn = Server.createobject("ADODB.Connection")
Conn.connectionstring="Driver={MySQL ODBC 3.51 Driver}; ....................."
Conn.Open

Set Rs = Server.CreateObject("ADODB.Recordset")
SQL ="SELECT * FROM prodotti order by idprodotto LIMIT 3"

RS.Open SQL,Conn, 3, 3

While not RS.EOF

%>

<%=rs("idprodotto")%>/<%=rs("descr")%>
<input type="checkbox" name="idprodotto" value="<%=rs("idprodotto")%>" />
Mattina <input type="checkbox" name="mattina" value="1" />
Sera <input type="checkbox" name="sera" value="1" />
<input name="IdTrattamento" type="hidden" value="<% = request.querystring ("IdTrattamento")%>" />

<br />

<%
RS.MoveNext
Wend
%>

<input type="submit" value="Invia" class="button" />
</form>

<%
RS.Close
Set RS = nothing
Conn.Close
Set Conn = nothing
%>

********** PAGINA DI INSERIMENTO ************

<%
' recupero i dati dai form
Dim mode, mode_a, i
mode = Request("idprodotto")

mode_a = split(mode,",")

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

' inserisco nel ciclo i dati nel DB
Set Connn = Server.createobject("ADODB.Connection")
Connn.connectionstring="Driver={MySQL ODBC 3.51 Driver}; ............................"
Connn.Open
strSQL = "INSERT INTO relazprodtratt " &_
"(idprodotto, mattina, sera, idtrattamento) " &_
"VALUES " &_
"('"&mode_a(i)&"' , '"&Request.Form("mattina")&"' , '"&Request.Form("sera")&"', '"&Request.Form("IdTrattamento")&"' )"
Connn.Execute(strSQL)
'response.write(strSQL)
Connn.close

Next

' redirect
response.Redirect "......."
%>