verification des champs d'un formulaire pour l'envoie d'un email

Marsh Posté le 21-11-2003 à 14:03:42

Donc en asp, quelqu'un aurait un formulaire ou les expressions qui verifient les champs d'un email à envoyer (genre verifie si l'email de l'expéditeur est du style nom@serveur.xxx
et si les autres champs ne sont pas vide.. etc;.

Reply

Marsh Posté le 21-11-2003 à 14:03:42

Reply

Marsh Posté le 21-11-2003 à 14:29:22

c'est quoi cette erreur quand j'essaye juste de faire une fonction comme c'est écrit dans les livres pour apprendre??

Code :

Microsoft VBScript compilation error '800a0400'
Expected statement
/essaiMail/test.asp, line 27
End Function
^

Reply

Marsh Posté le 21-11-2003 à 14:33:56

j'avais trouvé une fonction qui te controle la validité d'un mail, vais essayer de récup ca.

le voila:

Citation :

<%
Function IsValidEmail(sEMail)
Dim sInvalidChars
Dim bTemp
Dim i
Dim sTemp

' Caratères interdits
sInvalidChars = "!#$%^&*()=+{}[]|\;:'/?>,< "

' Rechercher qu'il y a au moins un '@'
bTemp = InStr(sEMail, "@" ) <= 0

' Rechercher qu'il y a au moins un '.'
bTemp = bTemp Or InStr(sEMail, "." ) <= 0

' et vérifions que la taille est plus grande que 6 caractères (a@a.ca)
bTemp = bTemp Or Len(sEMail) < 6

' Vérifier qu'il y a qu'n seul '@'
i = InStr(sEMail, "@" )

sTemp = Mid(sEMail, i + 1)

bTemp = bTemp Or InStr(sTemp, "@" ) > 0

' Vérifier qu'il y un '.' après le '@'
bTemp = bTemp Or InStr(sTemp, "." ) = 0

' Vérifier la présence de (" )
bTemp = bTemp Or InStr(sEMail, Chr(34)) > 0

' Vérifié s'il y a des caractères interdits
For i = 1 To Len(sEMail)
If InStr(sInvalidChars, Mid(sEMail, i, 1)) > 0 Then _
bTemp = True
Next

' S'il y a une seule des conditions ci-dessus qui repond true alors l'e-mail est invalide
IsValidEmail = Not bTemp

End Function
'Fonction provenant de http://www.aspfr.com
%>

Reply

Marsh Posté le 21-11-2003 à 16:21:36

Merci beaucoup!!!!!!!!!!! ça marche super bien :-D

On est toujours obliger de donner une valeur de retour à la fonction?
(NomdeFonction = <quelquechose>

Reply

Marsh Posté le 21-11-2003 à 23:53:32

en fait elle va te retourner true or false si je me trompe pas
donc faut faire un test
if IsValidEmail(blabla@blabla.com) then
end if

---------------
.: Clône de Drasche .:. Ebichuleys .:. Avec l'Aloe Vera je fais de beaux cacas [:dawa] .: www.oserselancer.com :.

Reply

Marsh Posté le 23-11-2003 à 17:09:06

oui, c'est ce que j'ai fait :-D
mais si tu veux utiliser d'autres fonctions sans vouloir une valeur de retour!! ;..???

Reply

Marsh Posté le 23-11-2003 à 17:10:50

donne moi un exemple car je comprends pas ce que tu veux dire (désolée)

---------------
.: Clône de Drasche .:. Ebichuleys .:. Avec l'Aloe Vera je fais de beaux cacas [:dawa] .: www.oserselancer.com :.

Reply

Marsh Posté le 24-11-2003 à 00:15:39

l'exemple

Code :

<%
Function affichageFormulaire()
affichageFormulaire = <quelquechose>
End Function
%>

Voila si je donne pas à la fin de ma fonction une valeur à celle ci j'ai une erreur: "statement"
du coup, je mets à la fin affichageFormulaire=""
Sachant que j'ai affiché tout ce que je voulais avant...

Reply

Marsh Posté le 24-11-2003 à 09:00:39

ah d'accord, c'est une question générale sur les fonctions donc
malheureusement je peux pas te répondre, je connais très peu les fonctions en asp

Reply

verification des champs d'un formulaire pour l'envoie d'un email

Sujets relatifs:

Leave a Replay