Triple Play <% Date1 = Month(NOW()) & "/1/" & Year(NOW()) Month1 = MonthName(Month(Date1)) DatePrev = DateAdd("m", -1, Date1) MonthPrev = MonthName(Month(DatePrev)) Date2 = DateAdd("m", 1, Date1) Month2 = MonthName(Month(Date2)) %> <% Date1 = Month(NOW()) & "/1/" & Year(NOW()) Month1 = MonthName(Month(Date1)) Date2 = DateAdd("m", 1, Date1) Month2 = MonthName(Month(Date2)) Date3 = DateAdd("m", 1, Date2) Month3 = MonthName(Month(Date3)) %>
Home 
Store Hours 
Store Information 
New Releases:
      -- <% =MonthPrev%> 
      -- <% =Month1%> 
      -- <% =Month2%> 
Events:
      -- <% =Month1%> 
      -- <% =Month2%> 
      -- <% =Month3%> 
Warhammer:
      -- Fantasy 
      -- 40K 
Feedback 

 
<% if fShowEbay = TRUE then %> My items on eBay
 
<% end if %> Mascot
<% fldTableColor = "#CCCC66" fldBackgroundColor = "#B9B973" FUNCTION fixquotes ( theString ) tempstring = Replace( theString, "'", "''" ) if tempstring = "" then tempstring = " " end if fixquotes = tempstring END FUNCTION %> Triple Play
Triple Play <% Date1 = Month(NOW()) & "/1/" & Year(NOW()) Month1 = MonthName(Month(Date1)) DatePrev = DateAdd("m", -1, Date1) MonthPrev = MonthName(Month(DatePrev)) Date2 = DateAdd("m", 1, Date1) Month2 = MonthName(Month(Date2)) %> <% Date1 = Month(NOW()) & "/1/" & Year(NOW()) Month1 = MonthName(Month(Date1)) Date2 = DateAdd("m", 1, Date1) Month2 = MonthName(Month(Date2)) Date3 = DateAdd("m", 1, Date2) Month3 = MonthName(Month(Date3)) %>
Home 
Store Hours 
Store Information 
New Releases:
      -- <% =MonthPrev%> 
      -- <% =Month1%> 
      -- <% =Month2%> 
Events:
      -- <% =Month1%> 
      -- <% =Month2%> 
      -- <% =Month3%> 
Warhammer:
      -- Fantasy 
      -- 40K 
Feedback 

 
<% if fShowEbay = TRUE then %> My items on eBay
 
<% end if %> Mascot
<% fldTableColor = "#CCCC66" fldBackgroundColor = "#B9B973" FUNCTION fixquotes ( theString ) tempstring = Replace( theString, "'", "''" ) if tempstring = "" then tempstring = " " end if fixquotes = tempstring END FUNCTION %>