Funktionen kontrollerar ifall en sträng har rätt format för en e-post-adress.
Function IsEmail(strEmail)
With New RegExp
.IgnoreCase = True
.Pattern = "^[a-z][\w\.\-%~]*@[\w\.\-]+\.[a-z]{2,4}$"
IsEmail = .Test(strEmail)
End With
End Function
Exempel:
If not IsEmail(Request.Form("email")) Then Response.Redirect "Invalid.asp"