<% dim rnum randomize() rnum=rnd() %>