<% setLocale server_locale If Not session("admin_loggedin" & strSUnique) = Session.SessionID then Response.Redirect "default.asp" Dim fv(20), optionsArray(4, 20) If Request.Form("SM1") = "Set Meta Properties" then smd = sqq(Request.Form("DR4")) smk = sqq(Request.Form("DR5")) dtc = CLng(Request.Form("C1")) objConn.Execute("UPDATE " & tablPfx & "Config SET siteMetaDescr = '" & smd & "', siteMetaKey = '" & smk & "', default_to_cat = " & dtc & ";") Application("Classify_Main_Config" & strUnique) = Empty Response.Redirect "admin_cat.asp" End If rs.CursorType = 2 rs.Open "SELECT " & tablPfx & "Cat.* from " & tablPfx & "Cat;", strConn If rs.EOF then Response.Write "

The Category List is Empty

" disabled = "disabled" objConn.Execute("UPDATE " & tablPfx & "Opt SET isGlobal=0;") End If rs.close flag = Request.Form("submitFlag") Select Case flag '### Create Category Case "create" Application("Cat_List" & strUnique) = Empty newCategory = sqq(Request.Form("ncat")) newDescription = sqq(Request.Form("ndescr")) newSubCategory = sqq(Request.Form("nscat")) newIcon = sqq(Request.Form("nicon")) If newIcon = Empty then newIcon = "bullet.gif" If disabled = "disabled" then catID = 10000 sCatID = 50000 Else If mysql then strSQL = "SELECT " & tablPfx & "Cat.catID, " & tablPfx & "Scat.sCatID " strSQL = strSQL & "FROM " & tablPfx & "Cat, " & tablPfx & "Scat WHERE " & tablPfx & "Scat.sCatID < 100000 " strSQL = strSQL & "ORDER BY " & tablPfx & "Cat.catID DESC, " & tablPfx & "Scat.sCatID DESC LIMIT 0,1;" Else strSQL = "SELECT TOP 1 " & tablPfx & "Cat.catID, " & tablPfx & "Scat.sCatID " strSQL = strSQL & "FROM " & tablPfx & "Cat, " & tablPfx & "Scat WHERE " & tablPfx & "Scat.sCatID < 100000 " strSQL = strSQL & "ORDER BY " & tablPfx & "Cat.catID DESC, " & tablPfx & "Scat.sCatID DESC;" End If set rst = objConn.Execute(strSQL) catID = CLng(rst(0)) + 1 sCatID = CLng(rst(1)) + 1 rst.close End If For L = 1 to 20 strcatOptType = strcatOptType & ", catOptType" & L strcatOptTypeVal = strcatOptTypeVal & ", '0'" strcatOptSearch = strcatOptSearch & ", catOptSearch" & L strcatOptSearchVal = strcatOptSearchVal & ", 0" Next objConn.Execute("INSERT INTO " & tablPfx & "Cat(catID,catName,catDescr,icon,ads,pricelevel" & strcatOptType & strcatOptSearch & ",ftype,isfree) " & _ "VALUES (" & catID & ",'" & newCategory & "','" & newDescription & "','" & newIcon & "',0,'1'" & strcatOptTypeVal & strcatOptSearchVal & ",'default',0);") objConn.Execute("INSERT INTO " & tablPfx & "Scat(sCatID,scatName,catID,ads,ftype) VALUES (" & sCatID & ",'" & newSubCategory & "'," & catID & ",0,'default');") objConn.Execute("UPDATE " & tablPfx & "Cat SET sortID = ID WHERE catID = " & catID & ";") objConn.Execute("UPDATE " & tablPfx & "Scat SET sortID = ID WHERE sCatID = " & sCatID & ";") set rsg = objConn.Execute("SELECT * FROM " & tablPfx & "Opt," & tablPfx & "Cat WHERE (catOpt1 IS NOT NULL AND isglobal = 1) ORDER BY optorder ASC;") If Not rsg.EOF Then Do While Not rsg.EOF L = rsg("optorder") If L = Empty Or L <> nextOpt Then nextOpt = L globSet = globSet & ",catOpt" & L & "='" & sq(rsg("catOpt" & L)) & "',catOptType" & L & "='" & sq(rsg("catOptType" & L)) & "',catOptSearch" & L & "=" & rsg("catOptSearch" & L) globWhere = "catOpt" & L & " IS NULL" End If rsg.MoveNext Loop End If If Len(globSet) > 0 then globSet = Replace(globSet, ",", "", 1, 1) strSQL = "UPDATE " & tablPfx & "Cat SET " & globSet & " WHERE catID = " & catID & ";" objConn.Execute(strSQL) End If If disabled = "disabled" then Response.Redirect "admin_cat.asp" Else: Response.Redirect "admin_cat.asp?catid=" & catID & "&subcatID=" & sCatID End If '### Add Subcategory Case "addsubcat" newSubCategory = sqq(Request.Form("ascat")) catID = CLng(Request.Form("catID")) If mysql then strSQL = "SELECT sCatID FROM " & tablPfx & "Scat WHERE sCatID < 100000 ORDER BY sCatID DESC LIMIT 0,1;" Else: strSQL = "SELECT TOP 1 sCatID FROM " & tablPfx & "Scat WHERE sCatID < 100000 ORDER BY sCatID DESC;" End If set rst = objConn.Execute(strSQL) sCatID = CLng(rst(0)) + 1 rst.close objConn.Execute("INSERT INTO " & tablPfx & "Scat(sCatID,scatName,catID,ads,ftype) VALUES (" & sCatID & ",'" & newSubCategory & "'," & catID & ",0,'default');") objConn.Execute("UPDATE " & tablPfx & "Scat SET sortID = ID WHERE sCatID = " & sCatID & ";") Response.Redirect "admin_cat.asp?catid=" & catID & "&subcatID=" & sCatID '### Add 3-rd Level Category Case "add3rdcat" new3rdCategory = sqq(Request.Form("DR13")) catID = CLng(Request.Form("catID")) scatID = CLng(Request.Form("subcatID")) If mysql then strSQL = "SELECT sCatID FROM " & tablPfx & "Scat WHERE sCatID >= 100000 ORDER BY sCatID DESC LIMIT 0,1;" Else: strSQL = "SELECT TOP 1 sCatID FROM " & tablPfx & "Scat WHERE sCatID >= 100000 ORDER BY sCatID DESC;" End If Set rs3 = objConn.Execute(strSQL) If rs3.EOF then cat3rdID = 100000 Else: cat3rdID = rs3(0) + 1 End If rs3.close cat3rdID = CLng(cat3rdID) objConn.Execute("INSERT INTO " & tablPfx & "Scat(sCatID,scatName,catID,ads,ftype) VALUES (" & cat3rdID & ",'" & new3rdCategory & "'," & scatID & ",0,'default');") objConn.Execute("UPDATE " & tablPfx & "Scat SET sortID = ID WHERE sCatID = " & cat3rdID & ";") Response.Redirect "admin_cat.asp?catid=" & catID & "&subcatID=" & sCatID & "&3rdcatID=" & cat3rdID '### Modify Category Case "catmod" Application("Cat_List" & strUnique) = Empty catID = Request.Form("catID") modCategory = sqq(Request.Form("mcat")) modDescription = sqq(Request.Form("mdescr")) modIcon = sqq(Request.Form("micon")) modFD = sqq(Request.Form("DR1")) modMD = sqq(Request.Form("DR2")) modMK = sqq(Request.Form("DR3")) modT = sqq(Request.Form("DR14")) pricelevel = Request.Form("pl") If modIcon = Empty then modIcon = "bullet.gif" For co = 1 to 20 If CStr(Request.Form("opt" & co)) = "1" then If Len(Trim(Request.Form("F" & co))) > 0 then objConn.Execute("UPDATE " & tablPfx & "Cat SET catOpt" & co & "='" & sqq(Request.Form("F" & co)) & "', catOptType" & co & "='" & Request.Form("OF" & co) & "', catOptSearch" & co & "=" & CLng(Request.Form("S" & co)) & ";") objConn.Execute("UPDATE " & tablPfx & "Opt SET isglobal=1 WHERE optname='optn" & co & "';") End If Else objConn.Execute("UPDATE " & tablPfx & "Opt SET isglobal=0 WHERE optname='optn" & co & "';") strOptionsUpdate = strOptionsUpdate & ", catOpt" & co & " = '" & sqq(Request.Form("F" & co)) & "', catOptType" & co & "='" & Request.Form("OF" & co) & "', catOptSearch" & co & "=" & CLng(Request.Form("S" & co)) End If Next strModCat = "UPDATE " & tablPfx & "Cat SET catName = '" & modCategory & "', catDescr = '" & modDescription & "', " strModCat = strModCat & "icon = '" & modIcon & "' " & strOptionsUpdate & ", catFullDescr = '" & modFD & "', pricelevel = '" & pricelevel & "', " strModCat = strModCat & "catMetaDescr = '" & modMD & "', catMetaKey = '" & modMK & "', catTitle = '" & modT & "' WHERE catID=" & catID & ";" objConn.Execute(strModCat) Response.Redirect "admin_cat.asp?catid=" & catID '### Modify Subcategory Case "catsmod" catID = Request.Form("catID") subcatID = Request.Form("subcatID") modsCategory = sqq(Request.Form("mscat")) modFD = sqq(Request.Form("DR6")) modMD = sqq(Request.Form("DR7")) modMK = sqq(Request.Form("DR8")) modT = sqq(Request.Form("DR15")) strModSCat = "UPDATE " & tablPfx & "Scat SET scatName = '" & modsCategory & "', scatFullDescr = '" & modFD & "', " strModSCat = strModSCat & "scatMetaDescr = '" & modMD & "', scatMetaKey = '" & modMK & "', scatTitle = '" & modT & "' WHERE sCatID=" & subcatID & ";" objConn.Execute(strModSCat) Response.Redirect "admin_cat.asp?catid=" & catID & "&subcatID=" & subcatID '### Modify 3-rd LeveL Category Case "mod3rd" catID = Request.Form("catID") subcatID = Request.Form("subcatID") cat3rdID = Request.Form("cat3rdID") modsCategory = sqq(Request.Form("DR9")) modFD = sqq(Request.Form("DR10")) modMD = sqq(Request.Form("DR11")) modMK = sqq(Request.Form("DR12")) modT = sqq(Request.Form("DR16")) strModSCat = "UPDATE " & tablPfx & "Scat SET scatName = '" & modsCategory & "', scatFullDescr = '" & modFD & "', " strModSCat = strModSCat & "scatMetaDescr = '" & modMD & "', scatMetaKey = '" & modMK & "', scatTitle = '" & modT & "' WHERE sCatID=" & cat3rdID & ";" objConn.Execute(strModSCat) Response.Redirect "admin_cat.asp?catid=" & catID & "&subcatID=" & subcatID & "&3rdcatID=" & cat3rdID '### Display Case Else If not disabled = "disabled" then If request.querystring.count = 3 then querycatID = request.querystring.item(1) querysubcatID = request.querystring.item(2) query3rdcatID = request.querystring.item(3) ElseIf request.querystring.count = 2 then querycatID = request.querystring.item(1) querysubcatID = request.querystring.item(2) If mysql then strSCat = "SELECT sCatID from " & tablPfx & "Scat WHERE catID=" & querysubcatID & " ORDER BY sCatID LIMIT 0,1;" Else: strSCat = "SELECT TOP 1 sCatID from " & tablPfx & "Scat WHERE catID=" & querysubcatID & " ORDER BY sCatID;" End If Set rs = objConn.Execute(strSCat) If not rs.EOF then query3rdcatID = rs("sCatID") rs.close ElseIf request.querystring.count = 1 then querycatID = request.querystring.item(1) If mysql then strSCat = "SELECT sCatID from " & tablPfx & "Scat WHERE catID=" & querycatID & " ORDER BY sCatID LIMIT 0,1;" Else: strSCat = "SELECT TOP 1 sCatID from " & tablPfx & "Scat WHERE catID=" & querycatID & " ORDER BY sCatID;" End If Set rs = objConn.Execute(strSCat) If not rs.EOF then querysubcatID = rs("sCatID") rs.close If mysql then strSCat = "SELECT sCatID from " & tablPfx & "Scat WHERE catID=" & querysubcatID & " ORDER BY sCatID LIMIT 0,1;" Else: strSCat = "SELECT TOP 1 sCatID from " & tablPfx & "Scat WHERE catID=" & querysubcatID & " ORDER BY sCatID;" End If Set rs = objConn.Execute(strSCat) If not rs.EOF then query3rdcatID = rs("sCatID") rs.close Else If mysql then strCat = "SELECT " & tablPfx & "Cat.catID from " & tablPfx & "Cat ORDER BY catID LIMIT 0,1;" Else: strCat = "SELECT TOP 1 " & tablPfx & "Cat.catID from " & tablPfx & "Cat ORDER BY catID;" End If Set rs = objConn.Execute(strCat) If not rs.EOF then querycatID = CLng(rs("catID")) rs.close If mysql then strSCat = "SELECT " & tablPfx & "Scat.sCatID from " & tablPfx & "Scat WHERE catID=" & querycatID & " ORDER BY sCatID LIMIT 0,1;" Else: strSCat = "SELECT TOP 1 " & tablPfx & "Scat.sCatID from " & tablPfx & "Scat WHERE catID=" & querycatID & " ORDER BY sCatID;" End If Set rs = objConn.Execute(strSCat) If not rs.EOF then querysubcatID = rs("sCatID") rs.close If mysql then strSCat = "SELECT sCatID from " & tablPfx & "Scat WHERE catID=" & querysubcatID & " ORDER BY sCatID LIMIT 0,1;" Else: strSCat = "SELECT TOP 1 sCatID from " & tablPfx & "Scat WHERE catID=" & querysubcatID & " ORDER BY sCatID;" End If Set rs = objConn.Execute(strSCat) If not rs.EOF then query3rdcatID = rs("sCatID") rs.close End If set rsOpt = objConn.Execute("SELECT optionName FROM " & tablPfx & "OptTypes;") noOpt = "" If Not rsOpt.EOF then Do While Not rsOpt.EOF nextOptName = rsOpt(0) strOptOpt = strOptOpt & "" rsOpt.MoveNext Loop End If rsOpt.close strOptOpt = noOpt & strOptOpt set rsOpt = objConn.Execute("SELECT * FROM " & tablPfx & "Opt ORDER BY optorder ASC;") For I = 1 to 20 If CInt(rsOpt(1)) = 1 then optionsArray(1, I) = "disabled" optionsArray(2, I) = "checked" Else optionsArray(1, I) = "" optionsArray(2, I) = "" End If rsOpt.MoveNext Next rsOpt.close strCat = "SELECT * FROM " & tablPfx & "Cat ORDER BY catName;" Set rs = objConn.Execute(strCat) If not rs.EOF then Do While Not rs.EOF currentID = rs("catID") currentName = rs("catName") If CStr(querycatID) = CStr(currentID) then optCat = optCat & "" currentDescr = rs("catDescr") currentIcon = rs("icon") currentItems = rs("ads") currentFullDescr = rs("catFullDescr") currentMetaDescr = rs("catMetaDescr") currentMetaKey = rs("catMetaKey") currentTitle = rs("catTitle") pl = rs("pricelevel") displayCatName = currentName For Z = 1 to 20 fv(Z) = rs("catOpt" & Z) If CInt(rs("catOptSearch" & Z)) = 1 then optionsArray(4, Z) = "checked" nextOptType = CStr(rs("catOptType" & Z)) nextOptOption = Replace(strOptOpt, "value='" & nextOptType & "'", " selected value='" & nextOptType & "'") optionsArray(3, Z) = nextOptOption Next Else: optCat = optCat & "" End If rs.MoveNext Loop End If rs.close strSCat = "SELECT * FROM " & tablPfx & "Scat WHERE catID=" & querycatID & " ORDER BY scatName;" Set rs = objConn.Execute(strSCat) If not rs.EOF then Do While Not rs.EOF currentSubID = rs("sCatID") currentSubName = rs("scatName") If CStr(currentSubID) = CStr(querysubcatID) then optSubCat = optSubCat & "" currentSubItems = rs("ads") currentSFullDescr = rs("scatFullDescr") currentSMetaDescr = rs("scatMetaDescr") currentSMetaKey = rs("scatMetaKey") currentSTitle = rs("scatTitle") displaySCatName = currentSubName Else: optSubCat = optSubCat & "" End If rs.MoveNext Loop End If rs.close strSCat = "SELECT * FROM " & tablPfx & "Scat WHERE catID=" & querysubcatID & " ORDER BY scatName;" Set rs = objConn.Execute(strSCat) If not rs.EOF then Do While Not rs.EOF current3rdID = rs("sCatID") current3rdName = rs("scatName") If CStr(current3rdID) = CStr(query3rdcatID) then opt3rdCat = opt3rdCat & "" current3rdItems = rs("ads") current3rdFullDescr = rs("scatFullDescr") current3rdMetaDescr = rs("scatMetaDescr") current3rdMetaKey = rs("scatMetaKey") current3rdTitle = rs("scatTitle") display3rdCatName = current3rdName Else: opt3rdCat = opt3rdCat & "" End If rs.MoveNext Loop Else disable3rd = "disabled" End If rs.close End If End Select Function sqq(inputstr) inputstr = Replace(inputstr, chr(34), """) sqq = Replace(inputstr, "'", "''") End Function %> <%= msg %>
Categories Administration
 
Current Category: 
(<%= currentItems %> items)		 Current Subcategory: 
(<%= currentSubItems %> items)
Price Level:  Base ad Price x    
class="buttons" type="button" value="Delete" onclick="catadmin('delcat');"> **** class="buttons" type="button" value="Delete" onclick="catadmin('delscat');"> ****
Category Name: class="forms" type="text" size="20" name="mcat" value="<%= displayCatName %>"> Subcategory Name: class="forms" type="text" size="18" name="mscat" value="<%= displaySCatName %>">
Description: class="forms" type="text" size="20" name="mdescr" value="<%= currentDescr %>"> Full  Description: class="optforms" type="text" size="35" name="DR6" value="<%= currentSFullDescr %>">
**Icon Image: class="forms" type="text" size="20" name="micon" value="<%= currentIcon %>"> Meta Description: class="optforms" type="text" maxlength="255" size="35" name="DR7" value="<%= currentSMetaDescr %>">
  class="buttons" type="button" value="Modify" onclick="catadmin('catmod');"> - (same as at the bottom) Meta Keywords: class="optforms" type="text" maxlength="255" size="35" name="DR8" value="<%= currentSMetaKey %>">
Options ***** Glb. Opt. Set Sch.
***Opt Field 1: <%= optionsArray(1, 1) %> class="optforms" type="text" maxlength="45" size="16" name="F1" value="<%= fv(1) %>"> onclick="if (!this.checked){F1.disabled=false;OF1.disabled=false;S1.disabled=false;}"> name="S1" value="1" <%= optionsArray(4, 1) %>>
Opt Field 2: <%= optionsArray(1, 2) %> class="optforms" type="text" maxlength="45" size="16" name="F2" value="<%= fv(2) %>">  onclick="if (!this.checked){F2.disabled=false;OF2.disabled=false;S2.disabled=false;}"> name="S2" value="1" <%= optionsArray(4, 2) %>>
Opt Field 3: <%= optionsArray(1, 3) %> class="optforms" type="text" maxlength="45" size="16" name="F3" value="<%= fv(3) %>">  onclick="if (!this.checked){F3.disabled=false;OF3.disabled=false;S3.disabled=false;}"> name="S3" value="1" <%= optionsArray(4, 3) %>>
Opt Field 4: <%= optionsArray(1, 4) %> class="optforms" type="text" maxlength="45" size="16" name="F4" value="<%= fv(4) %>">  onclick="if (!this.checked){F4.disabled=false;OF4.disabled=false;S4.disabled=false;}"> name="S4" value="1" <%= optionsArray(4, 4) %>>
Opt Field 5: <%= optionsArray(1, 5) %> class="optforms" type="text" maxlength="45" size="16" name="F5" value="<%= fv(5) %>">  onclick="if (!this.checked){F5.disabled=false;OF5.disabled=false;S5.disabled=false;}"> name="S5" value="1" <%= optionsArray(4, 5) %>>
Opt Field 6: <%= optionsArray(1, 6) %> class="optforms" type="text" maxlength="45" size="16" name="F6" value="<%= fv(6) %>">  onclick="if (!this.checked){F6.disabled=false;OF6.disabled=false;S6.disabled=false;}"> name="S6" value="1"<%= optionsArray(4, 6) %>>
Opt Field 7: <%= optionsArray(1, 7) %> class="optforms" type="text" maxlength="45" size="16" name="F7" value="<%= fv(7) %>">  onclick="if (!this.checked){F7.disabled=false;OF7.disabled=false;S7.disabled=false;}"> name="S7" value="1" <%= optionsArray(4, 7) %>>
Opt Field 8: <%= optionsArray(1, 8) %> class="optforms" type="text" maxlength="45" size="16" name="F8" value="<%= fv(8) %>">  onclick="if (!this.checked){F8.disabled=false;OF8.disabled=false;S8.disabled=false;}"> name="S8" value="1" <%= optionsArray(4, 8) %>>
Opt Field 9: <%= optionsArray(1, 9) %> class="optforms" type="text" maxlength="45" size="16" name="F9" value="<%= fv(9) %>"> onclick="if (!this.checked){F9.disabled=false;OF9.disabled=false;S9.disabled=false;}"> name="S9" value="1" <%= optionsArray(4, 9) %>>
Opt Field 10: <%= optionsArray(1, 10) %> class="optforms" type="text" maxlength="45" size="16" name="F10" value="<%= fv(10) %>">  onclick="if (!this.checked){F10.disabled=false;OF10.disabled=false;S10.disabled=false;}"> name="S10" value="1" <%= optionsArray(4, 10) %>>
Opt Field 11: <%= optionsArray(1, 11) %> class="optforms" type="text" maxlength="45" size="16" name="F11" value="<%= fv(11) %>">  onclick="if (!this.checked){F11.disabled=false;OF11.disabled=false;S11.disabled=false;}"> name="S11" value="1" <%= optionsArray(4, 11) %>>
Opt Field 12: <%= optionsArray(1, 12) %> class="optforms" type="text" maxlength="45" size="16" name="F12" value="<%= fv(12) %>">  onclick="if (!this.checked){F12.disabled=false;OF12.disabled=false;S12.disabled=false;}"> name="S12" value="1" <%= optionsArray(4, 12) %>>
Opt Field 13: <%= optionsArray(1, 13) %> class="optforms" type="text" maxlength="45" size="16" name="F13" value="<%= fv(13) %>"> onclick="if (!this.checked){F13.disabled=false;OF13.disabled=false;S13.disabled=false;}"> name="S13" value="1" <%= optionsArray(4, 13) %>>
Opt Field 14: <%= optionsArray(1, 14) %> class="optforms" type="text" maxlength="45" size="16" name="F14" value="<%= fv(14) %>">  onclick="if (!this.checked){F14.disabled=false;OF14.disabled=false;S1.disabled=false;}"> name="S14" value="1" <%= optionsArray(4, 14) %>>
Opt Field 15: <%= optionsArray(1, 15) %> class="optforms" type="text" maxlength="45" size="16" name="F15" value="<%= fv(15) %>">  onclick="if (!this.checked){F15.disabled=false;OF15.disabled=false;S1.disabled=false;}"> name="S15" value="1" <%= optionsArray(4, 15) %>>
Opt Field 16: <%= optionsArray(1, 16) %> class="optforms" type="text" maxlength="45" size="16" name="F16" value="<%= fv(16) %>">  onclick="if (!this.checked){F16.disabled=false;OF16.disabled=false;S16.disabled=false;}"> name="S16" value="1" <%= optionsArray(4, 16) %>>
Opt Field 17: <%= optionsArray(1, 17) %> class="optforms" type="text" maxlength="45" size="16" name="F17" value="<%= fv(17) %>"> onclick="if (!this.checked){F17.disabled=false;OF17.disabled=false;S17.disabled=false;}"> name="S17" value="1" <%= optionsArray(4, 17) %>>
Opt Field 18: <%= optionsArray(1, 18) %> class="optforms" type="text" maxlength="45" size="16" name="F18" value="<%= fv(18) %>">  onclick="if (!this.checked){F18.disabled=false;OF18.disabled=false;S1.disabled=false;}"> name="S18" value="1" <%= optionsArray(4, 18) %>>
Opt Field 19: <%= optionsArray(1, 19) %> class="optforms" type="text" maxlength="45" size="16" name="F19" value="<%= fv(19) %>">  onclick="if (!this.checked){F19.disabled=false;OF19.disabled=false;S1.disabled=false;}"> name="S19" value="1" <%= optionsArray(4, 19) %>>
Opt Field 20: <%= optionsArray(1, 20) %> class="optforms" type="text" maxlength="45" size="16" name="F20" value="<%= fv(20) %>">  onclick="if (!this.checked){F20.disabled=false;OF20.disabled=false;S20.disabled=false;}"> name="S20" value="1" <%= optionsArray(4, 20) %>>
Subcategory Title: class="optforms" type="text" maxlength="255" size="35" name="DR15" value="<%= currentSTitle %>">
  class="buttons" type="button" value="Modify" onclick="catadmin('catsmod');">
New Subcategory:   class="forms" type="text" size="18" name="ascat">
class="buttons" type="button" value="Add" onclick="catadmin('addsubcat');">
Current 3-rd Level:
(<%= current3rdItems %> items)
<%= disable3rd %> class="buttons" type="button" value="Delete" onclick="catadmin('del3rdcat');">
3-rd Level Name: <%= disable3rd %> class="forms" type="text" size="18" name="DR9" value="<%= display3rdCatName %>">
Full  Description: <%= disable3rd %> class="optforms" type="text" size="35" name="DR10" value="<%= current3rdFullDescr %>">
Meta Description: <%= disable3rd %> class="optforms" type="text" maxlength="255" size="35" name="DR11" value="<%= current3rdMetaDescr %>">
Meta Keywords: <%= disable3rd %> class="optforms" type="text" maxlength="255" size="35" name="DR12" value="<%= current3rdMetaKey %>">
3-rd Level Title: <%= disable3rd %> class="optforms" type="text" maxlength="255" size="35" name="DR16" value="<%= current3rdTitle %>">
<%= disable3rd %> class="buttons" type="button" value="Modify" onclick="catadmin('mod3rd');">
New 3-rd Level:   class="forms" type="text" size="18" name="DR13">
class="buttons" type="button" value="Add" onclick="catadmin('add3rdcat');">
Jump to Options Builder
Options Preview:
* Hidden
 
 
Full  Description: class="optforms" type="text" size="100" name="DR1" value="<%= currentFullDescr %>">
Meta Description: class="optforms" type="text" maxlength="255" size="100" name="DR2" value="<%= currentMetaDescr %>">
Meta Keywords: class="optforms" type="text" maxlength="255" size="100" name="DR3" value="<%= currentMetaKey %>">
Category Title: class="optforms" type="text" maxlength="255" size="100" name="DR14" value="<%= currentTitle %>">
    class="buttons" type="button" value="Modify" onclick="catadmin('catmod');"> - (same as at the top)
Create New Category
 
* New Category: * Description: * First Subcategory: Display Icon Image:
 
Global Site Description and Keywords Meta Tags
 
Site Meta Description:
Site Meta Keywords:
Default to Category: > ******
Comments (for more info see "Admin Help")
   
* Required Field
**

If icon image name is not specified, the default icon will be used. Dimension: 40X40px
***

Create up to 20 optional fields in each category according to the category subject. Optional Fields are the same for each subcategory in a given category.
****

To delete Category or Subcategory all ads posted under must be removed first.
*****

Glb. - Global option will replicate currently assigned field name,  options set and search flag to ALL categories for this filed.
Caution: Gbl is irreversible! Although you can turn "Global Option" off, the current set will remain the same for each category until you change it manually if you wish to do so later on.
Opt. Set - Options set. Effectively converts plain text input of the selected field into the preset drop-down selector. New options can be created at "Options Builder" page.
Tip: When selected an option press an "eye" button to preview selected options set. Preview displays input for the selected option field the way it will look at the ad post page. 
Sch. - Search Flag. Choose is you would like to have this filed to become searchable via Advanced Search.
****** If meta description and  keywords not set for subcategories, then default to category rather than to global site meta description and keywords. Note: The Meta properties for each category must be set in such a case. See "Admin Help" for more info.
* Hidden option set will be presented during ad post and on the search form but hidden from ad view page. Useful when you need to make field searchable only.
Example: You make a regular text field "Price" and hidden and searchable Options filed "Price Range".  Both fields will be presented and filled during ad post. The "Price" field then will be revealed at view ad page, "Price Range" will not. Using "Price Range" however,  clients can search for the desired price bracket.
Note: The RC search engine will make textual only comparison, therefore a searchable range option is a must for the effective search of numeric values range.
Refresh | Admin Tasks | Home | Logout