Dim s(10)
Dim h,x,y,z
For x = 0 To 9
s(x) = x
Next
For y = 9 To 0 Step -1
Randomize
z = Int(Rnd() * (y - 1 + 1) + 1)
h = s(z)
s(z) = s(y)
s(y) = h
Next
response.write join(s)