Brug denne her funktion til at tjekke om mailen er valid :-)
<% Function MailOK(Streng) Set regEx = New RegExp regEx.IgnoreCase = True regEx.Pattern = "^[a-z0-9\.\-\_]+\@[a-z0-9\.\-]+\.(dk|com|net|org|info|biz|name|us|" &_ "ac|ag|as|at|be|cc|ch|uk|fm|gs|io|it|jp|li|lt|lv|ms|nu|pl|ro|se|sh|tc|tf|tm|to|vg|de|fr|no)$" MailOK = regEx.Test(Streng) Set regEx = Nothing End Function %>
okay... ja den ser meget simpel ud, men forstår ikke så meget af den :-) så derfor kommer der da lige et spørgsmål mere
hvad sker der, hvis det ikke er en gyldig e-mail adresse??? for indtil videre, køre jeg alt min kontrol af de forskellige felter i if'er... så ved ikke helt hvor den function evt. skal smides hen....
og hvis jeg skal have den til at hente en variabel, så hedder den vel bare mailok(email)...
Jeg bruger denne i stedet: function checkEmail(fEmail) dim fMailRx Set fMailRx = New RegExp fMailRx.Global = True fMailRx.IgnoreCase = True fMailRx.Pattern = "^\w[\w\.\-\+]*@\w([\w\-]*\.)+\w{2}\w*$" checkEmail = fMailRx.test(fEmail&"") Set fMailRx = nothing end function
Den tjekker dog ikke for om TopLevelDomænet eksistere, som madeinddk's gør (du mangler desuden "edu" på listen). Min tjekker bare at den skal ende på ".xx". Tilgængæld er min mere rigtig i forhold til det som kommer før @.
Det er Regular Expression kode vi afvikler her. Det er nok det mest kraftfulde værktøj der nogen sinde er opfundet inden for programmering, hvorfor det er blevet implementeret i rigtig mange sprog. Det er dog svært at forstå for ikke "indvidet" :o)
Funktione returnere true/false, så det er bare at kalde:
if checkEmail(request.form("email")) then response.write "Email valid" else response.write "Email forkert" end if
Dette burde være den ultimative email tjekker, sålænge man opdatere TLD listen til at indeholde alle valide TLD'er (så lige at eu heller ikke var på listen)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
