<% Set objFile = Server.CreateObject("Scripting.FileSystemObject") dbPATH = server.mappath(dbFolder) & "\" uploadPATH = server.mappath(upload) & "\" Set dbFolder = objFile.GetFolder(dbPATH) chksetup = objFile.FileExists(dbPATH & "setup") If chksetup then Response.Redirect "!setup.asp" If Err.Number <> 0 then Response.Write "
The Error has occured!" Response.Write "

Page: config/config.asp" Response.Write "

Error Number: " & err.number & "" Response.Write "

Error Description: " & err.description & "" Response.End End If On Error Goto 0 'Application("Classify_Main_Config" & strUnique) = Empty 'Application("advert" & strUnique) = Empty 'Application("Classify_Payment_Config" & strUnique) = Empty 'Application("Events_Config" & strUnique) = Empty If isArray(Application("Classify_Main_Config" & strUnique)) then web_name = Application("Classify_Main_Config" & strUnique)(0) web_site = Application("Classify_Main_Config" & strUnique)(1) admin_email = Application("Classify_Main_Config" & strUnique)(2) notify_email = Application("Classify_Main_Config" & strUnique)(3) mailHost = Application("Classify_Main_Config" & strUnique)(4) SMTPID = Application("Classify_Main_Config" & strUnique)(5) SMTPPAss = Application("Classify_Main_Config" & strUnique)(6) emailMethod = Application("Classify_Main_Config" & strUnique)(7) verify_user = CBool(Application("Classify_Main_Config" & strUnique)(8)) moderate = CBool(Application("Classify_Main_Config" & strUnique)(9)) maxChr = CLng(Application("Classify_Main_Config" & strUnique)(10)) pp = CLng(Application("Classify_Main_Config" & strUnique)(11)) ap = CLng(Application("Classify_Main_Config" & strUnique)(12)) isnotfree = CBool(Application("Classify_Main_Config" & strUnique)(13)) listalpha = CBool(Application("Classify_Main_Config" & strUnique)(22)) largeimage = CBool(Application("Classify_Main_Config" & strUnique)(26)) catpos = CLng(Application("Classify_Main_Config" & strUnique)(27)) alertlimit = CLng(Application("Classify_Main_Config" & strUnique)(28)) dstyle = Application("Classify_Main_Config" & strUnique)(30) detectMultipleIP = CBool(Application("Classify_Main_Config" & strUnique)(31)) meta_description = Application("Classify_Main_Config" & strUnique)(32) meta_keywords = Application("Classify_Main_Config" & strUnique)(33) default_to_cat = CBool(Application("Classify_Main_Config" & strUnique)(34)) IsCache = CBool(Application("Classify_Main_Config" & strUnique)(35)) Wysiwyg_type = CLng(Application("Classify_Main_Config" & strUnique)(50)) If Wysiwyg_type = 0 then isWysiwyg = False Else: isWysiwyg = True End If imagelimit = CLng(Application("Classify_Main_Config" & strUnique)(51)) seclog = CBool(Application("Classify_Main_Config" & strUnique)(52)) isEvents = CBool(Application("Classify_Main_Config" & strUnique)(53)) ispack = CBool(Application("Classify_Main_Config" & strUnique)(54)) isTurningNumber = CBool(Application("Classify_Main_Config" & strUnique)(55)) For uo = 0 to 7 uOpt(uo) = Application("Classify_Main_Config" & strUnique)(uo+14) Next For uo = 0 to 6 uOptType(uo) = Application("Classify_Main_Config" & strUnique)(uo+36) Next For uo = 0 to 6 uOptSearch(uo) = Application("Classify_Main_Config" & strUnique)(uo+43) Next Else strConfig = "SELECT " & tablPfx & "Config.* from " & tablPfx & "Config;" set rscfg = objConn.Execute(strConfig) If not rscfg.eof then web_name = rscfg("web_name") web_site = rscfg("web_site") If not rscfg("admin_email") = Empty then admin_email = CryptText(rscfg("admin_email"), adminkey, True) If not rscfg("notify_email") = Empty then notify_email = CryptText(rscfg("notify_email"), adminkey, True) If not rscfg("mailHost") = Empty then mailHost = CryptText(rscfg("mailHost"), adminkey, True) If not rscfg("SMTPID") = Empty then SMTPID = CryptText(rscfg("SMTPID"), adminkey, True) If not rscfg("SMTPPAss") = Empty then SMTPPAss = CryptText(rscfg("SMTPPAss"), adminkey, True) emailMethod = rscfg("emailMethod") verify_user = CBool(rscfg("verify_user")) moderate = CBool(rscfg("moderate")) maxChr = CLng(rscfg("maxChr")) pp = CLng(rscfg("pp")) ap = CLng(rscfg("ap")) isnotfree = CBool(rscfg("isnotfree")) listalpha = CBool(rscfg("listAlpha")) iwidth = CLng(rscfg("iwidth")) iheight = CLng(rscfg("iheight")) isize = CLng(rscfg("isize")) largeimage = CBool(rscfg("largeimage")) catpos = CLng(rscfg("catpos")) alertlimit = CLng(rscfg("alertlimit")) onbehalf = CBool(rscfg("onbehalf")) dstyle = rscfg("dstyle") detectMultipleIP = Cbool(rscfg("detectIP")) meta_description = rscfg("siteMetaDescr") meta_keywords = rscfg("siteMetaKey") default_to_cat = CBool(rscfg("default_to_cat")) IsCache = CBool(rscfg("IsCache")) Wysiwyg_type = CLng(rscfg("isWysiwyg")) If Wysiwyg_type = 0 then isWysiwyg = False Else: isWysiwyg = True End If imagelimit = CLng(rscfg("imagelimit")) seclog = CBool(rscfg("seclog")) isEvents = CBool(rscfg("isevents")) ispack = CBool(rscfg("ispack")) isTurningNumber = CBool(rscfg("istn")) For uo = 0 to 7 uOpt(uo) = rscfg("uOpt" & uo) Next For uo = 0 to 6 uOptType(uo) = rscfg("uOptType" & uo) Next For uo = 0 to 6 uOptSearch(uo) = rscfg("uOptSearch" & uo) Next mainConfArray = Array(web_name,web_site,admin_email,notify_email,mailHost,SMTPID,SMTPPAss,emailMethod,verify_user,moderate,maxChr, _ pp,ap,isnotfree,uOpt(0),uOpt(1),uOpt(2),uOpt(3),uOpt(4),uOpt(5),uOpt(6),uOpt(7),listalpha,iwidth,iheight,isize, _ largeimage,catpos,alertlimit,onbehalf,dstyle,detectMultipleIP,meta_description,meta_keywords,default_to_cat,IsCache, _ uOptType(0),uOptType(1),uOptType(2),uOptType(3),uOptType(4),uOptType(5),uOptType(6), _ uOptSearch(0),uOptSearch(1),uOptSearch(2),uOptSearch(3),uOptSearch(4),uOptSearch(5),uOptSearch(6),Wysiwyg_type,imagelimit,seclog,isEvents,ispack,isTurningNumber) Application("Classify_Main_Config" & strUnique) = mainconfArray Set mainConfArray = Nothing End If rscfg.close End If If isnotfree then If isArray(Application("Classify_Payment_Config" & strUnique)) then For a = 0 to 29 ppArray(a) = Application("Classify_Payment_Config" & strUnique)(a) Next Else strFees = "SELECT " & tablPfx & "Fees.* from " & tablPfx & "Fees WHERE ftype = 'default';" set rscfg = objConn.Execute(strFees) If not rscfg.eof then If mysql then For a = 1 to 30 ppArray(a-1) = CStr(rscfg(a)) Next Else For a = 1 to 30 ppArray(a-1) = rscfg(a) Next End If Application("Classify_Payment_Config" & strUnique) = ppArray End If rscfg.close End If End If If isArray(Application("advert" & strUnique)) then For a = 0 to 28 advArray(a) = Application("advert" & strUnique)(a) Next Else strAdvert = "SELECT " & tablPfx & "Advert.* from " & tablPfx & "Advert;" set rscfg = objConn.Execute(strAdvert) If not rscfg.eof then For a = 0 to 28 advArray(a) = rscfg(a) Next Application("advert" & strUnique) = advArray End If rscfg.close End If If isEvents then If Not isArray(Application("Events_Config" & strUnique)) then strEvents = objConn.Execute("SELECT events FROM " & tablPfx & "Main;")(0) If Not IsNull(strEvents) then Application("Events_Config" & strUnique) = Split(Trim(strEvents)) End If If isArray(Application("Events_Config" & strUnique)) then For ev = 0 to Ubound(Application("Events_Config" & strUnique)) eventsArray(Application("Events_Config" & strUnique)(ev)) = True Next End If End If If Not Session("UZ" & strSUnique) then checkLoggedUser msgBack = " <<" & strText_back & "" If session("admin_loggedin" & strSUnique) = Session.SessionID then strAdmin = "Admin Logged " & strText_Logout & " | Tasks | " If Not CStr(session("user_logged_ID" & strSUnique)) = Empty then myads = "?id=" & session("user_logged_ID" & strSUnique) '### Builds meta description, keywords as well as page title, '### full category/subcategory/3rd-Level description displayed on the page. '### Called from libraries.asp Call build_Meta() css = replace(dstyle, ".css", "") %> <%= result_web_name %>
<% If CBool(advArray(20)) then %>
<% If Len(advArray(0)) > 0 then %> <% End If If Len(advArray(2)) > 0 then %> <% End If If Len(advArray(4)) > 0 then %> <% End If If Len(advArray(6)) > 0 then %> <% End If If Len(advArray(8)) > 0 then %> <% End If %>
<% Else: Response.Write "
" End If %>