view the source to see the asp stuff. alex

Newsletter

Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Ut nibh. Nam facilisis blandit dolor. In hac habitasse platea dictumst.

Email address:
<% Dim emailAddress emailAddress = Request("email") if emailAddress <> "" then emailAddress = Cstr(email) if emailAddress <> "" then blnValidEmail = RegExpTest(emailAddress) 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 %>
<%End If %>