Discussion :

[antrax2013]

Bonjour je ne comprends pas. Quand la function ci-dessous est dans le même fichier qu'un autre dont le test ci-dessous est extrait ça marche bien.

Code :

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

1
2
3
4
5
6
7
 
Function checkmail(mail) 
dim regEx
set regEx = new RegExp
regEx.Pattern = "[a-z0-9._-]+@[a-z0-9._-]{2,}[.][a-z]{2,3}$" 
checkmail= regEx.test(mail)
end function

Code :

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

if(checkmail(MA)) then  ....

lorsque j'externalise ma fonction c'est à dire qu'elle devient ainsi

Code :

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

1
2
3
4
5
6
7
8
 
<%
Function checkmail(mail) 
 dim regEx
 set regEx = new RegExp
 regEx.Pattern = "[a-z0-9._-]+@[a-z0-9._-]{2,}[.][a-z]{2,3}$"     checkmail= regEx.test(mail)
end function
%>

pour l'utiliser dans d'autre page j'utilise ça:

Code :

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

<!-- #include file="check.asp" -->

j'obitens alors le message d'erreur suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Erreur de compilation Microsoft VBScript error '800a0401'
 
Fin d'instruction attendue 
 
/iisHelp/common/500-100.asp, line 11 
 
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Erreur d'exécution Microsoft VBScript error '800a000d' 
 
Type incompatible: 'checkmail'
 
/askia/add.asp, line 30

Et ça fait un bout de temps que je cherche mais je ne voit pas d'où vient le pb.

Alors si vous avez une petite idée, d'avance je vous en remmercie.

[malbaladejo]

D'après ce que je vois ton erreur viens du faite qu'il a 2 dim sur la même ligne.
Ligne qui plante d'après le message d'erreur:

Code :

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

Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow

Ce qu'il faudrait écrire :

Code :

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

1
2
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP 
Dim strMethod, lngPos, datNow

[Immobilis]

D'après ce que je vois ton erreur viens du faite qu'il a 2 dim sur la même ligne.

Non, non, l'erreur que tu pointe vient de la page

/iisHelp/common/500-100.asp, line 11

C'est autre chose.
Pourquoi c'est sur la mm ligne ça?

Code :

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

regEx.Pattern = "[a-z0-9._-]+@[a-z0-9._-]{2,}[.][a-z]{2,3}$"     checkmail= regEx.test(mail)

A+

[antrax2013]

là c'est un mauvais copier-coller

Code :

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

1
2
regEx.Pattern = "[a-z0-9._-]+@[a-z0-9._-]{2,}[.][a-z]{2,3}$"  
   checkmail= regEx.test(mail)