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