<% dim CellCount, RandomImage CellCount = 60 Randomize RandomImage = "images/" & int (rnd * Cellcount + 1) & ".jpg" %> Reality (by A. Molotkov) <% dim myUA myUA = Request.ServerVariables("HTTP_USER_AGENT") if instr(myUA, "MSIE") = 0 then %>

Sorry: your browser is incapable of advanced Reality. Please use IE4 or higher to view this page.

 Reality
A. Molotkov's home page

<% else %>

To ensure optimal viewing, you are asked to download the images first (3 Mb total size).

 

 Reality
A. Molotkov's home page

<% end if set bc=nothing %>