Fri Apr 08, 2011 8:55 pm
<%
' Following function validate the email address using Regular expressions.
' You can use this function to validate user input.
End Sub
Function validateEmail(ByVal strEmailAddress)
'our variables
Dim objRegularExpression, blnEmailValid
' create instance of regular expression object.
objRegularExpression = New Regex
'this is a well known regular expression for email validation.
objRegularExpression.Pattern = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
'test the email against the pattern ,
blnEmailValid = objRegularExpression.Test(strEmailAddress)
If blnEmailValid Then
'email is valid .
Response.Write(strEmailAddress & "is a valid email address .<br>")
Else
'display this if it is an invalid email address
Response.Write(strEmailAddress & "is invalid email address .<br>")
End If
End Function
%>
<P>Test Example
codemilesfe3r@er :
<%CheckMail("codemilesfe3r@er") invalid email %>
</P>
Codemiles.com is a participant in the Amazon Services LLC Associates Program, an affiliate advertising program designed to provide a means for sites to earn advertising fees by advertising and linking to Amazon.com
Powered by phpBB © phpBB Group.