Hvorfor melder den her validering altid falsk ?

hejsa
tjah titlen på spørgsmålet siger vel alt..

kode .:

Function IsEmail(strEmail)
        Set rx = New RegExp
        rx.Global = True
        rx.IgnoreCase = True
        rx.Pattern = "^[a-z0-9\.\-_]+@[a-z0-9\-]{1,64}\.[a-z]{2,4}$"
        bolIsEmail = rx.Test(strEmail)
        rx.Pattern = "([-_\.]+|(-|_\.)(@|\.)|(@|\.)(-|_\.))+"
        bolIsEmail = bolIsEmail And Not rx.Test(strEmail)

        IsEmail = bolIsEmail
    End Function

    strEmail = "mccannon@hotmail.com"
  Response.Write "Is my email address " & strEmail & " valid? " & IsEmail(strEmail)