Email Streng tjek

Kald fx denne funktion som returnerer True hvis 'strng' er en korrekt email, ellers False:

Function validEmail(strng)
  Dim regEx, retVal           
  Set regEx = New RegExp       
  regEx.Pattern = "^[^@]*@\w[\w\.-]*\.[a-z]{2,6}$"   
  regEx.IgnoreCase = True       
  validEmail = regEx.Test(strng)       
End Function

HEHE! Ja OK tjp! Jeg er helt sikker på at din løsning er den bedste, men jeg har lavet en noget mere omstændig én af slagsen...
Men jeg vil ved nærmere eftertanke anbefale din løsning...
Men her er min:
<%
function emailtjek(streng)
emailtjek = streng
    if (emailtjek <> "" AND NOT isnumeric(emailtjek)) then
test = emailtjek
    emailtjek1 = split(test,"@")
    for i=0 to ubound(emailtjek1)
    firstC=firstC+1
    next
        if NOT firstC = 2 then
emailtjek = "The E-mail address is NOT OK!"
        else
emailtjek2 = split(test,"@")
emailtjek3 = split(emailtjek2(1),".")
for j=0 to ubound(emailtjek3)
    secC=secC+1
next
if secC => 2 then
emailtjek = "The E-mail address is OK!"
else
emailtjek = "The E-mail address is NOT OK!"
end if
        end if
    else
emailtjek = ""
    end if
end function           
%>
<%="" & emailtjek("MinMail@hotmail.com") & ""%>

\Dan