A random number (graphically)

This is a neat little technique which could be used in a variety of scenarios such as a lottery number generator

Code :

<%
'declare a variable to store our random number
Dim intRandom
'createa random number between 1 and 20
Randomize
intRandom = Int(Rnd * 20 ) + 1
%>
<%
For i = 1 to Len(intRandom)
Response.Write "<img src=""images/2/" & Mid(intRandom, i, 1) & ".gif" & """>"
Next
%>