Colore di sfondo casuale

Questo script permette di generare il colore dello sfondo della pagina in modo random:

<%
randomize() 
dim strColore
strColore = ""
dim CtInd
for ctInd = 1 to 6
strColore = strColore &amp; hex( (15)rnd() )
next
%>
<HTML>
<HEAD>
<TITLE>bgcolor casuale</TITLE>
</HEAD>
<BODY bgcolor="#<%=strColore%>">
</BODY>
</HTML>