<% '************************************************************************* ' Function : Page template for front-end ' Product : Shopping Tree Store Frontend ' Version : 3.3 ' Modified : January 2005 ' Copyright: Copyright (C) 2004 Shopping Tree.Com ' See "license.txt" for this product for details regarding ' licensing, usage, disclaimers, distribution and general ' copyright requirements. If you don't have a copy of this ' file, you may request one at webmaster@ShoppingTree.com '************************************************************************* dim startTime startTime = Timer %> <% dim currentDate currentDate = dateInt(now) if currentDate => maintenanceStart and currentDate <= maintenanceEnd then response.write "" & langText("genClosedMaint","Our store is closed for maintence. We will reopen for business at ") & dateInt2serialTime(maintenanceEnd) & " " & dateInt2serialDate(maintenanceEnd) & ".
" else %>
 <%=LangText("GenHome","")%> <%=LangText("GenAllCategories","")%> <%=LangText("GenContactUsHdr","")%> <%=LangText("GenAffiliate","")%> <%=LangText("GenAccount","")%> 0 <%=LangText("GenCart","")%> 0 <%=LangText("GenCheckout","")%> 

<%=LangText("GenCategories","Categories")%>
<%=LangText("GenAllCategories","")%> 
<% if SpecialsEnabled = "-1" then %> <%=LangText("GenSpecials","")%> 
<% end if if FavoritesEnabled = "-1" then %> <%=LangText("GenFavorites","Favorites")%> 
<% end if response.write showFeaturedCat() %>

<%=LangText("GenNewProd","")%>
<%=showNewProd(pNewProducts)%>

<%=LangText("GenTopSellers","")%>
<%=showTopSell(pTopSellers)%>
<% if lCase(request.servervariables("HTTPS")) <> "on" and (planguageEnabled = "-1" or pCurrencyEnabled = "-1") then %>
<%=LangText("GenDisplay","Display")%>
<% if pLanguageEnabled = "-1" then call langSupport() if pCurrencyEnabled = "-1" then call currencySupport() %>
<% end if %>
<% cartMain() %>
<% ' track usage tracking() if currentDate < maintenanceStart and maintenanceNotice = "Y" then response.write "" & langText("genSchedMaint","Our store is scheduled for maintenance starting ") & dateInt2serialTime(maintenanceStart) & " " & dateInt2serialDate(maintenanceStart) & langText("genThrough"," through ") & dateInt2serialTime(maintenanceEnd) & " " & dateInt2serialDate(maintenanceEnd) & "." end if end if %>
Copyright <% =datePart("yyyy",now) %>  <% =pCompany %> <%=LangText("GenPoweredBy","Powered by ")%> Shopping Tree  
<%=LangText("GenPageTime","Page displayed in: ") & formatnumber(Timer() - startTime,4) & LangText("GenSeconds"," seconds.") %>