GUFFA | FOTO | PROGRAMMERING | GÄSTBOK

ASP : Giltig epost-adress

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"