Prova questa due pagine.
Pagina1:
Pagina2:codice:<form name="form1" method="post" action="insert.asp"> <table width="500" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><div align="center">Codice</div></td> <td><div align="center">quantità</div></td> <td><div align="center">totale</div></td> </tr> </table> <div align="center"> <% for i = 1 to 3 %> <table width="500" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><div align="center"> <input name="codiceprod<%=i%>" type="text" id="codiceprod<%=i%>"> </div></td> <td><div align="center"> <input name="qta<%=i%>" type="text" id="qta<%=i%>"> </div></td> <td><div align="center"> <input name="totale<%=i%>" type="text" id="totale<%=i%>"> </div></td> </tr> </table> <% next %> <input type="submit" name="Submit" value="Invia"> </div> </form>
Dovrebbe funzionare.codice:<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("mdb-database/prova.mdb") intNumForm = Request.Form.count - 1 For i=1 to (intNumForm / 3) codiceprod = request.form("codiceprod" & i & "") qta = request.form("qta" & i & "") totale = request.form("totale" & i & "") strSQL = "INSERT INTO ordini (codiceprod, qta, totale)" strSQL = strSQL & " values (" strSQL = strSQL & "'" & codiceprod & "', " strSQL = strSQL & "'" & qta & "', " strSQL = strSQL & "'" & totale & "')" Response.Write(strSQL) & " " 'conn.execute (strSQL) Next conn.Close Set conn = Nothing response.write "tutto ok" %>

Rispondi quotando
