<%@ Language=VBScript %> popolo.com :: carl popolo new media design and programming <% HoopOn = 0 Dim d, nHour d = Now() if HoopOn = 1 Then Response.Redirect("index_main_hoop.html") else if (Month(d)=12 and Day(d)>15) or (Month(d)=1 and Day(d)<10) Then Response.Redirect("index_main_xmas.html") else ' Response.Redirect("atest.html") if 1=1 then nTest = Int((d-Int(d)) * 86400) mod 60 if nTest < 30 then Response.Redirect("index_main_01.html") else if nTest < 60 then Response.Redirect("index_main_02.html") else Response.Redirect("index_main_03.html") ' test page end if end if end if end if end if %>