dbWriter Email test ASP code
Enter an Email address to test.
<%
Function EmailTest(sEmail)
EmailTest = false
Dim regEx, retVal
Set regEx = New RegExp
regEx.Pattern ="^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$"
regEx.IgnoreCase = true
retVal = regEx.Test(sEmail)
If not retVal Then
exit function
End If
EmailTest = true
End Function
%> |
|
