<% dim num Randomize num=Int((1000000*Rnd)+1) %>