set rexp = new RegExp rexp.Pattern="^([a-z]|\d|_|\-)+(\.([a-z]|\d|_|\-)+)*@([a-z]|\d|_|\-)+(\.([a-z]|\d|_|\-)+)*\.(([a-z]){2,})$" rexp.IgnoreCase = True set finds = rexp.Execute("email@domain.ru") if finds.count<>0 then %><hr><br><br><%=finds(0).value%><br><% else %><hr><br><br>invalid<br><% end if