Featured One Storey

Featured Two Storey

   

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

 

 

 

P.O. BOX 6626, STN "D", CALGARY, AB  T2P 2E4

PHONE: (403) 229-1966 FAX: (403) 229-1998