Check a number is in a valid range

This example checks too see if a number is in a valid range , it rejects numbers too high or low and non numerical entries .Handy if you want to ensure for some reason a user enters a number in a valid range , say for their age .

Code :

<%
'check if a number is in valid range
Function IsValidRange(intNumber)
'our variables
Dim objRegExp , blnValid
'create a new instance of RegExp object
Set objRegExp = New RegExp
'our pattern to match numbers from 1 to 7
objRegExp.Pattern = "^[1-7]$"
'store the result in blnValid
blnValid = objRegExp.Test(intNumber)
If blnValid Then
'if true then display this message
Response.Write "The number is in the valid range<br>"
Else
'not in valid range display this nmessage
Response.Write "Not in a valid range please try again<br>"
End If
End Function
%>
<% IsValidRange(2) 'valid %>
<% IsValidRange(-2) 'invalid negative number %>
<% IsValidRange(8) ' too many invalid %>
<% IsValidRange(a) 'invalid not numeric %>