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