<%
dim j, cardindex1, cardindex2
'สุ่มไพ่แสดง
Randomize ' Initialize random-number generator.
cardindex1 = Int((4 * Rnd) + 1) ' Generate random value between 1-4
if cardindex1=0 then cardindex1=1
for j=1 to 5
Randomize ' Initialize random-number generator.
cardindex2 = Int((4 * Rnd) + 1) ' Generate random value between 1-4
if cardindex2=0 then cardindex2=1
next
%>