%
'###############################################################
'## 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
%>
<%=displayLogo(true)%> |
|
<%
end if
%>
<%
if customer.menuLocation=QS_leftAlign then
%>
|
|
<%
end if
%>
<%
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
%>
<%=showMenu()%> |
<%=showBreadCrumbs%> |
<%
end if
%>
<%=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
%> |
<%logReferer()%>
<%=run(execAfterPageLoad)%>