RegExp matches alltid noll

Tjena!

Jag vet att denna kod ( validEmail(email, errMsg) ) fungerade förut. Och med förr menar jag igår.

Problemet är att vad jag än skickar in med email så får samma fel. Jag har iofs bara provat
alfanumeriska, komman, @ och punkter, men det tycker jag inte skall spela någon roll.
myMatches.count är alltid noll om email är <>""

Varför?

Private Sub ChkUsrEml()
	Call SetCon()
	set rs = con.execute("select usr from members where usr = '"&username&"'")
	if not rs.eof Then errMsg = errMsg & "<li>Användarnamnet är upptaget</li>"

	set rs = con.execute("select eml from members where eml = '"&email&"'")
	if not rs.eof Then errMsg = errMsg & "<li>Mailadressen finns redan i databasen</li>"
End Sub

Private Sub validEmail(email, errMsg)
	Dim objRegExp, myMatches

	Set objRegExp        = New RegExp
	objRegExp.Global     = True
	objRegExp.IgnoreCase = True
	objRegExp.Pattern    = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
	Set myMatches        = objRegExp.Execute(email)
	If  myMatches.count  = 0 Then errMsg = errMsg & "<li>Epostadressen är inte giltig</li>"
End Sub

If Trim(LCase(Request.Form("sendIt"))) = "skapa" Then
	Call ChkUsrEml()
	If f_name = "" Then errMsg = errMsg & "<li>Du måste uppge ditt förnamn</li>"
	If e_name = "" Then errMsg = errMsg & "<li>Du måste uppge ditt efternamn</li>"
	If username = "" Then errMsg = errMsg & "<li>Du måste ange ett användarnamn</li>"
	If Not pwd0 = pwd1 Then errMsg = errMsg & "<li>Lösenorden matchar inte</li>"
	If pwd0 = "" or pwd1 = "" Then errMsg = errMsg & "<li>Du måste ange ett lösenord</li>"
	If email <> "" Then
		Call validEmail(email, errMsg)
	Else
		errMsg = errMsg & "<li>Du måste ange en e-postadress</li>"
	End If
	If pos_lan <> "" Then
		If pos_lan = 0 Then errMsg = errMsg & "<li>Du måste välja ett län</li>"
	End If
	If Not LCase(accept) = "on" Then errMsg = errMsg & "<li>Du måste acceptera avtalet</li>"
	If errMsg <> "" Then errMsg = "<ul>" & errMsg & "</ul>"
End If