Request.form + variable [Résolu]

[Phenomenium]

Salut je voudrais faire un truc de ce style :

Code :

1
2
3
4
5
6
7
	dim k, Insert_ACTIVITES_PRESTATAIRES
	for k = 1 to 14 step 1
       if not isnull(request.form(k)) and  request.form(k) <> "" then
	   		ChaineSQL = "INSERT INTO ACTIVITES_PRESTATAIRES values ('" & addslashes(request.form("CODE")) & "',  " & request.form(k) & ")"
			SET Insert_ACTIVITES_PRESTATAIRES = oConn.execute(ChaineSQL)
	   end if 
   	next

Le k est bien incrémenté, mais le request.form(k) m'affiche n'importe quoi.
Donc ma question est : a t'on le droit de faire cela, de remplacer la chaine par une variable dans request.form() et si oui, est ce que je me suis gouré quelque art ? Merci de votre aide

[malbaladejo]

K prend des valeurs entre 1 et 14.
Request.form(k) renvoie la valeur d'un champ du formulaire dont le nom vaut 1,2,...14
Exemple :

Code :

1
2
3
4
5
6
<form method="post">
<input name="1" value="test1">
<input name="2" value="test2">
...
<input name="14" value="test14">
</form>

Code :

1
2
3
for k = 1 to 14 step 1
   response.write k & " = " & Request.form(k) &"<br>"
Next

tu auras :
1 = test1
...
14 = test14

Si tu veux parcourir tous les champs d'un formaulaire, il faut faire :

Code :

1
2
3
for each strKey in Request.Form
   response.write strKey  & " = " & Request.form(strKey ) &"<br>"
Next

[Phenomenium]

Merci mais j'ai changer de solution finalement :

Code :

1
2
3
4
5
6
7
8
9
10
	SET mon_insert = oConn.execute(ChaineSQL)
	dim tableau, sep, sqlexe, k, Insert_ACTIVITES_PRESTATAIRES
	sep = ","
    if not isnull(request.form("activite")) and  request.form("activite") <> "" then
		tableau = split(request.form("activite"),sep,-1,1)
		for k = 0 to ubound(tableau) step 1
	   		sqlexe = "INSERT INTO ACTIVITES_PRESTATAIRES values ('" & addslashes(request.form("CODE")) & "',  " & tableau(k) & ")"
			SET Insert_ACTIVITES_PRESTATAIRES = oConn.execute(sqlexe)
		next
	end if

En plus c'est plus dynamique comme cela