• User Newbie

    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 "......."
    %>