Código fuente de 'Comprueba validez correo.asp'

<html>
<head>
<title>Comprueba validez correo - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
<body style="font-family: Arial; font-size: 9pt">
<p align="center"><b><font size="3">Comprueba validez correo<br>
&nbsp;</font></p>

</b></p>
Aquí te presentamos una función que permite validar los correos (ver código). Para verificar si una dirección de correo, pásale la función 'VerificaCorreo'
<br>
Ejemplo: VerificaCorreo("<a href="mailto:alguien@algo.xxx">alguien@algo.xxx</a>").

<br>
<br>
Algunos resultados:

<br><br>

<% 'Código ASP

Function VerificaCorreo(Email)
ValidFlag = False
If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then
atCount = 0
SpecialFlag = False
For atLoop = 1 To Len(Email)
atChr = Mid(Email, atLoop, 1)
If atChr = "@" Then atCount = atCount + 1
If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True
If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True
If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True
If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True
Next

If (atCount = 1) And (SpecialFlag = False) Then
 BadFlag = False
 tAry1 = Split(Email, "@")
 UserName = tAry1(0)
 DomainName = tAry1(1)
 If (UserName = "") Or (DomainName = "") Then BadFlag = True
 If Mid(DomainName, 1, 1) = "." then BadFlag = True
 If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True
 ValidFlag = True
End If
 
End If
If BadFlag = True Then ValidFlag = False
VerificaCorreo = ValidFlag
End Function
%>

<%= "VerificaCorreo(alguien@algo.net) = " & VerificaCorreo("alguien@algo.net") & "<br>" %><%= "VerificaCorreo(alguienalgo.net) = " & VerificaCorreo("alguienalgo.net") & "<br>" %><%= "VerificaCorreo(alguien@algonet) = " & VerificaCorreo("alguien@algonet") & "<br>" %></body>
</html>