<% randomize dim x x = int(rnd()*6)+1 select case x case 1 outstr = "" case 2 outstr = "" case 3 outstr = "" case 4 outstr = "" case 5 outstr = "" case else outstr = "" end select response.write "document.write('"& outstr &"');" %>