<% '############################################ '## QuickerSite - (C) 2006-09 by P. Cooreman '## http://www.quickersite.com/ '############################################ %> <%=run(execBeforePageLoad)%> <% if convertGetal(customer.menuWidth)<>0 then %> <% if not customer.bTopheader and not isleeg(customer.imgLogo) then %> <% end if %> <% if customer.menuLocation=QS_leftAlign then %> <% end if %>
<%=displayLogo(true)%>
blank
<%=showMenu()%>
blank
<% Response.write treatConstants(customer.sBannerMenu,true) if not isLeeg(customer.bannerApplication) and customer.bApplication then server.execute(treatConstants(customer.bannerApplication,true)) end if %> 
<%if not isLeeg(customer.copyRight) then%>© <%=customer.copyRight%><%end if%> 
<% end if %> <% if customer.menuLocation<>QS_topRight then Response.write showBreadCrumbs %> <% dim calcWidth if convertGetal(customer.menuWidth)=0 then calcWidth=convertGetal(customer.siteWidth)-42 else calcWidth=convertGetal(customer.siteWidth)-convertGetal(customer.menuWidth)-52 end if %> <% if customer.menuLocation=QS_topRight then %> <% end if %>
<%=showMenu()%>
<%=showBreadCrumbs%>
<%=treatConstants(pageTitle,true)%> <%=showIcons%>
<% pageBody=treatConstants(pageBody,true) if lcase(left(convertStr(pageBody),4))="" & pageBody else Response.Write "
" & pageBody end if 'execute function if needed and allowed if not isLeeg(selectedPage.sApplication) and customer.bApplication and runAPP then server.execute(treatConstants(selectedPage.sApplication,true)) end if %>
<%logReferer()%> <%=run(execAfterPageLoad)%>