<% '############################################################### '## Help http://www.members.mersinhost.com '## Free Licence - 2008 '############################################################### %> <%=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%>

<% 'write content Response.Write treatConstants(pageBody,true) '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 %>

Share to Facebook Share to Twitter More...
<%logReferer()%> <%=run(execAfterPageLoad)%>