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

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

<% else %>

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

 Silence
A. Molotkov's home page

<% end if set bc=nothing %>