<%@LANGUAGE="VBSCRIPT"%> <% set Cnbd = Server.CreateObject("ADODB.Recordset") Cnbd.ActiveConnection = "dsn=webselection;uid=web;" %> <% 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 %>

Si les valeurs sont des chaînes de caractère, il faut rajouter des ' , si ce sont des valeurs numériques il n'y a pas de '