E-mailtjek - Out of memory

Hej

Jeg har følgende script:

<% Function isEmail(email)
   
    Dim objRegExpEMail
    Dim strEmail
   
    strEmail = Trim(Replace(email,"'",""))
   
    Set objRegExpEMail = New RegExp

    objRegExpEMail.Pattern = "([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,4}\S*)"
    objRegExpEMail.Global = False
    objRegExpEMail.IgnoreCase = True

    isEmail = objRegExpEMail.Test(strEmail)

    Set objRegExpEMail = Nothing
   
    if NOT isEMail (strEmail) then
        checkEMailError = 1
    else
        checkEMailError = 0
    end if
   
    isEmail = checkEMailError
End Function %>


Men det returnerer følgende fejl:

Out of memory: 'objRegExpEMail.Pattern'


Was ist loss?

/kovalt