Colore di sfondo casuale

Con il seguente script sarà possibile generare il colore di fondo della pagina in modo completamente casuale:

<%

randomize()

dim strColore

strColore = “”

dim CtInd

for ctInd = 1 to 6

strColore = strColore & hex( (15)*rnd() )

next

%>

<HTML>

<HEAD>

<TITLE>bgcolor casuale</TITLE>

</HEAD>

<BODY bgcolor=”#<%=strColore%>”>

</BODY>

</HTML>