<%
If IsNumeric(Request.QueryString("lowerbound")) Then
intLowerBound = CLng(Request.QueryString("lowerbound"))
Else
intLowerBound = 0
End If
If IsNumeric(Request.QueryString("upperbound")) Then
intUpperBound = CLng(Request.QueryString("upperbound"))
If intLowerBound = 0 And intUpperBound = 0 Then intUpperBound = 3
Else
intUpperBound = 3
End If
If intLowerBound > intUpperBound Then
Dim iTemp
iTemp = intLowerBound
intLowerBound = intUpperBound
intUpperBound = iTemp
End If
Randomize()
intRangeSize = intUpperBound - intLowerBound + 1
sngRandomValue = intRangeSize * Rnd()
sngRandomValue = sngRandomValue + intLowerBound
intRandomInteger = Int(sngRandomValue)
%>
Business Unlimited
