<%@ 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
%>