<% If Not Sess_Array(48) = Session.SessionID then UpdateSessions False Response.Redirect "default.asp" End If If lcase(Request.ServerVariables("REQUEST_METHOD")) = "post" then Select Case Request.Form("Flag") Case 1 catID = CLng(Request.Form("D1")) ftype = CStr(Request.Form("D4")) objConn.Execute("UPDATE " & tablPfx & "Cat SET ftype = '" & ftype & "' WHERE catID = " & catID & ";") objConn.Execute("UPDATE " & tablPfx & "Scat SET ftype = '" & ftype & "' WHERE catID = " & catID & ";") Set rsl = objConn.Execute("SELECT sCatID FROM " & tablPfx & "Scat WHERE catID = " & catID & ";") If not rsl.EOF then sCatID = rsl(0) objConn.Execute("UPDATE " & tablPfx & "Scat SET ftype = '" & ftype & "' WHERE catID = " & sCatID & ";") End If rsl.close Case 2 scatID = CLng(Request.Form("D2")) ftype = CStr(Request.Form("D5")) objConn.Execute("UPDATE " & tablPfx & "Scat SET ftype = '" & ftype & "' WHERE (sCatID = " & scatID & " OR catID = " & scatID & ");") Case 3 cat3rdID = CLng(Request.Form("D3")) ftype = CStr(Request.Form("D6")) objConn.Execute("UPDATE " & tablPfx & "Scat SET ftype = '" & ftype & "' WHERE sCatID = " & cat3rdID & ";") Case 4 objConn.Execute("UPDATE " & tablPfx & "Cat SET ftype = 'default';") objConn.Execute("UPDATE " & tablPfx & "Scat SET ftype = 'default';") End Select UpdateSessions False Response.Redirect "admin_paymentlink.asp?" & Request.Querystring End If If isNumeric(Request("cid")) then querycatID = CLng(Request("cid")): Else: querycatID = 0 If isNumeric(Request("sid")) then querysubcatID = CLng(Request("sid")): Else: querysubcatID = 0 If isNumeric(Request("3id")) then query3rdcatID = CLng(Request("3id")): Else: query3rdcatID = 0 strCat = "SELECT catID,catName,ftype FROM " & tablPfx & "Cat ORDER BY catName;" Set rs = objConn.Execute(strCat) If not rs.EOF then I = 1 Do While Not rs.EOF currentID = rs("catID") currentName = rs("catName") If I = 1 And querycatID = 0 then querycatID = currentID If CStr(querycatID) = CStr(currentID) then optCat = optCat & "" & vbcrlf catFtype = rs("ftype") Else: optCat = optCat & "" & vbcrlf End If I = I + 1 rs.MoveNext Loop End If rs.close strSCat = "SELECT sCatID,scatName,ftype FROM " & tablPfx & "Scat WHERE catID=" & querycatID & " ORDER BY sCatID;" Set rs = objConn.Execute(strSCat) If not rs.EOF then I = 1 Do While Not rs.EOF currentSubID = rs("sCatID") currentSubName = rs("scatName") If I = 1 And querysubcatID = 0 then querysubcatID = currentSubID If CStr(currentSubID) = CStr(querysubcatID) then optSubCat = optSubCat & "" scatFtype = rs("ftype") Else: optSubCat = optSubCat & "" End If I = I + 1 rs.MoveNext Loop End If rs.close strSCat = "SELECT sCatID,scatName,ftype FROM " & tablPfx & "Scat WHERE catID=" & querysubcatID & " ORDER BY sCatID;" Set rs = objConn.Execute(strSCat) If not rs.EOF then I = 1 Do While Not rs.EOF current3rdID = rs("sCatID") current3rdName = rs("scatName") If I = 1 And query3rdcatID = 0 then query3rdcatID = current3rdID If CStr(current3rdID) = CStr(query3rdcatID) then opt3rdCat = opt3rdCat & "" cat3rdFtype= rs("ftype") Else: opt3rdCat = opt3rdCat & "" End If rs.MoveNext I = I + 1 Loop Else disable3rd = "disabled" End If rs.close If checkDefault(catFtype) then catFtype = "default" If checkDefault(scatFtype) then scatFtype = "default" If checkDefault(cat3rdFtype) then cat3rdFtype = "default" strFees = "SELECT ftype FROM " & tablPfx & "Fees;" Set rs = objConn.Execute(strFees) Do While Not rs.EOF nextFtype = rs(0) opttypeSel = "" & vbcrlf opttype = "" & vbcrlf If nextFtype = catFtype then strCatFtypeOpt = strCatFtypeOpt & opttypeSel Else: strCatFtypeOpt = strCatFtypeOpt & opttype End If If nextFtype = scatFtype then strSCatFtypeOpt = strSCatFtypeOpt & opttypeSel Else: strSCatFtypeOpt = strSCatFtypeOpt & opttype End If If nextFtype = cat3rdFtype then str3rdCatFtypeOpt = str3rdCatFtypeOpt & opttypeSel Else: str3rdCatFtypeOpt = str3rdCatFtypeOpt & opttype End If rs.MoveNext Loop rs.close %> Custom Scheme | <% If isnotfree then Response.Write "Default Scheme | Packages | " %> Refresh

<% Call Build_Box_Top("700", 20, "Category - Scheme Links", "xl") %> <% If len(opt3rdCat) > 0 then %> <% Else: Response.Write "" End If %>


Current Category:
Current Subcategory:
Current 3-rd Level:
Current 3-rd Level:	No 3-rd Level Created

NOTE: Schemes Linked to Main Categories become transparent to the entire tree under it (subcategories, 3-rd level categories). If you for instance link "Business" scheme to Main Category "Business Opportunities", all subcategories and 3-rd level under category "Business Opportunities" would inherit this scheme. The same is true when you link a scheme to subcategory - all 3rd levels under this subcategory would inherit the linked scheme. However, if you're linking a scheme to some subcategory, this scheme will take precedence and be selected over the scheme linked to the main category above it when ads are posted under this subcategory. The same is true for 3-rd Level.

In other words start from the top, linking the scheme - mostly used throughout categories on your board to Main Categories and work your way down linking other schemes to subcategories and 3-rd levels.

If you create a new subcategory/3-rd level, is does not automatically inherit a custom scheme from Main category (if linked) and will stay "default" until you explicitly create a link. To save the hassle, create a complete categories structure and then start linking schemes.

For more info see: Admin Help <% Call Build_Box_Bottom("") %>