<% x = array("asp","hackhell","freemitnick","ask","sevgi","bill","gates") ' kelimeler tdk = ubound(x) Randomize k1 = Int((Rnd*tdk)) Response.write x(k1) %>