<% random_hack=minute(now())&hour(now())&second(now()) randomize(random_hack) for i=0 to 10 call switchAD(cint(rnd()*10)) next sub switchAD(swithINT) select case swithINT case 1 response.write "" case 2 response.write "" case 3 response.write "" case 4 response.write "" case 5 response.write "" case 6 response.write "" case 7 response.write "" case 8 response.write "" case 9 response.write "" case 10 response.write "" case else response.write "" end select end sub %>