Discussion :

[bobic]

bjour,

j'ai fait le script suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
i=2
	while i<=9
 
	if (trim(request.form("nom" &i)) <>"") Then
		if (trim(request.form("prenom"&i))="" or trim(request.form("userid" &i))="") Then
		errormessage & i  = "<br><br>Attention, vous n'avez pas correctement rempli la " & i & "ème ligne.<br>Veuillez revenir à la page précédente"
		traitementtemp="NOK"
		else
		demande & i = "Pour " & request.form("prenom" &i) & " " & request.form("nom" &i) & " (Login: " & request.form("userid" &i) & ") "& request.form("ajoutsup" & i) & " l'accès en " & request.form("propriete" &i)
		end if
	end if
 
	i = 1 + i
	response.write i
Wend

mais il y a des erreurs, notemmment lors du passage du i,lors de, par exemple, erreurmessage & i. je voudrais en gros, qu'il me donne ainsi en fct de la boucle erreurmessage1,erreurmessage2,etc....

comment pourrais je faire cela sans erreur ??

merci à tous

[malbaladejo]

tu ne peux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

errormessage & i  = "message"

Par contre tu peux stocher tes messages dans un tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim arrErrorMessage
Redim arrErrorMessage(0)
 
i=2 
   while i<=9 
 
   if (trim(request.form("nom" &i)) <>"") Then 
      if (trim(request.form("prenom"&i))="" or trim(request.form("userid" &i))="") Then 
      Redim Preserve arrErrorMessage(Ubound(arrErrorMessage)+1)
      arrErrorMessage(Ubond(arrErrorMessage)) = "<br><br>Attention, vous n'avez pas correctement rempli la " & i & "ème ligne.<br>Veuillez revenir à la page précédente" 
      traitementtemp="NOK" 
      else 
    ...
      end if 
   end if 
 
   i = 1 + i 
   response.write i 
Wend

[bobic]

ah,c bien ce que je pensais, cela n'est pas possible
je v dc faire des array heu... tableau

merci à toi !!

[Vow]

Attention, c'est UBound et non UBond (je sais que c'est une erreur de frappe).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
...
      arrErrorMessage(UBound(arrErrorMessage)) = "<br><br>Attention, vous n'avez pas correctement rempli la " & i & "ème ligne.<br>Veuillez revenir à la page précédente"

[bobic]

en effet cela fonctionne

seule petite chose:
je réussit à afficher mes datas dans ma boucle while (ou l'erreur) mais par contre, j'aimerais récupérer ttes les valeurs de mon tableau pour pouvoir toute mettre ds la BD.

bien sur, si je fais un

demande1 = demande1 & arrDemande(Ubound(arrDemande))

j'ai bien les datas de demande1, mais seulement la dernière valeur de arrDemande...

dc ma question est la suivante. comment faire pour concaténer tous ces résultats dans ma variable statique ? merci

[malbaladejo]

il suffit de parcourir le tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 to Ubound(arrDemande)
    demande1 = demande1 & arrDemande(i)
Next

[bobic]

merci

c nickel !

[bobic]

encore un prob:

j'ai donc ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
i=1
		while i<=9
			if (trim(request.form("serveur" & i)) <>"") Then
 
				if (trim(request.form("ressource" & i))="") Then
				Redim Preserve arrErrorMessage(Ubound(arrErrorMessage)+1)
				arrErrorMessage(Ubound(arrErrorMessage)) = "Veuillez remplir correctement la ligne" & i & " de la DARP<br>"
				traitementtemp="NOK"
 
				else
				Redim Preserve arrDemande(Ubound(arrDemande)+1)
				arrDemande(Ubound(arrDemande)) = request.form("ajoutsup" &i) & " " & request.form("ressource" &i) & " sur " & request.form("serveur" &i) & " en " & request.form("propriete" &i) & "."
				traitementtemp="OK"
				end if
			else
			traitementtemp="OK"
			end if
 
			erreurDARP = erreurDARP & arrErrorMessage(i)
			descriptionDARP = descriptionDARP & arrDemande(i)
			i = 1 + i
 
		Wend

Le problème, est que si la condition de mon second if n'est pas vérifiée lors de la première boucle (i=1), alors ma boucle stoppe. Dans le cas inverse, cela fonctionne très bien....

[bobic]

c bon, j'ai changé ma requête, j'ai mis un for, avec un exit, et cela fctionne nickel