|
| |
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
Topic : Email Address Validator
|
|
Author : Kiran Kumar
|
Total Visits: 208
|
|
Published Date:
Thursday, December 28, 2000
|
|
|
<%
Function IsEmail(CheckEmail)
Dim sEmail, nAtLoc
IsEmail = True
sEmail = Trim(CheckEmail)
nAtLoc = InStr(1, sEmail, "@")
If Not (nAtLoc > 1 And (InStrRev(sEmail, ".") > nAtLoc + 1)) Then
IsEmail = False
ElseIf InStr(nAtLoc + 1, sEmail, "@") > nAtLoc Then
IsEmail = False
ElseIf Mid(sEmail, nAtLoc + 1, 1) = "." Then
IsEmail = False
ElseIf InStr(1, Right(sEmail, 2), ".") > 0 Then
IsEmail = False
End If
End Function
%>
<% =IsEmail("name@domain.com") %>
<%=IsEmail("Name@domain.") %>
<%=IsEmail("Name@dom@ain.com") %>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|