Heres a little function you can use to check your users enter valid email addresses:

<font color="blue">Function IsValidEmail(emailaddress)
Dim mc
Set mc = New RegExp
mc.Pattern = "^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$"

results = mc.Test(trim(emailaddress))
If results Then
IsValidEmail = True
Else
IsValidEmail = False
End If
End Function</font id="blue">



Cheers
Smokie