Discussion :

[beegees]

Bonjour tout le monde,

Code :

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

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?

[beegees]

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 :

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

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 :

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

if Destinataire = "" then

Merci encore.

beegees

[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 :

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

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]

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 :

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

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)
end if 
 
else
response.Redirect("www.developpez.com")
end if

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

[copin]

Blop,

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 :

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

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 :

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

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

[beegees]

Bonjour,

Tu veux essayer ça ?

Code :

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

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

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 :

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
 
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