Valider mail adresse

Så fandt jeg selv en løsning:

<%
Function ValidEmail( strEmail )
If Instr( Email, "@" ) > 0 AND Instr( Email, "." ) > 0 Then
  ValidEmail= True
Else
  ValidEmail = False
End If %>

Men ovenstående er ikke helt 100% sikkert da der stadig kan være fejl i
emailen, så næste trin er at validere email vha. Regular expressions:

<%
Function ValidEmail2( strEmail )
  Dim RegEx
  Set RegEx = New RegExp
  RegEx.Pattern = "^[a-z\-_\.0-9]+@[a-z\-_\.0-9]+\.[a-z]{2,6}$"
  RegEx.IgnoreCase = True
  ValidEmail = RegEx.Test( strEmail )
End Function
%>