regexp problem

Håller på och mixtrar runt lite med regExp.
Jag vill validera två forms och kontrollera att de innehåller siffror.siffror.siffror.siffror
Alltså Ip-adresser. Vet inte om det är möjligt att validera två forms, som man ju fyller i olika värden i, med samma regexp sats. Men här är iaf min kod och felmesset jag får:

<% Function Validate(strValue)
With New RegExp
.Pattern="^[0-5]+\.[0-5]+\.[0-5]+\.[0-5]+\.$"
Validate("ipadress") and Validate("netmask") =.IP(StrValue)
End With
End Function

If not Validate(Request.Form("ipadress") AND Request.Form("netmask")) Then
Response.Write("Något av fälten innehåller ogiltiga tecken")

Else %>

Fel:

Körningsfel i Microsoft VBScript fel '800a0006'

Spill: '[number: 2552552550]'

/ipsecurity.asp, rad 36

Fixade det innan.
Dock har ett nytt problem uppstått..

Körningsfel i Microsoft VBScript fel '800a0007'

Out of memory.: 'Pattern'

/ipsecurity.asp, rad 31

Function Validate(strValue)
With New RegExp
.Pattern="^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$"
Validate("ipadress") and Validate("netmask") =.IP(StrValue)
End With
End Function

If not (Validate(Request.Form("ipadress")) AND Validate(Request.Form("netmask"))) Then
Response.Write("Något av fälten innehåller ogiltiga tecken")

Else

Där rad 31 är .Pattern osv...

Okej.. nu har jag skrivit om regexp koden efter artikeln som goose postade.
Där fanns en del variabler som dock inte fungerade i ASP.. gjorde om det litet och nu får jag följande mess:

Körningsfel i Microsoft VBScript fel '800a01a8'

Objekt krävs.: ''

/ipsecurity.asp, rad 34

Hela koden:

Dim objRe
With New RegExp
Dim strForm
Dim strForm2
objRe.Pattern="^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$"
strForm = "" & Request.Form("ipadress") & ""
strForm2 = "" & Request.Form("netmask") & ""
If objRe.Test(strForm) AND objRe.Test(strForm2) = false Then
Response.Write("Något av fälten innehåller ogiltiga tecken.")

Else

mer kod här

End With
Set Validate = Nothing
End If

Line 34 är objRe.Pattern="^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$"

Hur menar du?

Då kan jag ta bort End With va?
Om jag gör det så för jag följande:

Körningsfel i Microsoft VBScript fel '800a01b6'

Objektet stöder inte egenskapen eller metoden.

/ipsecurity.asp, rad 33

EDIT: rad33: objRe = New RegExp

Japp! nu fungerar det.. men givetvis tar felen inte slut där heller

Får nu felmess på en rad som tidigare fungerat.

Körningsfel i Microsoft VBScript fel '800a0005'

Ogiltigt proceduranrop eller argument.

/ipsecurity.asp, rad 58

Är denna:
Set SecObj2 = GetObject("IIS://LocalHost/W3SVC/1/Root")

Det är en del av koden som ligger efter regexpen.

EDIT: Kolla hela koden här: http://hashasp.mine.nu/paster/?id=157