<!--#include file="masterinclude.asp"-->
<!--#include file="session.asp"-->
<!--#include file="js/io.asp"-->
<!--#include file="admin_reject.asp"-->
<!--#include file="admin_generalFunctions.asp"-->
<% 
Dim objRS
if len(request.form("ForumTitle"))=0 then
	response.write "Something Wrong Has Happened. Please don't set invalid character set.<br>"&_
					"Character set will now be reset to ISO-8859-1."
	Application(dbName&"Language") = "ISO-8859-1"
	response.end
end if

Dim PMUpload
PMUpload = checkUploadSize(request.form("PMUpSize"))&"|"&CheckDelimitedFormat(SQLStrip(request.form("PMUpExt")),"/")

Dim avatarUpload
avatarUpload = checkUploadSize(request.form("avatarUpSize"))&"|"&CheckDelimitedFormat(SQLStrip(request.form("avatarUpExt")),"/")

Dim profileUpload
profileUpload = checkUploadSize(request.form("profileUpSize"))&"|"&CheckDelimitedFormat(SQLStrip(request.form("profileUpExt")),"/")

Set objRS = server.createobject("adodb.recordset")
	with objRS
		.open "pgd_config", datastore, , adlockOptimistic, adCmdTableDirect
			.fields("ForumTitle") = left(request.form("ForumTitle"),50)
			.fields("sitehome") = addTrailingSlash(lcase(left(SQLStrip(request.form("sitehome")),80)))
			.fields("forumdir") = addTrailingSlash(lcase(left(SQLStrip(request.form("forumdir")),150)))
			.fields("adminEmail") = lcase(left(request.form("adminEmail"),50))
			.fields("timeoffset") = Cint(request.form("timeoffset"))
			.fields("localesetting") = left(request.form("localesetting"),50)
			.fields("lang") = left(SQLStrip(request.form("language")),50)
			.fields("tpg") = Cint(request.form("tpg"))
			.fields("mpg") = Cint(request.form("mpg"))
			.fields("leftframe") = left(request.form("leftframe"),25)
			.fields("maildll") = left(request.form("maildll"),50)
			.fields("mailsrv") = left(request.form("mailsrv"),50)
			.fields("upload") = left(request.form("upload"),50)
			.fields("searchmode") = left(request.form("searchmode"),50)
			.fields("regtype") = Cint(request.form("regtype"))
			.fields("viewpref") = Cint(request.form("viewpref"))
			.fields("onlineTracking") = Cint(request.form("onlineTracking"))
			.fields("singleLogin") = Cint(request.form("singleLogin"))
			.fields("sessionTimeout") = Cint(request.form("sessionTimeout"))
			.fields("enableSubscribe") = Cint(request.form("enableSubscribe"))
			.fields("maxShortMsg") = Cint(request.form("maxShortMsg"))
			.fields("maxFloodControl") = Cint(request.form("maxFloodControl"))
			.fields("allowSigUpload") = Cint(request.form("allowSigUpload"))
			.fields("allowPoll") = Cint(request.form("allowPoll"))
			.fields("pollTrack") = Cint(request.form("pollTrack"))
			.fields("allowAvatar") = Cint(request.form("allowAvatar"))
			.fields("enablePMUpload") = Cint(request.form("enablePMUpload")) 
			.fields("PMUpload") = left(PMUpload,100)'no need to set application variable
			.fields("avatarUpload") = left(avatarUpload,100)'no need to set application variable
			.fields("profileUpload") = left(profileUpload,100)'no need to set application variable
			.fields("allowProfPhoto") = Cint(request.form("allowProfPhoto"))
			.fields("alterBy") = Cint(request.form("alterBy"))
			.fields("DefShowMod") = Cint(request.form("DefShowMod"))
			.fields("DefShowRight") = Cint(request.form("DefShowRight"))
			.fields("NoIMGinSigs") = Cint(request.form("NoIMGinSigs"))
			.fields("checkDomain") = Cint(request.form("checkDomain"))
			.fields("allowHide") = Cint(CheckedOrNot(request.form("allowHide")))
			.fields("timeBeforeEditDel") = Clng(request.form("timeBeforeEditDel"))
			.fields("tmShowParentAuthor") = CLng(request.form("tmShowParentAuthor"))
			.fields("hideUnselectedCategories") = CLng(request.form("hideUnselectedCategories"))
			.fields("cookieDomain") = left(request.form("cookieDomain"),150)
			.fields("cookiePath") = left(request.form("cookiePath"),150)
			.fields("todayLastVisitPref") = CLng(request.form("todayLastVisitPref"))
			.fields("allowHideProfile") = CLng(request.form("allowHideProfile"))
			.fields("ttTooltip") = Cint(request.form("ttTooltip"))
			.fields("threshold") = iff(isNumeric(left(request.form("threshold"),5)),left(request.form("threshold"),5),"0.25")
			.fields("mailsrvU") = left(trim(request.form("mailsrvU")),50)
			.fields("mailsrvP") = left(trim(request.form("mailsrvP")),50)
			.fields("searchEngineModEnabled") = cint(request.form("searchEngineModEnabled"))
			.fields("mailsrvPort") = left(trim(request.form("mailsrvPort")),7)
			.update
		.close
	end with
set objRS = nothing

	Application.Lock
		Application(dbName&"forumdir") = addTrailingSlash(lcase(left(SQLStrip(request.form("forumdir")),150)))
		Application(dbName&"Language") = left(SQLStrip(request.form("language")),50)
		Application(dbName&"mpg") = Cint(request.form("mpg"))
		Application(dbName&"maildll") = left(request.form("maildll"),50)
		Application(dbName&"mailsrv") = left(request.form("mailsrv"),50)
		Application(dbName&"upload") = left(request.form("upload"),50)
		Application(dbName&"searchmode") = left(request.form("searchmode"),50)
		Application(dbName&"sitehome") = addTrailingSlash(lcase(left(SQLStrip(request.form("sitehome")),80)))
		Application(dbName&"adminEmail") = lcase(left(request.form("adminEmail"),50))
		Application(dbName&"ForumTitle") = left(request.form("ForumTitle"),50)
		Application(dbName&"viewPref") = Cint(request.form("viewpref"))
		Application(dbName&"onlineTracking") = Cint(request.form("onlineTracking"))
		Application(dbName&"singleLogin") = Cint(request.form("singleLogin")) 'if Allow multiple same name Login
		Application(dbName&"enableSubscribe") = Cint(request.form("enableSubscribe"))
		Application(dbName&"maxFloodControl") = Cint(request.form("maxFloodControl"))
		Application(dbName&"maxShortMsg") = Cint(request.form("maxShortMsg"))
		Application(dbName&"sessiontimeout") = Cint(request.form("sessionTimeout"))
		Application(dbName&"timeoffset") = Cint(request.form("timeoffset"))
		Application(dbName&"localesetting") = left(request.form("localesetting"),50)
		Application(dbName&"regtype") = Cint(request.form("regtype"))
		Application(dbName&"allowsigupload") = Cint(request.form("allowSigUpload"))
		Application(dbName&"leftframe") = left(request.form("leftframe"),25)
		Application(dbName&"tpg") = Cint(request.form("tpg"))
		Application(dbName&"allowpoll") = Cint(request.form("allowPoll"))
		Application(dbName&"pollTrack") = Cint(request.form("pollTrack"))
		Application(dbName&"allowAvatar") = Cint(request.form("allowAvatar"))
		Application(dbName&"enablePMUpload") = Cint(request.form("enablePMUpload"))
		Application(dbName&"allowProfPhoto") = Cint(request.form("allowProfPhoto"))
		Application(dbName&"alterBy") = Cint(request.form("alterBy"))
		Application(dbName&"DefShowMod") = Cint(request.form("DefShowMod"))
		Application(dbName&"DefShowRight") = Cint(request.form("DefShowRight"))
		Application(dbName&"NoIMGinSigs") = Cint(request.form("NoIMGinSigs"))
		Application(dbName&"checkDomain") = Cint(request.form("checkDomain"))
		Application(dbName&"allowHide") = Cint(CheckedOrNot(request.form("allowHide")))
		Application(dbName&"timeBeforeEditDel") = Clng(request.form("timeBeforeEditDel"))
		Application(dbName&"tmShowParentAuthor") = CLng(request.form("tmShowParentAuthor"))
		Application(dbName&"hideUnselectedCategories") = CLng(request.form("hideUnselectedCategories"))
		Application(dbName&"cookieDomain") = left(request.form("cookieDomain"),150)
		Application(dbName&"cookiePath") = left(request.form("cookiePath"),150)
		Application(dbName&"todayLastVisitPref") = CLng(request.form("todayLastVisitPref"))
		Application(dbName&"allowHideProfile") = CLng(request.form("allowHideProfile"))
		Application(dbName&"ttTooltip") = CLng(request.form("ttTooltip"))
		Application(dbName&"threshold") = iff(isNumeric(left(request.form("threshold"),5)),left(request.form("threshold"),5),"0.25")
		Application(dbName&"modifieddir") = mid(Application(dbName&"forumdir"),instr(10,Application(dbName&"forumdir"),"/"))
		Application(dbName&"mailsrvU") = left(trim(request.form("mailsrvU")),50)
		Application(dbName&"mailsrvP") = left(trim(request.form("mailsrvP")),50)
		Application(dbName&"searchEngineModEnabled") = cint(request.form("searchEngineModEnabled"))
		Application(dbName&"mailsrvPort") = left(trim(request.form("mailsrvPort")),7)
	Application.unlock
	response.redirect("admin_siteconfig.asp?done=yes")
 %>