<script language="vbs">
 <!--
 dim sheet
 dim pick
 dim upperbound
 dim lowerbound
 
 lowerbound=1
 upperbound=5
 
 sheet = location.search
 if len(sheet)>0 then
     if Left(sheet,1) = "?" then
         sheet=Mid(sheet, 2)
     end if
 else
     Randomize()
     pick = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
     sheet = "style" & pick & ".css"
 end if
 
 document.write "<LINK REL=STYLESHEET HREF=""" & sheet & """ >"
 --  >
 </script>