<%
'***********************************************************************
'** Copyright (C) 2001 - 2004 Max Yuan All Rights Reserved
'**
'** By using this program, you are agreeing to the terms of the
'** GNU General Public License.
'**
'** This program is free software; you can redistribute it and/or
'** modify it under the terms of the GNU General Public License
'** as published by the Free Software Foundation; either version 2
'** of the License, or any later version.
'**
'** All copyright notices regarding MaxWebPortal must remain intact
'** in the scripts and in the outputted HTML.
'** The "powered by" text/logo with a link back to
'** http://www.maxwebportal.com in the footer of the pages MUST
'** remain visible when the pages are viewed on the internet or intranet.
'**
'** Support can be obtained from support forums at:
'** http://www.maxwebportal.com
'**
'** Email: maxwebportal@hotmail.com
'** ICQ: 148111300
'***********************************************************************
%>
<%If Session(strCookieURL & "Approval") = "256697926329" and instr(strWebMaster,lcase(strAdmin1UserName)&",") <> 0 and not lcase(strAdmin1UserName) = "" and not lcase(strAdmin1UserName) = " " Then %>
<%
action = request.querystring("action")
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString
if mLev = 4 then
On Error Resume Next
Set objRec = Server.CreateObject("ADODB.RecordSet")
Set objDict = CreateObject("Scripting.Dictionary")
if action = "update" then
slImages = cint(request.form("strIMGInPosts"))
slEncode = cint(request.form("slEncode"))
if slImages <> 1 then
slImages = 0
end if
if slEncode <> 1 then
slEncode = 0
end if
strSQL = "UPDATE " & strTablePrefix & "mods SET m_value = '" & request.form("slPosts") & _
"' WHERE m_name='news' AND m_code = 'slPosts';"
my_Conn.Execute(strSQL)
strSQL = "UPDATE " & strTablePrefix & "mods SET m_value = '" & request.form("slLength") & _
"' WHERE m_name='news' AND m_code = 'slLength';"
my_Conn.Execute(strSQL)
strSQL = "UPDATE " & strTablePrefix & "mods SET m_value = '" & request.form("slSort") & _
"' WHERE m_name='news' AND m_code = 'slSort';"
my_Conn.Execute(strSQL)
strSQL = "UPDATE " & strTablePrefix & "mods SET m_value = '" & slImages & _
"' WHERE m_name='news' AND m_code = 'slImages';"
my_Conn.Execute(strSQL)
strSQL = "UPDATE " & strTablePrefix & "mods SET m_value = '" & slEncode & _
"' WHERE m_name='news' AND m_code = 'slEncode';"
my_Conn.Execute(strSQL)
slMessage = "Settings updated."
end if
strSQL = "SELECT m_code, m_value FROM " & strTablePrefix & "mods WHERE m_name = 'news';"
set objRec = my_conn.Execute(strSQL)
if my_Conn.Errors.Count > 0 then
%>
<%
response.end
end if
while not objRec.EOF
objDict.Add objRec.Fields.Item("m_code").Value, objRec.Fields.Item("m_value").Value
objRec.moveNext
wend
slPosts = cint(objDict.Item("slPosts"))
slLength = cint(objDict.Item("slLength"))
slSort = cint(objDict.Item("slSort"))
slEncode = cint(objDict.Item("slEncode"))
strIMGInPosts = cint(objDict.Item("slImages"))
set objDict = nothing
if strIMGInPosts = 1 then
slImages = "checked"
end if
if slEncode = 1 then
slEncode = "checked"
end if
Select Case slSort
Case "2" ' last post
select2 = "selected"
Case "3" ' last replied
select3 = "selected"
Case Else ' last created
select1 = "selected"
End Select
%>
Home
Admin Section