%
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 %>
|
|
|
|
<%= RotateBanner %>
|
|
|
|
|
|
|
|
|
<%
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
%>
|
|
|
|
|
<%
'*** Begin Left Portal Bar
If (advArray(26) OR scr_Name = "default.asp") AND Instr(scr_Name, "admin") = 0 AND _
NOT scr_Name = "update.asp" AND _
NOT scr_Name = "post_new2.asp" AND _
NOT scr_Name = "process.asp" Then
sdd = dd(objConn)
strSQL = "SELECT * FROM " & tablPfx & "Main;"
set rsmain = objConn.Execute(strSQL)
head_left1 = rsmain(1): display_left1 = rsmain(2): top_left1 = rsmain(3)
head_left2 = rsmain(4): display_left2 = rsmain(5): top_left2 = rsmain(6)
head_left3 = rsmain(7): display_left3 = rsmain(8): top_left3 = rsmain(9)
head_right1 = rsmain(10): display_right1 = rsmain(11): top_right1 = rsmain(12)
head_right2 = rsmain(13): display_right2 = rsmain(14): top_right2 = rsmain(15)
head_right3 = rsmain(16): display_right3 = rsmain(17): top_right3 = rsmain(18)
with_left = rsmain(19): with_right = rsmain(20)
rsmain.close
templateName = "Main_Page_Center"
set rstmpl = objConn.Execute("SELECT " & tablPfx & "Template.body FROM " & tablPfx & "Template WHERE tname='" & templateName & "';")
If not rstmpl.EOF then strbody = rstmpl(0)
rstmpl.close
%>
<%
If advArray(27) then
%>
|
|
|
|
<%= head_left1 %> |
|
<% Response.Write BuildContent(display_left1, top_left1, 1) %>
|
|
|
|
|
|
|
|
|
<%= head_left2 %> |
|
<% Response.Write BuildContent(display_left2, top_left2, 2) %>
|
|
|
|
|
|
|
|
|
<%= head_left3 %> |
|
<% Response.Write BuildContent(display_left3, top_left3, 3) %>
|
|
|
|
|
|
<%
End If
%>
<%
End If
%> | | | |