function TrimValue(value)
	value=Trim(value)
	TrimValue=value
end function
function validate_email(Expression)
   	Dim objRegExp
   	Set objRegExp = New RegExp
   	objRegExp.Pattern = "^[\w-.]+@[\w-]+\.(com|net|org|edu|mil|ir|co|uk|fr|ca|tk)$"
   	validate_email = objRegExp.Test(Expression)
end function