CSS casuale

Questo script sceglierà in modo random il css per la pagina web:

<%
randomize 
function css()
'Numero css disponibili
dim qtCss 
qtCss = 10
'Scelta Casuale
css = cint( (qtCss - 1 )rnd() +1 )
end function
%>
<link rel="stylesheet" href="foglio<%=css()%>.css" type="text/css">