<% '################################################################################# '## Copyright (C) 2000 Michael Anderson '## '## 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. '## '## This program is distributed in the hope that it will be useful, '## but WITHOUT ANY WARRANTY; without even the implied warranty of '## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '## GNU General Public License for more details. '## '## You should have received a copy of the GNU General Public License '## along with this program; if not, write to the Free Software '## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. '## '## Correspondence and Questions can be sent to: '## reinhold@bigfoot.com '## '## or '## '## Snitz Communications '## C/O: Michael Anderson '## PO Box 200 '## Harpswell, ME 04079 '################################################################################# %> <% 'Original_Locale = setlocale("en-us") Session.LCID = 1033 '## Do Not Edit dim strDBType, strConnString, strTablePrefix, strMemberTablePrefix '## Do Not Edit strDBType = "access" '## access, sqlserver 'strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\inetpub\dbroot\forum.snitz.com\snitz_forums_2000.mdb" '## MS Access 97 strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data/snitz_forums_2000.mdb") '## MS Access 97 using virtual path 'strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\dbroot\forum.snitz.com\snitz_forum.mdb;" '## MS Access 2000 'strConnString = "driver={SQL Server};server=SERVER_NAME;uid=SQL_USER;pwd=PASSWORD;database=DATABASE_NAME" '## MS SQL Server 7 strTablePrefix = "FORUM_" strMemberTablePrefix = "FORUM_" '################################################################################# '## Do Not Edit Below This Line - It could destroy your forums and lose data '################################################################################# set my_Conn = Server.CreateObject("ADODB.Connection") my_Conn.Open strConnString '## Start - For Update Purposes Only ' ' '## Forum_SQL ' strSql = "ALTER TABLE " & strTablePrefix & "CONFIG " ' strSql = strSql & " ADD C_STRSETCOOKIETOFORUM BYTE" ' Response.Write "

" & strSql & "

" ' my_Conn.Execute strSql ' ' my_Conn.Close ' set my_Conn = nothing ' Response.End '## Stop - For Update Purposes Only '## Forum_SQL strSql = "SELECT " & strTablePrefix & "CONFIG.C_STRVERSION, " & strTablePrefix & "CONFIG.C_STRFORUMTITLE, " & strTablePrefix & "CONFIG.C_STRCOPYRIGHT, " & strTablePrefix & "CONFIG.C_STRTITLEIMAGE, " & strTablePrefix & "CONFIG.C_STRHOMEURL, " & strTablePrefix & "CONFIG.C_STRFORUMURL, " & strTablePrefix & "CONFIG.C_STRAUTHTYPE, " & strTablePrefix & "CONFIG.C_STRSETCOOKIETOFORUM, " & strTablePrefix & "CONFIG.C_STREMAIL, " & strTablePrefix & "CONFIG.C_STRUNIQUEEMAIL, " & strTablePrefix & "CONFIG.C_STRMAILMODE, " & strTablePrefix & "CONFIG.C_STRMAILSERVER, " & strTablePrefix & "CONFIG.C_STRSENDER, " & strTablePrefix & "CONFIG.C_STRDATETYPE, " & strTablePrefix & "CONFIG.C_STRTIMEADJUST, " & strTablePrefix & "CONFIG.C_STRTIMETYPE, " & strTablePrefix & "CONFIG.C_STRMOVETOPICMODE, " & strTablePrefix & "CONFIG.C_STRIPLOGGING, " & strTablePrefix & "CONFIG.C_STRPRIVATEFORUMS, " & strTablePrefix & "CONFIG.C_STRSHOWMODERATORS, " & strTablePrefix & "CONFIG.C_STRALLOWFORUMCODE, " & strTablePrefix & "CONFIG.C_STRALLOWHTML, " & strTablePrefix & "CONFIG.C_STRNOCOOKIES, " & strTablePrefix & "CONFIG.C_STRSECUREADMIN, " & strTablePrefix & "CONFIG.C_STRHOTTOPIC, " & strTablePrefix & "CONFIG.C_INTHOTTOPICNUM, " & strTablePrefix & "CONFIG.C_STRIMGINPOSTS, " & strTablePrefix & "CONFIG.C_STRHOMEPAGE, " & strTablePrefix & "CONFIG.C_STRICQ, " & strTablePrefix & "CONFIG.C_STRYAHOO, " & strTablePrefix & "CONFIG.C_STRAIM, " & strTablePrefix & "CONFIG.C_STRICONS, " & strTablePrefix & "CONFIG.C_STRGFXBUTTONS, " & strTablePrefix & "CONFIG.C_STREDITEDBYDATE, " & strTablePrefix & "CONFIG.C_STRBADWORDFILTER, " & strTablePrefix & "CONFIG.C_STRBADWORDS, " & strTablePrefix & "CONFIG.C_STRDEFAULTFONTFACE, " & strTablePrefix & "CONFIG.C_STRDEFAULTFONTSIZE, " & strTablePrefix & "CONFIG.C_STRHEADERFONTSIZE, " & strTablePrefix & "CONFIG.C_STRFOOTERFONTSIZE, " & strTablePrefix & "CONFIG.C_STRPAGEBGCOLOR, " & strTablePrefix & "CONFIG.C_STRDEFAULTFONTCOLOR, " & strTablePrefix & "CONFIG.C_STRLINKCOLOR, " & strTablePrefix & "CONFIG.C_STRLINKTEXTDECORATION, " & strTablePrefix & "CONFIG.C_STRVISITEDLINKCOLOR, " & strTablePrefix & "CONFIG.C_STRVISITEDTEXTDECORATION, " & strTablePrefix & "CONFIG.C_STRACTIVELINKCOLOR, " & strTablePrefix & "CONFIG.C_STRHOVERFONTCOLOR, " & strTablePrefix & "CONFIG.C_STRHOVERTEXTDECORATION, " & strTablePrefix & "CONFIG.C_STRHEADCELLCOLOR, " & strTablePrefix & "CONFIG.C_STRHEADFONTCOLOR, " & strTablePrefix & "CONFIG.C_STRCATEGORYCELLCOLOR, " & strTablePrefix & "CONFIG.C_STRCATEGORYFONTCOLOR, " & strTablePrefix & "CONFIG.C_STRFORUMFIRSTCELLCOLOR, " & strTablePrefix & "CONFIG.C_STRFORUMCELLCOLOR, " & strTablePrefix & "CONFIG.C_STRALTFORUMCELLCOLOR, " & strTablePrefix & "CONFIG.C_STRFORUMFONTCOLOR, " & strTablePrefix & "CONFIG.C_STRFORUMLINKCOLOR, " & strTablePrefix & "CONFIG.C_STRTABLEBORDERCOLOR, " & strTablePrefix & "CONFIG.C_STRPOPUPTABLECOLOR, " & strTablePrefix & "CONFIG.C_STRPOPUPBORDERCOLOR, " & strTablePrefix & "CONFIG.C_STRNEWFONTCOLOR, " & strTablePrefix & "CONFIG.C_STRTOPICWIDTHLEFT, " & strTablePrefix & "CONFIG.C_STRTOPICNOWRAPLEFT, " & strTablePrefix & "CONFIG.C_STRTOPICWIDTHRIGHT, " & strTablePrefix & "CONFIG.C_STRTOPICNOWRAPRIGHT, " & strTablePrefix & "CONFIG.C_STRSHOWRANK, " & strTablePrefix & "CONFIG.C_STRRANKADMIN, " & strTablePrefix & "CONFIG.C_STRRANKMOD, " & strTablePrefix & "CONFIG.C_STRRANKLEVEL0, " & strTablePrefix & "CONFIG.C_STRRANKLEVEL1, " & strTablePrefix & "CONFIG.C_STRRANKLEVEL2, " & strTablePrefix & "CONFIG.C_STRRANKLEVEL3, " & strTablePrefix & "CONFIG.C_STRRANKLEVEL4, " & strTablePrefix & "CONFIG.C_STRRANKLEVEL5, " & strTablePrefix & "CONFIG.C_STRRANKCOLORADMIN, " & strTablePrefix & "CONFIG.C_STRRANKCOLORMOD, " & strTablePrefix & "CONFIG.C_STRRANKCOLOR0, " & strTablePrefix & "CONFIG.C_STRRANKCOLOR1, " & strTablePrefix & "CONFIG.C_STRRANKCOLOR2, " & strTablePrefix & "CONFIG.C_STRRANKCOLOR3, " & strTablePrefix & "CONFIG.C_STRRANKCOLOR4, " & strTablePrefix & "CONFIG.C_STRRANKCOLOR5, " & strTablePrefix & "CONFIG.C_INTRANKLEVEL0, " & strTablePrefix & "CONFIG.C_INTRANKLEVEL1, " & strTablePrefix & "CONFIG.C_INTRANKLEVEL2, " & strTablePrefix & "CONFIG.C_INTRANKLEVEL3, " & strTablePrefix & "CONFIG.C_INTRANKLEVEL4, " & strTablePrefix & "CONFIG.C_INTRANKLEVEL5 " strSql = strSql & " FROM " & strTablePrefix & "CONFIG " set rsConfig = my_Conn.Execute (StrSql) dim strVersion, strForumTitle, strCopyright, strTitleImage, strHomeURL, strForumURL, strCookieURL dim strAuthType, strSetCookieToForum dim strEmail, strUniqueEmail, strMailMode, strMailServer, strSender dim strDateType, strTimeAdjust, strTimeType, strForumTimeAdjust dim strMoveTopicMode, strIPLogging, strPrivateForums, strShowModerators, strShowRank, strAllowForumCode, strAllowHTML dim strNoCookies, strEditedByDate dim intHotTopicNum, strHotTopic dim strIMGInPosts dim strHomepage, strICQ, strAIM, strInForumAdmin, strSecureAdmin, strIcons, strGfxButtons dim strBadWordFiler, strBadWords dim strDefaultFontFace, strDefaultFontSize, strHeaderFontSize, strFooterFontSize dim strPageBGColor, strDefaultFontColor dim strLinkColor, strLinkTextDecoration, strVisitedLinkColor, strVisitedTextDecoration, strActiveLinkColor, strHoverFontColor, strHoverTextDecoration dim strHeadCellColor, strHeadFontColor, strCategoryCellColor, strCategoryFontColor dim strForumFirstCellColor, strForumCellColor, strAltForumCellColor, strForumFontColor, strForumLinkColor dim strTableBorderColor, strPopUpTableColor, strPopUpBorderColor, strNewFontColor, strTopicWidthLeft, strTopicNoWrapLeft, strTopicWidthRight, strTopicNoWrapRight dim strRankColor1, strRankColor2, strRankColor3 dim strRankLevel0, strRankLevel1, strRankLevel2, strRankLevel3, strRankLevel4, strRankLevel5 dim intRankLevel0, intRankLevel1, intRankLevel2, intRankLevel3, intRankLevel4, intRankLevel5 strVersion = rsConfig("C_STRVERSION") strForumTitle = rsConfig("C_STRFORUMTITLE") strCopyright = rsConfig("C_STRCOPYRIGHT") strTitleImage = rsConfig("C_STRTITLEIMAGE") strHomeURL = rsConfig("C_STRHOMEURL") strForumURL = rsConfig("C_STRFORUMURL") strCookieURL = Left(Request.ServerVariables("Path_Info"), InstrRev(Request.ServerVariables("Path_Info"), "/")) strAuthType = rsConfig("C_STRAUTHTYPE") strSetCookieToForum = rsConfig("C_STRSETCOOKIETOFORUM") strEmail = rsConfig("C_STREMAIL") strUniqueEmail = rsConfig("C_STRUNIQUEEMAIL") strMailMode = rsConfig("C_STRMAILMODE") strMailServer = rsConfig("C_STRMAILSERVER") strSender = rsConfig("C_STRSENDER") strDateType = rsConfig("C_STRDATETYPE") strTimeAdjust = rsConfig("C_STRTIMEADJUST") strTimeType = rsConfig("C_STRTIMETYPE") strMoveTopicMode = rsConfig("C_STRMOVETOPICMODE") strIPLogging = rsConfig("C_STRIPLOGGING") strPrivateForums = rsConfig("C_STRPRIVATEFORUMS") strShowModerators = rsConfig("C_STRSHOWMODERATORS") strAllowForumCode = rsConfig("C_STRALLOWFORUMCODE") strIMGInPosts = rsConfig("C_STRIMGINPOSTS") strAllowHTML = rsConfig("C_STRALLOWHTML") strNoCookies = rsConfig("C_STRNOCOOKIES") strSecureAdmin = rsConfig("C_STRSECUREADMIN") if strSecureAdmin = "0" then Session("Approval") = "15916941253" end if strHotTopic = rsConfig("C_STRHOTTOPIC") intHotTopicNum = rsConfig("C_INTHOTTOPICNUM") strHomepage = rsConfig("C_STRHOMEPAGE") strICQ = rsConfig("C_STRICQ") strYAHOO = rsConfig("C_STRYAHOO") strAIM = rsConfig("C_STRAIM") strIcons = rsConfig("C_STRICONS") strGfxButtons = rsConfig("C_STRGFXBUTTONS") strEditedByDate = rsConfig("C_STREDITEDBYDATE") strBadWordFilter = rsConfig("C_STRBADWORDFILTER") strBadWords = rsConfig("C_STRBADWORDS") strDefaultFontFace = rsConfig("C_STRDEFAULTFONTFACE") strDefaultFontSize = rsConfig("C_STRDEFAULTFONTSIZE") strHeaderFontSize = rsConfig("C_STRHEADERFONTSIZE") strFooterFontSize = rsConfig("C_STRFOOTERFONTSIZE") strPageBGColor = rsConfig("C_STRPAGEBGCOLOR") strDefaultFontColor = rsConfig("C_STRDEFAULTFONTCOLOR") strLinkColor = rsConfig("C_STRLINKCOLOR") strLinkTextDecoration = rsConfig("C_STRLINKTEXTDECORATION") strVisitedLinkColor = rsConfig("C_STRVISITEDLINKCOLOR") strVisitedTextDecoration = rsConfig("C_STRVISITEDTEXTDECORATION") strActiveLinkColor = rsConfig("C_STRACTIVELINKCOLOR") strHoverFontColor = rsConfig("C_STRHOVERFONTCOLOR") strHoverTextDecoration = rsConfig("C_STRHOVERTEXTDECORATION") strHeadCellColor = rsConfig("C_STRHEADCELLCOLOR") strHeadFontColor = rsConfig("C_STRHEADFONTCOLOR") strCategoryCellColor = rsConfig("C_STRCATEGORYCELLCOLOR") strCategoryFontColor = rsConfig("C_STRCATEGORYFONTCOLOR") strForumFirstCellColor = rsConfig("C_STRFORUMFIRSTCELLCOLOR") strForumCellColor = rsConfig("C_STRFORUMCELLCOLOR") strAltForumCellColor = rsConfig("C_STRALTFORUMCELLCOLOR") strForumFontColor = rsConfig("C_STRFORUMFONTCOLOR") strForumLinkColor = rsConfig("C_STRFORUMLINKCOLOR") strTableBorderColor = rsConfig("C_STRTABLEBORDERCOLOR") strPopUpTableColor = rsConfig("C_STRPOPUPTABLECOLOR") strPopUpBorderColor = rsConfig("C_STRPOPUPBORDERCOLOR") strNewFontColor = rsConfig("C_STRNEWFONTCOLOR") strTopicWidthLeft = rsConfig("C_STRTOPICWIDTHLEFT") strTopicNoWrapLeft = rsConfig("C_STRTOPICNOWRAPLEFT") strTopicWidthRight = rsConfig("C_STRTOPICWIDTHRIGHT") strTopicNoWrapRight = rsConfig("C_STRTOPICNOWRAPRIGHT") strShowRank = rsConfig("C_STRSHOWRANK") strRankAdmin = rsConfig("C_STRRANKADMIN") strRankMod = rsConfig("C_STRRANKMOD") strRankLevel0 = rsConfig("C_STRRANKLEVEL0") strRankLevel1 = rsConfig("C_STRRANKLEVEL1") strRankLevel2 = rsConfig("C_STRRANKLEVEL2") strRankLevel3 = rsConfig("C_STRRANKLEVEL3") strRankLevel4 = rsConfig("C_STRRANKLEVEL4") strRankLevel5 = rsConfig("C_STRRANKLEVEL5") strRankColorAdmin = rsConfig("C_STRRANKCOLORADMIN") strRankColorMod = rsConfig("C_STRRANKCOLORMOD") strRankColor0 = rsConfig("C_STRRANKCOLOR0") strRankColor1 = rsConfig("C_STRRANKCOLOR1") strRankColor2 = rsConfig("C_STRRANKCOLOR2") strRankColor3 = rsConfig("C_STRRANKCOLOR3") strRankColor4 = rsConfig("C_STRRANKCOLOR4") strRankColor5 = rsConfig("C_STRRANKCOLOR5") intRankLevel0 = rsConfig("C_INTRANKLEVEL0") intRankLevel1 = rsConfig("C_INTRANKLEVEL1") intRankLevel2 = rsConfig("C_INTRANKLEVEL2") intRankLevel3 = rsConfig("C_INTRANKLEVEL3") intRankLevel4 = rsConfig("C_INTRANKLEVEL4") intRankLevel5 = rsConfig("C_INTRANKLEVEL5") my_Conn.Close set my_Conn = nothing strForumTimeAdjust = DateAdd("h", strTimeAdjust , Now()) %>