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

Bonjour , j'ai écrit une fonction vbscript .Quand je la teste , j'ai l'erreur suivante :

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

Voici mon

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
function check_prenoms2(prenoms)
 dim regex , retour 
 set regex= new regexp 
 regex.ignorecase= true 
 regex.global=true 
 regex.pattern="^[0-9a-zA-Z]{1 , }$"
 retour= regex.test(prenoms) 
 check_prenoms2= retour
 end function
 
 if    check_prenoms2("2333")=false    then
 response.Write("dason2008 est incorrect ")
 else
  response.Write("dason2008 est correct ")
 end if