|
<%
Response.Expires = -1
'Set TimeIt To TRUE If You Want A Diffre
' nt Banner Every Hour
'Or Else Your Gonna Get A Random Banner
TimeIt = False
If TimeIt = False Then
Dim RandNum
Randomize
RandNum = Int(Rnd * 4) + 1
If RandNum = 1 Then
Response.Write(" ")
ElseIf RandNum = 2 Then
Response.Write(" ")
ElseIf RandNum = 3 Then
Response.Write(" ")
ElseIf RandNum = 4 Then
Response.Write(" ")
End If
%>
<%
Else
MyTime = DatePart("h",Time())
Select Case MyTime
Case 1, 6, 9
Response.Write("")
Case 3, 8, 11
Response.Write("")
Case 2, 5, 10
Response.Write("")
Case 4, 7, 12
Response.Write("")
End Select
End If
%> |
