<% ' ----------------------------------- ' Generate a random integer; the ' range is the total number of jokes. ' ----------------------------------- Dim totalJokes, key totalJokes = 20 Randomize() key = Int(totalJokes * Rnd() + 1) %> <% ' %>