| |
<%
Dim ImageNo, RndNum
Randomize Timer
ImageNo = CStr(Fix(99999 * Rnd)) 'Here you can set the max number of images to be shown, ie. 99999999
Session("ImageNo") = ImageNo 'Session variable of the final number to be shown
For i = 1 To Len(ImageNo)
RndNum = 99999 * Rnd 'Random number to avoid caching
' here, 'img' shows which number should be displayed, we write the image tag
' to get the image from asp page.
Response.Write " "
Next
%> |