<%@ Language=VBScript %><% '************************************************************ '* * '* By Downloading or using this software, you agree to * '* the terms and conditions as stated in the Software * '* License Agreement. An updated copy of this agreement * '* can be seen at http://www.pagedowntech.com/terms. * '* * '* NOTICE: We do not recommend changing the code below * '* as it may interfere with future updates/upgrades. * '* * '* PageDown Technology, LLC., Copyright 2005. * '* www.pagedowntech.com * '* * '************************************************************ %> <% recid=request.querystring("recid") if recid="" or recid=NULL or not isnumeric(recid) then pdredirect("default.asp") end if 'Open database get categories. set rs=openrs("SELECT * FROM custompages WHERE id=" & recid) 'If no record found. if rs.EOF then pdredirect("default.asp") end if headname=rs("headname") description=rs("description") pglayout=rs("pglayout") metatitle=rs("metatitle") metakeyw=rs("metakeyw") metadesc=rs("metadesc") rs.close set rs=nothing 'Set Search engine meta tags. if metatitle<>"" then title=metatitle end if if metakeyw<>"" then keywords=metakeyw end if if metadesc<>"" then sitedesc=metadesc end if zpage=pglayout cpage="custom" & recid %> <% getleftside(zpage)%> <% getsecspace ()%> <% getHeading cpage, headname, "", 2 %> cellpadding="5" cellspacing="0" width="100%">

<%=description%>

<% getrightside(zpage)%>