Validar e-mail con ASP

Esta es una función muy interesante que verifica que la dirección de correo que se le pasa (la variable texto) sea correcta.

Para comprobar que el usuario introduce la dirección correctamente desde una página recomendamos que se compruebe desde Javascript para evitar los pasos de alante y atrás que hacen muy incomoda la navegación; sobre todo si esta en un formulario (algo común) y este se borra cada vez que hay un error.
Esta función es mas recomendable para la comprobación una vez introducidos los datos; por ejemplo comprobar las 'celdas mail' de una tabla.

<%
'Copyright © 2002 McAnam.com

Function mail(texto)

     texto=trim(texto)

     cadena = "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ1234567890@.-_"

     punto = InStrRev(texto, ".")
     arroba = InStr(1, texto, "@", vbTextCompare)
     If (InStrRev(texto, "@") <> arroba) Then arroba = 0

     mail = True

     For contador = 1 To Len(texto)
     If InStr(1, cadena, Mid(texto, contador, 1), vbTextCompare) = 0 Then
     mail = False
     Exit For
     End If
     Next

     If punto <> 0 And arroba > 1 And (arroba + 1 < punto) And (punto + 1 < (Len(texto))) And mail = True And InStr(texto, "..") = 0 Then
     mail = True
     Else
     mail = False
     End If

     End Function
%>

Original de McAnam

Usuarios que han visto este tema también han visto...

- Validar usuarios con Sesiones con ASP
- Medir el tiempo que tarda en cargarse un ASP
- Depuracion: mostrar las variables de session
- Optimizar páginas con ASP
- Determinar si un numero es par o impar con ASP

- Versión imprimible de este documento

- Enviar por e-mail este documento