Mon if imbriqué ne fonctionne pas. [Résolu]

[beegees]

Bonjour tout le monde,

Code :

1
2
3
4
5
6
7
8
9
if EmailExistante = "" then
	response.Write("Aucune adresse n'est enregistrée pour ce matricule")
 
elseif Inscrit = "Non"  then then
	response.Write("Les identifiants ont été envoyés à cette adresse mail : " & Destinataire)
 
else
response.Redirect("www.developpez.com")
end if

Il va toujours sur le else sans passer sur le premier if et sur le elseif.

Destinataire une variable qui contient la valeur d'un champ access, si ce champ est vide, il devrait s'arrêter au premier if.

Si Inscrit vaut Non ET que Destinataire est différent de rien, alors on fait un simple response.write.

autrement, on va vers le site de developpez.com (pour les tests hein ).

Merci d'avance pour votre précieuse aide.

beegees

[jamesleouf]

Est ce que t'as au moin essayer de faire response.write des valeurs que essaie de comparer?

[copin]

Salut,

Sauf erreur de ma part je dirai que le "elseif" s'écrit séparé donc "else if"

Le "then then" sur la même ligne me semble étrange... met un seul "then"

Ensuite tu as deux "if" mais un seul "end if" bref en manques 1.

Bref si me trompe pas...

Code :

1
2
3
4
5
6
7
8
9
10
 
if EmailExistante = "" then
	response.Write("Aucune adresse n'est enregistrée pour ce matricule")
 
else if Inscrit = "Non"  then 
	response.Write("Les identifiants ont été envoyés à cette adresse mail : " & Destinataire)
       end if 
 
else response.Redirect("www.developpez.com")
end if

[beegees]

Envoyé par copin

Salut,

Sauf erreur de ma part je dirai que le "elseif" s'écrit séparé donc "else if"

Le "then then" sur la même ligne me semble étrange... mais un seul "then"

Ensuite tu as deux "if" mais un seul "end if" bref en manques 1.

Bref si me trompe pas...

Code :

Salut,

Merci pour ta réponse.

Je ne vois pas deux fois else sur la même ligne.

Si je mets else if (donc séparés) il me dit end attendu.

Merci encore

beegees

[beegees]

Envoyé par jamesleouf

Est ce que t'as au moin essayer de faire response.write des valeurs que essaie de comparer?

Salut,

Merci pour ta réponse.

J'ai fais des response.write, ils ne donnent rien :

Inscrit : NonDestinataire : <-- vide
Les identifiants ont été envoyés à cette adresse mail : <-- vide

Erreur d'exécution Microsoft VBScript erreur '800a000d'

Type incompatible: 'To'

/RN/Forms/Etape1.asp, ligne 55

En plus de ça, j'ai du code qui envoie un email à l'utilisateur mais vue qu'il n'a pas d'email, ça plante sur la ligne 55.

Code :

myMail.To= Destinataire

Ce qui est normal.

mais il passe quand même dans le else if :

elseif Inscrit = "Non" then

response.Write("Les identifiants ont été envoyés à cette adresse mail : " & Destinataire)

Donc, le problème vient d'ici :

Code :

if Destinataire = "" then

Merci encore.

beegees

[copin]

Blop,

Envoyé par beegees

Je ne vois pas deux fois else sur la même ligne.

J'ai pas dis deux fois "else" mais deux fois "then" cf ton premier post...

elseif Inscrit = "Non" then then

Me suis peut etre planté sur la position du second "end if" met le à la fin... T'aura le code suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
 
if EmailExistante = "" then
	response.Write("Aucune adresse n'est enregistrée pour ce matricule")
 
else if Inscrit = "Non"  then 
	response.Write("Les identifiants ont été envoyés à cette adresse mail : " & Destinataire)
 
else
response.Redirect("www.developpez.com")
end if
end if

Je fais ça sans tester, y peut y avoir des erreurs...

[pc75]

Bonjour,

Tu veux essayer ça ?

Code :

1
2
3
4
 
.....
if Len(Trim(EmailExistante)) = 0 then
.....

[beegees]

Envoyé par pc75

Bonjour,

Tu veux essayer ça ?

Code :

Bonjour PC75,

Merci beaucoup pour ton aide.

Malheureusement ça ne fonctionne pas.

Dans le champ email il n'y a rien, il devrait donc mettre cette phrase :

Aucune adresse n'est enregistrée pour ce matricule

Mais j'obtiens ceci :

Inscrit : Non
Destinataire : (rien)
Les identifiants ont été envoyés à cette adresse email.

je ne comprends pas.

Edit :

J'ai essayé ceci aussi mais sans succès :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
if Destinataire = "RIEN" then
	response.Write("Aucune adresse n'est enregistrée pour ce matricule")
	end if
 
select case Inscrit
 
case "Non"
	mysql = ""
	mysql = "update [annee] set Inscrit = '" & dateauj & "' where [matricule] = '" & MatriculeEmail & "' "
	cnn.Execute (mysql)
	response.Write("Les identifiants ont été envoyés à cette adresse mail : " & Destinataire)
 
case else
	response.Redirect("www.developpez.com")
end select

Merci encore.

beegees

[jamesleouf]

essaie = null
= false
=0

par contre je reconfirme Else if est en 1 seul mot....

attribue une valeur a ton email et essaie les if

et pas besoin de 2 end if a la fin puisque ya qu'une série de comp...

[beegees]

Envoyé par jamesleouf

essaie = null
= false
=0

par contre je reconfirme Else if est en 1 seul mot....

attribue une valeur a ton email et essaie les if

et pas besoin de 2 end if a la fin puisque ya qu'une série de comp...

Salut,

Tu avais raison pour le else if, ça à l'air de fonctionner maintenant avec ce code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
if Destinataire = "RIEN" then
	response.Write("Aucune adresse n'est enregistrée pour ce matricule")
 
elseif Inscrit = "Non"  then 
	mysql = ""
	mysql = "update [annee] set Inscrit = '" & dateauj & "' where [matricule] = '" & MatriculeEmail & "' "
	cnn.Execute (mysql)
	response.Write("Les identifiants ont été envoyés à cette adresse mail : " & Destinataire)
 
else
	response.Redirect("www.developpez.com")
end if

Merci encore à toi et à PC75.

Beegees

[jamesleouf]

Genial
Bonne continuation

[beegees]

Envoyé par jamesleouf

Genial
Bonne continuation

Merci pour ta disponibilité et ton efficacité

beegees