controllo mail

[salvox150]

Per ASP:

Public Function CheckEmail(str)
  Dim objER, result
  
  Set objER = New RegExp 'istanzia l'oggetto REGULAR EXPRESSION
  
  objER.Global = True 'cerca il pattern in tutta la stringa di input  
  objER.IgnoreCase = True 'nessuna differenza fra maiuscole/minuscole
  objER.Pattern = "^[\w\.-]+@[\w\.-]+\.[a-z]{2,3}$" 'Espressione Regolare
 
  result = objER.Test(str) 'verifica la corrispondenza con il pattern

  Set objER = Nothing
  CheckEmail = result
End Function