function is_email ($Address = "")
{
if(!ereg("@",$Address))
{
return false;
}
list($User,$Host) = split("@",$Address);
if ( (empty($User)) or (empty($Address)) )
{
return false;
}
if (!eregi("^[a-z0-9_\-\.]+@{1}[a-z0-9_\-]{1,64}(\.[a-z0-9_\-]{1,64})+$",$Address))
return FALSE;
return true;
}