Type incompatible: 'IsValidEmail'
evd46
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
tarek_dotzero Messages postés 834 Statut Membre -
tarek_dotzero Messages postés 834 Statut Membre -
Bonjour,
Je reçois le message "Type incompatible: 'IsValidEmail' " en appelant une fonction sous vbscript sur une page ASP, aussi bien sous IE que sous Firefox.
Voici une version raccourcie de la page:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Emailtest</title>
<script type="text/vbscript">
function IsValidEmail(email)
dim emailParts, part, i, c
isitvalid = true
emailParts = Split(email, "@")
if UBound(emailParts) <> 1 then
isitvalid = false
exit function
end if
[ect.]
if InStr(email, "..") > 0 then
isitvalid=false
end if
IsValidEmail = isitvalid
end function
</script>
</head>
<body>
<% emailtest= IsValidEmail("erik.vandyck@club.fr")
response.write("Email is " & emailtest)
%>
</body>
</html>
Merci d'avance de m'aider à trouver l'erreur.
Erik
Je reçois le message "Type incompatible: 'IsValidEmail' " en appelant une fonction sous vbscript sur une page ASP, aussi bien sous IE que sous Firefox.
Voici une version raccourcie de la page:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Emailtest</title>
<script type="text/vbscript">
function IsValidEmail(email)
dim emailParts, part, i, c
isitvalid = true
emailParts = Split(email, "@")
if UBound(emailParts) <> 1 then
isitvalid = false
exit function
end if
[ect.]
if InStr(email, "..") > 0 then
isitvalid=false
end if
IsValidEmail = isitvalid
end function
</script>
</head>
<body>
<% emailtest= IsValidEmail("erik.vandyck@club.fr")
response.write("Email is " & emailtest)
%>
</body>
</html>
Merci d'avance de m'aider à trouver l'erreur.
Erik
Configuration: Windows XP Firefox 2.0.0.14 et IE7.0
1 réponse
-
Je pense que vous faites un EXIT FUNCTION sans donner une valeur à son nom.
Je ne sais pas est ce que vous avez utilisé le même code main
[ect.] pose un problème.-
Merci Tarek de votre début de réponse.
[etc] ne se trouve pas dans le code réel. Il y a par contre une vingtaine de règles de code à l'endroit où j'ai mis dans ce message (mais pas dans le code) "[etc.]". Vu le message d'erreur, l'erreur ne semble pas se situer là, mais dans l'appel de la fonction.
Je ne comprends pas ce que vous voulez dire avec "vous faites un EXIT FUNCTION sans donner une valeur à son nom". Il ne faut, pour autant que je sache, pas nommer la fonction dans laquelle on utilise cette sortie. Ou est-ce que je me trompe?
Cordialement.
Erik
-
