<% randomize() r=rnd() r=int(r*10) Select Case r Case 0,1 Response.Write "" Case 4,5 Response.Write "" Case 7,8 Response.Write "" Case 3,9 Response.Write "" Case 2,6 Response.Write "" End Select %>