<%
' Upper bound of the random number range
Dim intRangeSize
Dim sngRandomValue
Dim intRandomInteger
const intLowerBound = 65
const intUpperBound = 90

Randomize()

' Find range size
intRangeSize = intUpperBound - intLowerBound + 1

' Get a random number from 0 to the size of the range
sngRandomValue = intRangeSize * Rnd()

' Center the range of possible random numbers over the desired result set
sngRandomValue = sngRandomValue + intLowerBound

' Convert our value to an integer
intRandomInteger = Int(sngRandomValue)


' Show out output indicating what we've done and our result.
%>