|
|
Email Validator Function
This function checks for just about anything I can think of for
an email address to not be a valid formatted email address short of pinging the
domain or sending an actual email and it returns a simple true or false.
Here is the ASP code for this script:
<form name="CheckEmailAddr" method="post" action="<%=Request.ServerVariables("URL")%>">
Enter your email address:
<input name="EmailAddr" type="text" size="20" class="bnotes">
<input type="submit" value="Validate" class="bnotes">
</form>
<%
If Len(Trim(Request("EmailAddr"))) > 0 Then
Function ValidEmail(EmailAddress)
EmailAddress = Trim(EmailAddress)
ValidEmail = True
'Check for spaces
If Instr(1,EmailAddress," ") > 0 Then
ValidEmail = False
End If
'Check length. Shortest an address can be is 6 (S@S.com = 7, S@S.cx = 6)
If Len(EmailAddress) < 6 Then
ValidEmail = False
End If
'Check for only one @ somehere in the middle
TempArr = Split(EmailAddress,"@")
If UBound(TempArr) <> 1 Then
ValidEmail = False
Else
For x = 0 to UBound(TempArr)
If Len(Trim(TempArr(x))) = 0 OR IsNull(TempArr(x)) = True Then
ValidEmail = False
End If
Next
End If
'Check for period either three or four places from end
If InstrRev(EmailAddress,".") = 0 Then
ValidEmail = False
Else
If Len(EmailAddress) - InstrRev(EmailAddress,".") > 3 OR _
Len(EmailAddress) - InstrRev(EmailAddress,".") < 2 Then
ValidEmail = False
End If
End If
End Function
If ValidEmail(Request("EmailAddr")) = True Then
Response.Write "The email address you entered appears to be a " & _
"valid email address"
Else
Response.Write "The email address you entered " & _
"does not appears to be a " & _
"valid email address"
End If
End If
%>