<% Randomize Dim RandomNum, UpperBound, LowerBound LowerBound = 1 'Put In the first picture # UpperBound = 10 'Put In the last picture # RandomNum = Int((UpperBound - LowerBound + 1) * Rnd + LowerBound) %>