<% Dim randomNumAd, highestNumberAd, lowestNumberAd lowestNumberAd=1 highestNumberAd=1 RANDOMIZE randomNumAd= Int((highestNumberAd - lowestNumberAd + 1) * Rnd + lowestNumberAd) %>