Regular expressions til validering af web request id

Hej

Jeg skal lave en regex der kan validere et id input på en webside
som f.eks.
http://www.minside.dk?id=XXXXXX

Jeg skal sikre mig at id er et tal mellem 0 - 999999.

Hvis id'et i mit request er udenfor denne mængde eller er ingenting (id=) skal id erstattes med 0.

Jeg har lavet følgende kode som så ud til at virke helt fint på min egen maskine men fejlede da jeg lagde den på produktionsserveren. Hvad kan være galt?

***********************************************************

Dim liId
liId = Request("id")

If liId = "" Then
  liId = 0
End If

Dim objRegExpr

Set objRegExpr = New regexp

objRegExpr.Pattern = "[0-9]{1,6}"
objRegExpr.Global = True
objRegExpr.IgnoreCase = True

Dim expressionmatch

expressionmatch = objRegExpr.Test(liId)

If expressionmatch Then
  liId = 0
End If

***********************************************************

Jeg koder normalt i .NET og er derfor meget lidt inde i traditionel ASP og VBscript så det er muligt at jeg laver nogle helt basale fejl.


Mvh Søren