quote:

Is there a way I can check for typos in a list of emails?

quote:

ORIGINAL: treetopsranch
Edited post to add this: Deb you shouldn't have any of these characters in those email addresses: [! # $ % & ' * + - / = ? ^ _ ` { | } ~]

quote:


<%
const numFields = 1
dim errorArray()
redim preserve errorArray(numFields)

if request.form("isSubmitted") = "yes" then

eMail_Address= lcase(trim(request.form("eMail_Address")))


ErrorMsg = ""
dim re, results
set re = New RegExp

'Email
re.Pattern = "^(([A-Za-z0-9]+_+)|([A-Za-z0-9]+\-+)|([A-Za-z0-9]+\.+)|([A-Za-z0-9]+\++))*[A-Za-z0-9]+@((\w+\-+)|(\w+\.))*\w{1,63}\.[a-zA-Z]{2,6}$"
results = re.Test(eMail_Address)
if results then
errorArray(0) = "False"
else
errorArray(0) = "True"
ErrorMsg = ErrorMsg & "Please enter a valid Email Address.<br>"
end if
end if
%>
<form action="email-reg-exp-demo.asp" method="post" name="myForm" id="myForm">
<!-- Turns the text label eMail Address: red if not a valid email address -->
<%if errorArray(0) = "True" then%><font color="red">eMail Address:</font>
<%else%>
eMail Address:
<%end if%>

<input name=eMail_Address size=25 tabindex=4 value="<%=lcase(eMail_Address)%>">
<input type="submit" value="Submit">
<input type="hidden" name="isSubmitted" value="yes">
</form>
<% if ErrorMsg <> "" then %><font color="red" ><%= ErrorMsg %></font><%end if%>