ton insert into tu le met dans une boucle
Exemple:
---------------------------------------------
Dim tbl,ele,Champ_saisie
qte=request.form("Champ")
tbl=split(qte,",") 'c'est pour récupérer les champs de saisie spéarément
Dim strinsert
Do While not objrs.eof 'ca c'est les données que tu récupére de ta requéte select
For each ele in tbl ' les données de ton champ de saisie
Champ_saisie=ele
strinsert="insert into tbleval (Champ1, Champ2) values ('"&Valeur&"','"&Valeur2&"')
set objrsinst =server.createobject("ADODB.Recordset")
objrsinst.open strinsert,objconn,3,3
bjrs.movenext
next
loop