codice:
<% 
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>