da una select estraggo un serie di valori e insieme a degli altri valori inseriti in un campo di testo devo inseririli su un db .
- estraggo un recordset dalla prima select e lo metto all'interno di una form
-faccio inserire per ogni record dei dati aggiuntivi e poi faccio il post ad un file che dovrebbe fare la insert .
ma non riesco a far inserire i dati del recordset estratto mi dice troppi dati ...capisco quale è l'errore ma non so come fare ..
codice:codice del form cString=Application("CMM") Set objConn=Server.CreateObject("ADODB.Connection") objConn.Open cstring %> <form name="form" method="post" action="ins_exe.asp"> <% set rs = Server.CreateObject("ADODB.Recordset") Set RsT = objconn.OpenSchema(20) NomeTabella = rsT("TABLE_NAME") rs.Open "SELECT [CENTRO DI COSTO],[CENTRO LAVORO], [REPARTO] FROM [" & NomeTabella & "] where [CENTRO DI COSTO] = '"&codice&"' GROUP BY [CENTRO DI COSTO],[CENTRO LAVORO], [REPARTO]" , objconn if rs.eof then %> Non ci sono dati <% else %> centro lavoro reparto email segr reparto <% while not rs.EOF %> <input name="cr" type="text" value="<%=rs.Fields.Item("CENTRO DI COSTO").Value%>" > <input name="ente" type="text" value="<%=rs.Fields.Item("CENTRO LAVORO").Value%>" > <input type="text" name="settore" value="<%=rs.Fields.Item("REPARTO").Value%>"> <input name="mail_seg_settore" type="text" > <% rs.MoveNext wend %> <input type="submit" name="Submit" value="Invia"> </form> <% ....... %> </body> ...... codice della pagina dove fare la insert cr=request.form("cr") ente=request.form("ente") settore=request.form("settore") mail_seg_settore=request.form("mail_seg_settore") CNN=Application("CNN") set conn=Server.CreateObject("ADODB.Connection") conn.open CNN qryx ="INSERT INTO autorita (cr, ente, settore, mail_dir_ente, mail_seg_ente, mail_dir_settore, mail_seg_settore )"&_ "VALUES ('"&cr&"' , '"&ente&"', '"&settore&"', '"&mail_dir_ente&"', '"&mail_seg_ente&"', '"&mail_dir_settore&"', '"&mail_seg_settore&"') " response.write(qryx) 'response.End() conn.execute(qryx)

Rispondi quotando