VBscript eMail validation script
Enter an eMail address:
Here is the code:
<% Dim xemail xemail = Request("xemail") if xemail <> "" then xemail = Cstr(xemail) if xemail <> "" then blnValidEmail = RegExpTest(xemail) if blnValidEmail then Response.Write("Valid email address") else Response.Write("Not a valid email address") end if end if Function RegExpTest(sEmail) RegExpTest = false Dim regEx, retVal Set regEx = New RegExp ' Create regular expression: regEx.Pattern ="^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$" ' Set pattern: regEx.IgnoreCase = true ' Set case sensitivity. retVal = regEx.Test(sEmail) ' Execute the search test. If not retVal Then exit function End If RegExpTest = true End Function Else %> <form action="" method="post"> <input type="text" name="xemail"> <input type="submit" value="submit"> </form> <%End If %>