<% Function ValidateEmail(Expression) Dim objRegExp Set objRegExp = New RegExp objRegExp.Pattern = "^[w.-]+@[w.-]+.[a-zA-Z]+$" ValidateEmail = objRegExp.Test(Expression) End Function %>
<% Function ValidateEmail(Expression) Dim objRegExp Set objRegExp = New RegExp objRegExp.Pattern = "^[w.-]+@[w.-]+.[a-zA-Z]+$" ValidateEmail = objRegExp.Test(Expression) End Function %>