<%response.expires=0%> <% subCellID = AntiHacker(MyRequest("id")) strCall = AntiHacker(MyRequest("Call")) strCurrentCatID = AntiHacker(MyRequest("CurrentCatID")) strCurrentCatTemp = AntiHacker(MyRequest("CurrentCat")) strArticleID = AntiHacker(MyRequest("ArticleID")) strArticleDisplayID = AntiHacker(MyRequest("ArticleDisplayID")) if strCurrentCatID = "" then if strCurrentCatTemp = "" then if AntiHacker(MyRequest("ID")) <> "" then strCurrentCatID = AntiHacker(MyRequest("ID")) else strCurrentCatID = "Home" end if else strCurrentCatID = strCurrentCatTemp end if end if %> <% %> onload="deleteInit()" <% end if %> <% if strPageBackgroundMusic <> "" and not isNull(strPageBackgroundMusic) then response.write("") end if %>> <% strIsReadOnly = true 'for not displaying "edit paragraph" button in function.asp line around 386 %> <% 'go get Category Information 'To get Category info set ConCategory = Server.CreateObject("ADODB.Connection") ConCategory.open ConnectionString set RsCategory = Server.CreateObject("ADODB.RecordSet") sqlCategory = "SELECT * FROM Category WHERE CurrentCat ='" & subCellID & "' and SetID='" & strCurrentSetID & "' order by num" 'response.write("sqlCategory=" & sqlCategory & "
") RsCategory.open sqlCategory, ConCategory,1,3 if RsCategory.recordcount > 0 then strCurrentCatName= rsCategory("currentCatName") strArticleDisplayTemplateID = rsCategory("ArticleDisplayTemplateID") end if rsCategory.close conCategory.close 'response.write("strAllowedGroup=" & strAllowedGroup & "
") if strArticleDisplayID <> "" and not isNull(strArticleDisplayID) then strArticleDisplayTemplateID = strARticleDisplayID end if displaySplitCache strArticleDisplayTemplateID, 1, "", "", strArticleDisplayTemplateID, "regular", "", false, False function AntiHacker(subText) AntiHackerValue = subText AntiHackerValue = replace(AntiHackerValue, " ", "") AntiHackerValue = replace(AntiHackerValue, "'", "''") AntiHackerValue = replace(AntiHackerValue, "=", "") AntiHackerValue = replace(AntiHackerValue, "-", "") AntiHackerValue = replace(AntiHackerValue, ")", "") AntiHackerValue = replace(AntiHackerValue, "(", "") AntiHackerValue = replace(AntiHackerValue, ";", "") AntiHackerValue = replace(AntiHackerValue, "#", "") AntiHackerValue = replace(AntiHackerValue, "%", "") AntiHacker= AntiHackerValue end function %>