<% 'Script to check for day to display correct hours Dim Tday, Tdate, iLoop, iPos Tday = Weekday(Now()) Tdate = Date() Closed = ("8/31/2013, 9/1/2013, 9/2/2013, 11/28/2013, 11/29/2013, 12/21/2013, 12/22/2013, 12/23/2013, 12/24/2013, 12/25/2013, 12/26/2013, 12/27/2013, 12/28/2013, 12/29/2013, 12/30/2013, 12/31/2013, 1/1/2014, 1/20/2014, 1/22/2014, 2/3/2014, 2/5/2014, 2/13/2014, 2/17/2014, 4/18/2014, 4/19/2014, 4/20/2014, 4/21/2014, 5/26/2014, 7/4/2014") If InStr(Closed, Tdate) Then %> document.write ("Closed") <% Else Select Case Tday 'Sunday Case 1 %> document.write ("10:00 am to 4:00 pm
") <% 'Saturday Case 7 %> document.write ("9:00 am to 3:00 pm
") <% 'Monday,Tuesday Case 2,3 %> document.write ("9:00 am to 7:00 pm
") <% 'Wednesday Case 4 %> document.write ("9:00 am to 7:00 pm
") <% 'Thursday Case 5 %> document.write ("9:00 am to 7:00 pm
") <% 'Friday Case 6 %> document.write ("9:00 am to 7:00 pm
") <% End Select End If %>