VÉRIFIER UN ENTIER VIA LES REGEXP

<%
	Function VerifNumerique(nb)
    	Dim regEx
            
        Set regEx = New RegExp
            
        regEx.Global = True
        regEx.Pattern = "^[0-9,]+$"
        notag = regEx.test(nb)
		VerifNumerique = notag
    End Function
    
    Dim ch
    ch = "750,2"
    
    If VerifNumerique(ch) = False Then
        Response.Write "Le nombre " & ch & " n'est pas valide"
    Else
        Response.Write "Le nombre " & ch & " est valide"
    End If  
    
%>