<% setLocale server_locale If Not Sess_Array(48) = Session.SessionID then UpdateSessions False Response.Redirect "default.asp" End If Dim fv(20), optionsArray(4, 20), soptArray(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 UpdateSessions False Response.Redirect "admin_cat.asp" End If Set rs = objConn.Execute("SELECT ID FROM " & tablPfx & "Cat;") 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 = "icon1.gif" If disabled = "disabled" then catID = 10000 sCatID = 50000 sortCID = 1 sortSID = 1 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 sortCID = objConn.Execute("SELECT MAX(sortID) FROM " & tablPfx & "Cat;")(0) + 1 sortSID = objConn.Execute("SELECT MAX(sortID) FROM " & tablPfx & "Scat;")(0) + 1 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,sortID) " & _ "VALUES (" & catID & ",'" & newCategory & "','" & newDescription & "','" & newIcon & "',0,'1'" & strcatOptTypeVal & strcatOptSearchVal & ",'default',0," & sortCID & ");") objConn.Execute("INSERT INTO " & tablPfx & "Scat(sCatID,scatName,catID,ads,ftype,sopt,sortID) VALUES (" & sCatID & ",'" & newSubCategory & "'," & catID & ",0,'default','11111111111111111111'," & sortSID & ");") 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 UpdateSessions False Response.Redirect "admin_cat.asp" Else UpdateSessions False 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 sortID = objConn.Execute("SELECT MAX(sortID) FROM " & tablPfx & "Scat;")(0) + 1 objConn.Execute("INSERT INTO " & tablPfx & "Scat(sCatID,scatName,catID,ads,ftype,sopt,sortID) VALUES (" & sCatID & ",'" & newSubCategory & "'," & catID & ",0,'default','11111111111111111111'," & sortID & ");") UpdateSessions False 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) sortID = objConn.Execute("SELECT MAX(sortID) FROM " & tablPfx & "Scat;")(0) + 1 objConn.Execute("INSERT INTO " & tablPfx & "Scat(sCatID,scatName,catID,ads,ftype,sopt, sortID) VALUES (" & cat3rdID & ",'" & new3rdCategory & "'," & scatID & ",0,'default','11111111111111111111'," & sortID & ");") UpdateSessions False 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("micon1")) 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) UpdateSessions False 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")) modIcon = sqq(Request.Form("micon2")) If Len(modIcon) > 0 Then modMK = modMK & "|" & modIcon modT = sqq(Request.Form("DR15")) For I = 1 to 20 nextSopt = CStr(Request.Form("SO" & I)) If nextSopt = "1" then strSopt = strSopt & nextSopt Else strSopt = strSopt & "0" End If Next strModSCat = "UPDATE " & tablPfx & "Scat SET scatName = '" & modsCategory & "', scatFullDescr = '" & modFD & "', " strModSCat = strModSCat & "scatMetaDescr = '" & modMD & "', scatMetaKey = '" & modMK & "', scatTitle = '" & modT & "', sopt = '" & strSopt & "' WHERE sCatID=" & subcatID & ";" objConn.Execute(strModSCat) UpdateSessions False 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")) modIcon = sqq(Request.Form("micon3")) If Len(modIcon) > 0 Then modMK = modMK & "|" & modIcon 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) UpdateSessions False 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) Select Case CInt(rs("catOptSearch" & Z)) Case 0 strOPTSL = "" strOPTSL = strOPTSL & "" strOPTSL = strOPTSL & "" strOPTSL = strOPTSL & "" Case 1 strOPTSL = "" strOPTSL = strOPTSL & "" strOPTSL = strOPTSL & "" strOPTSL = strOPTSL & "" Case 10 strOPTSL = "" strOPTSL = strOPTSL & "" strOPTSL = strOPTSL & "" strOPTSL = strOPTSL & "" Case 11 strOPTSL = "" strOPTSL = strOPTSL & "" strOPTSL = strOPTSL & "" strOPTSL = strOPTSL & "" End Select optionsArray(4, Z) = strOPTSL 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 = parseScategoryIcon(rs("scatMetaKey"), True) currentIcon2 = parseScategoryIcon(rs("scatMetaKey"), False) currentSTitle = rs("scatTitle") displaySCatName = currentSubName soptStr = rs("sopt") If not soptStr = Empty And not isNull(soptStr) then For I = 1 to 20 If Mid(soptStr,I,1) = "1" then soptArray(I) = "checked" Next Else For I = 1 to 20 soptArray(I) = "checked" Next End If 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 = parseScategoryIcon(rs("scatMetaKey"), True) currentIcon3 = parseScategoryIcon(rs("scatMetaKey"), False) 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 %> <% Call Build_List_Top("center", "99%", "xl_content") %>
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="micon1" id="micon1" 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');" style="font-weight: bold"> - (same as at the bottom) Meta Keywords: class="optforms" type="text" maxlength="255" size="35" name="DR8" value="<%= currentSMetaKey %>">
^ Options Glb. Opt. Set S/L  Sopt
 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;}"> >
 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;}"> >
 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;}"> >
 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;}"> >
 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;}"> >
 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;}"> >
 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;}"> >
 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;}"> >
 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;}"> >
 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;}"> >
 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;}"> >
 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;}"> >
 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;}"> >
 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;}"> >
 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;}"> >
 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;}"> >
 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;}"> >
 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;}"> >
 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;}"> >
 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;}"> >
Subcategory Title: class="optforms" type="text" maxlength="255" size="35" name="DR15" value="<%= currentSTitle %>"> <% If Len(currentIcon2) > 0 Then Response.Write "" %>
Icon: class="optforms" type="text" size="35" name="micon2" id="micon2" value="<%= currentIcon2 %>">
  class="buttons" type="button" value="Modify" onclick="catadmin('catsmod');" style="font-weight: bold">
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 %>"> <% If Len(currentIcon3) > 0 Then Response.Write "" %>
Icon: class="optforms" type="text" size="35" name="micon3" id="micon3" value="<%= currentIcon3 %>">
<%= disable3rd %> class="buttons" type="button" value="Modify" onclick="catadmin('mod3rd');" style="font-weight: bold">
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');" style="font-weight: bold"> - (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: > ^^
   
* Required Field
**

Click on a link to select an icon. 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.
^

Options - Category optional fields.
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. 
S/L. - Search and/or List Flags. S - Includes option into Advanced Search, L - Includes option for display at list pages. SL - Includes both, = - Includes none.
Sopt - If unchecked, the option will not be rendered for current subcategory while ad is posted. Note: Because Sopt  is related to current subcategory, for changes to take an effect you must click "Modify" button under subcategory settings.
^^ 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.
 
<% Call Build_List_Bottom() %>