Valida E-mail via ASP

Essa funcao tem como base um email no formato minimo de x@x.x

 function ValidaEmail(text)
  dim x, strArr, strDot, valida
  x = trim(text)
  strArr = instr(x,"@")
  valida = true
  
  if strArr < 2 then
   valida = false
  else
   x = mid(x,strArr + 1,len(x))
   strDot = instr(x,".")

   if instr(x,"@") <> 0 then valida = false
   if strDot < 2 then valida = false
   x = mid(x,strDot + 1,len(x))
   if trim(x) = "" then valida = false
  end if
  
  ValidaEmail = valida
 end function

Para testar eh so usar:
if not ValidaEmail("x@x.x")then
  response.write("email invalido")
  response.end()
end if

Esta matéria foi postada originalmente no ASP4Developers por Danilo Freitas, que na época era "Programador em VB, VBScript e SQL Server.". Hoje, vai saber...