<% If Not session("admin_loggedin" & strSUnique) = Session.SessionID then Response.Redirect "default.asp" setLocale server_locale iwidth = Application("Classify_Main_Config" & strUnique)(23) iheight = Application("Classify_Main_Config" & strUnique)(24) isize = Application("Classify_Main_Config" & strUnique)(25) onbehalf = CBool(Application("Classify_Main_Config" & strUnique)(29)) If seclog And lcase(Request.ServerVariables("REQUEST_METHOD")) <> "post" then enc = GenerateKeys If not Request.Form("flag") = Empty Then Select Case Request.Form("flag") Case "reset" If seclog then aLogon = Request.Form("ahash") strLogon = Decrypt(aLogon,session("Dval" & strSUnique),session("Nval" & strSUnique)) session("Dval" & strSUnique) = Empty session("Nval" & strSUnique) = Empty Else strLogon = Trim(Request.Form("P13")) & Trim(Request.Form("P14")) Set objMD5 = New MD5 objMD5.Text = strLogon strLogon = objMD5.HEXMD5 End If strSQL = "UPDATE " & tablPfx & "Config SET admin_logon = '" & strLogon & "';" objConn.Execute(strSQL) Response.Redirect "admin_config.asp" Case "config" iwidth = Request.Form("UIWP") iheight = Request.Form("UIHP") isize = Request.Form("UISP") If isNumeric(iwidth) And isNumeric(iheight) And isNumeric(isize) Then strURL = Request.Form("P2") If not Right(strURL, 1) = "/" then strURL = strURL & "/" Application("Classify_Main_Config" & strUnique) = Empty Application("Classify_Payment_Config" & strUnique) = Empty wys = CLng(Request.Form("P25")) wys_type = CLng(Request.Form("D1")) If wys = 1 then isWys = wys_type Else: isWys = 0 End If strSQL = "UPDATE " & tablPfx & "Config SET " strSQL = strSQL & "web_name = '" & sq(Request.Form("P1")) & "', " strSQL = strSQL & "web_site = '" & strURL & "', " strSQL = strSQL & "admin_email = '" & sq(CryptText(Request.Form("P3"), adminkey, False)) & "', " strSQL = strSQL & "notify_email = '" & sq(CryptText(Request.Form("P4"), adminkey, False)) & "', " strSQL = strSQL & "mailHost = '" & sq(CryptText(Request.Form("P5"), adminkey, False)) & "', " strSQL = strSQL & "SMTPID = '" & sq(CryptText(Request.Form("P6"), adminkey, False)) & "', " strSQL = strSQL & "SMTPPAss = '" & sq(CryptText(Request.Form("P7"), adminkey, False)) & "', " strSQL = strSQL & "emailMethod = '" & Request.Form("P8") & "', " strSQL = strSQL & "verify_user = " & CLng(Request.Form("P9")) & ", " strSQL = strSQL & "moderate = " & CLng(Request.Form("P10")) & ", " strSQL = strSQL & "maxChr = " & Request.Form("P11") & ", " strSQL = strSQL & "pp = " & Request.Form("P12") & ", " strSQL = strSQL & "ap = " & Request.Form("P16") & ", " strSQL = strSQL & "isnotfree = " & CLng(Request.Form("CF")) & ", " strSQL = strSQL & "listAlpha = " & CLng(Request.Form("P17")) & ", " strSQL = strSQL & "iwidth = " & iwidth & ", " strSQL = strSQL & "iheight = " & iheight & ", " strSQL = strSQL & "isize = " & isize & ", " strSQL = strSQL & "largeimage = " & CLng(Request.Form("P18")) & ", " strSQL = strSQL & "catpos = " & Request.Form("P19") & ", " strSQL = strSQL & "alertlimit = " & Request.Form("P20") & ", " strSQL = strSQL & "onbehalf = " & CLng(Request.Form("P21")) & ", " strSQL = strSQL & "detectIP = " & CLng(Request.Form("P23")) & ", " strSQL = strSQL & "dstyle = '" & Request.Form("P22") & "', " strSQL = strSQL & "IsCache = " & CLng(Request.Form("P24")) & ", " strSQL = strSQL & "isWysiwyg = " & isWys & ", " strSQL = strSQL & "imagelimit = " & CLng(Request.Form("P26")) & ", " strSQL = strSQL & "seclog = " & CLng(Request.Form("P27")) & ", " strSQL = strSQL & "isevents = " & CLng(Request.Form("P28")) & ", " strSQL = strSQL & "ispack = " & CLng(Request.Form("R3")) & ", " strSQL = strSQL & "istn = " & CLng(Request.Form("P29")) For op = 0 to 7 strSQL = strSQL & ", uOpt" & op & " = '" & Request.Form("Opt" & op) & "'" Next For op = 0 to 6 strSQL = strSQL & ", uOptType" & op & " = '" & Request.Form("OF" & op) & "'" Next For op = 0 to 6 strSQL = strSQL & ", uOptSearch" & op & " = " & CLng(Request.Form("S" & op)) Next strSQL = strSQL & ";" objConn.Execute(strSQL) Response.Redirect "admin_config.asp" Else msg = "

All Uploaded Image Fields must be Numeric!

" End If End Select End If Set sFolder = objFile.GetFolder(Server.MapPath(".")) For each fl in sFolder.Files sName = lCase(fl.Name) If Right(sName, 4) = ".css" then If sName = dstyle then sOptions = sOptions & "" Else: sOptions = sOptions & "" End If End If Next innovadisable = "onclick=""if (this.checked){alert('NOTE: Make sure you have installed Innova Studio Editor.');}""" Dim optionsArray(2, 6) For uo = 0 to 6 optionsArray(2, uo) = uOptSearch(uo) Next set rsOpt = objConn.Execute("SELECT optionName FROM " & tablPfx & "OptTypes WHERE isHidden = 0;") 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 For uo = 0 to 6 If Not uOptType(uo) = "0" Then optionsArray(1, uo) = Replace(strOptOpt, "value='" & uOptType(uo) & "'", " selected value='" & uOptType(uo) & "'") Else: optionsArray(1, uo) = strOptOpt End If Next For uo = 0 to 6 If CInt(uOptSearch(uo)) = 1 Then optionsArray(2, uo) = "checked" Next %> <%= msg %>

Classified Board Configuration and Preferences

Collect Fees for ad posting onclick="if (this.checked==true && !window.confirm('Please note: By clicking OK and switching the board to a [Pay Mode] you’re required to register this software according to license agreement. \n\nContinue?')) {return false;}else{document.getElementById('R3').disabled=false;document.getElementById('R3a').disabled=false}">

type="radio" id="R3" value=0 name="R3" <% If not ispack then Response.Write "checked" %>>- Credits Payment Mode
type="radio" id="R3a" value=1 name="R3" <% If ispack then Response.Write "checked" %>>- Package Payment Mode

Site and Email Configuration:

Board Preferences:

Site Name:

Verify Users Email:

* Site URL:

Approve Ads (moderate):

Administrator's Email:

Maximum Chr. within Ad's body:

Notification Outgoing Email:

Number of Ads listed per Page:

Outgoing SMTP server:

Allow user to post no more than:

ads

** SMTP Logon ID:

List Categories Alphabetically:

** SMTP Logon Password:

Show Large Images in Ad Body:

Email Method:

Position Categories by:

col.(s)

Design Style:

<%= strText_Preview %>

Email Alerts Limit:

* Enable Secure Logon:

*** Email Replies From Sender:

** Enable Turning Number:

Detect multiple accounts :

Enable Events Log:

> Events Configuration

Enable Ads Caching:

Uploaded Images:

Total Cached Ads:

<% On Error Resume Next Set fld = objFile.GetFolder(server.mappath(ad_cache)) fls = FormatNumber(fld.size / 1000, 2) & " Kb" Set files = fld.files flcount = files.count Response.Write flcount On Error Goto 0 %>

Limit Image Upload to:

Cached Ads folder size:

<%= fls %>

Max. Image Width (px):

<% If IsCache then %> <% End If %>

Max. Image Height (px):

Reset Admin ID and Password:

Max. Image Size (kb):

Admin ID:

Admin Password:

User Registration Fields:

Confirm Password:

	Opt.Set	Sch.
Opt. Field 1:		name="S0" value="1">
Opt. Field 2:		name="S1" value="1">
Opt. Field 3:		name="S2" value="1">
Opt. Field 4:		name="S3" value="1">
Opt. Field 5:		name="S4" value="1">
Opt. Field 6:		name="S5" value="1">
Opt. Field 7:		name="S6" value="1">
Allow clients to Select Ad Styles:	type="checkbox" name="Opt7" value="1">
Allow clients to Post with WYSIWYG:	type="checkbox" value=1 name="P25" tabindex="10" <% If isWysiwyg then Response.Write "Checked" %>>

Jump to Options Builder

Options Preview:

*	Specify URL address to the location of classify board scripts folder. Make sure to have a slash at the end of the address. For instance: http://www.yourweb.com/rc/
**	Optional. Some SMTP servers require authentication. ID and Password are only valid for CDOSYS, JMail and ASPEmail. For CDONTS, the configuration for authentication is done on IIS.
***	If your Mail server allows to send "on behalf", then enable this feature. All Ad replies will be send "From" email specified by a sender. Otherwise emails are sent from your "Notification Outgoing Email".
*	Secure Logon means the password will be posted to the server MD5 hashed and/or RSA encrypted with randomly generated seed/key sent by a server. Note: For the secure logon to work properly, it is advisable to select Admin ID/password and Users password in English. If your board is running in language other than English and you are using Secure Logon, advise your clients to use English passwords. Else, test it thoroughly making sure it functions properly under your character set.
**	Turning number if enabled requests from a user to enter a number from generated image into a special field during registration and ad posting process preventing automated submittions.