Validacao de Email no ASP

[Traunos 0]

alguem tem ai o codigo pra validar email no asp .... não é no javascript

[WebASP 0]

  Function ValidarEmail(Email) 	Dim Busca 	ValidarEmail = True          	IF Len(EMail) < 6 THEN   ValidarEmail = False	ELSE   Busca = InStr(2, EMail, "@")   IF Busca = 0 THEN  	 ValidarEmail = False  ELSE  	 Busca = InStr(Busca + 2, EMail, ".")  	 IF Busca = 0 THEN     ValidarEmail = False 	 ELSE    IF CInt(Busca) + 1 > Len(EMail) THEN    	 ValidarEmail = False    END IF 	 END IF  END IF	END IF   End Function

 

 

Response.Write ValidarEmail("marcelo@w2n.com.br")

'' RETORNA: True

 

 

Response.Write ValidarEmail("w2n.com.br")

'' RETORNA: False

[Traunos 0]

brigaduuu

[WebASP 0]

Precisando estamos ai