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