Futuraweb, extend you brand online

Una semplice funzione per validare un indirizzo email attraverso le espressioni regolari.

<%

Function isValidEmail(myEmail)
  dim isValidE
  dim regEx

  isValidE = True
  set regEx = New RegExp

  regEx.IgnoreCase = False

  regEx.Pattern = "^[a-zA-Z][w.-]*[a-zA-Z0-9]@[a-zA-Z0-9][w.-]*[a-zA-Z0-9].[a-zA-Z][a-zA-Z.]*[a-zA-Z]$"
  isValidE = regEx.Test(myEmail)

  isValidEmail = isValidE
End Function
%>

Leave a Reply