 |
|||||||||||||
 |
 |
 |
|||||||||||
 |
|||||||||||||
 |
 |
 |
 |
 |
 |
 |
 |
||||||
 |
<%
dim currentDate, varGraphic, ValentineStartDate, ValentineEndDate, StPatrickStartDate, StPatrickEndDate
currentDate = Date()
'Holidays
ValentineStartDate = #01/20/2011#
ValentineEndDate = #02/20/2011#
StPatrickStartDate = #02/21/2011#
StPatrickEndDate = #03/21/2011#
'------------------------------------------------
'Valentines Day
if DateValue(currentDate) >= DateValue(ValentineStartDate) and DateValue(currentDate) < DateValue(ValentineEndDate) then
varGraphic = "DebCartoon_VdayHmPg.jpg"
'St. Patrick's Day
elseif DateValue(currentDate) >= DateValue(StPatrickStartDate) and DateValue(currentDate) < DateValue(StPatrickEndDate) then
varGraphic = "DebCartoon_StPatHmPg.jpg"
'Neutral Graphic
else
varGraphic = "DebCartoon_NeutralHmPg.jpg"
end if
%>
|
||||||||||||
|
|
||||||||||||
 |
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
|
|
||||||||||
 |
 |
 |
||||||||
 |
 |
 |
 |
 |
 |
 |
 |
 |
||
 |
||||||||||
 |
||||||||||
|
|
|
|
|
|
|
|
|
|
|