FAIRE UNE INSERTION EN BOUCLE (SQL)

<%@LANGUAGE="VBSCRIPT"%> <% set Cnbd = Server.CreateObject("ADODB.Recordset") Cnbd.ActiveConnection = "dsn=intratest;uid=sa;" %> <% Dim z Dim val Dim u z=request.form("langue").Count if request.form("langue").Count then for u=1 to z val=request.form("langue")(u) Cnbd.Source = "INSERT INTO dbo.test (Critere) Values ('"&val&"')" Cnbd.Open next end if %>