<% '--------------------------- 'Variables and Class Instantiation '--------------------------- Set CLASS_cCategory = new CCategory 'See if page id passed in PARAM.SearchCategoryID = CLASS_cCast.cast(request("searchcategoryid"),"lng","") 'IF not, try and resolve this page against db records if PARAM.SearchCategoryID = 0 then PARAM.SearchCategoryID = CLASS_cCast.cast(CLASS_cCategory.GetIDFromPageName(Request.ServerVariables("PATH_TRANSLATED")),"lng","") ' PARAM.PageNumber = PARAM.GetPageNumberFromPageName(Request.ServerVariables("PATH_TRANSLATED")) ' response.Write(PARAM.PageNumber) End If if PARAM.SearchValue = "" then If PARAM.SearchCategoryID > 0 then CLASS_cCategory.LoadFromID(PARAM.SearchCategoryID) 'If Title overides not in effect, autopopulate if CLASS_cCategory.title = "" then%> <%Else%> <%End If%> <%'If Keywords overides not in effect, autopopulate if CLASS_cCategory.keywords = "" then%> " /> <%Else%> " /> <%End If%> <%'If Category Description left blank then, lets populate it with the same as the title if CLASS_cCategory.categorydescription = "" then%> <%=" "&CLASS_cCast.cast(CONFIG.Setting("META_SiteTitle"),"str","screen")%>" /> <%Else%> " /> <%End If%> <%Else%> " /> " /> <%End If%> <%Else%> " /> " /> <%End If%> <% '--------------------------- 'Clean Up '--------------------------- Set CLASS_cCategory = nothing %>