Email address:
">
Name:
">
City/State/Country:
">
Security check: please retype the number you see here:
<% 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 %>