Κ <% DIM intDice, intRollCounter %> Κ <% intRollCounter = 0 %> Κ Κ <% Randomize %> Κ Κ <% DO UNTIL intDice = 6 %> Κ ΚΚΚ <% intRollCounter = intRollCounter + 1 %> ΚΚΚ <% intDice = Int(Rnd * 6) + 1 %> Κ Κ <% LOOP %> Κ Κ <% Response.Write "It took " & CStr(intDice) ΚΚΚΚΚΚΚ & " tries to roll a 6!" %> Κ