<% on error resume next Session.LCID = 5236 '## Do Not Edit Response.Buffer = true dim strDBType, strConnString, strTablePrefix, strMemberTablePrefix '## Do Not Edit strDBType = "access" strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\websites\coteopalecom\datasecret\db2002.mdb" '## MS Access 2000 strWebMaster = "coteopale," strShowImagePoweredBy = "0" strTablePrefix = "FORUM_" strMemberTablePrefix = "FORUM_" dim strVersion, strForumTitle, strCopyright, strTitleImage, strHomeURL, strForumURL, strCookieURL, strWebMaster, strWebSiteVersion dim strAuthType, strSetCookieToForum, strForumStatus dim strEmail, strUniqueEmail, strMailMode, strMailServer, strSender dim strDateType, strTimeAdjust, strTimeType, strForumTimeAdjust, strForumDateAdjust dim strMoveTopicMode, strIPLogging, strPrivateForums, strShowModerators, strShowRank, strAllowForumCode, strAllowHTML dim strNoCookies, strEditedByDate dim intHotTopicNum, strHotTopic dim strIMGInPosts, strEmailVal dim strHomepage, strICQ, strAIM, strInForumAdmin, strSecureAdmin, strIcons, strGfxButtons dim strBadWordFilter, strBadWords dim strDefaultFontFace, strDefaultFontSize, strHeaderFontSize, strFooterFontSize dim strPageBGColor, strDefaultFontColor dim strLinkColor, strLinkTextDecoration, strVisitedLinkColor, strVisitedTextDecoration, strActiveLinkColor, strHoverFontColor, strHoverTextDecoration dim strHeadCellColor, strAltHeadCellColor, 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 dim strShowStatistics, strLogonForMail, strShowPaging, strShowTopicNav, strPageSize, strPageNumberSize dim strNTGroupsSTR dim strAdminPolls, strUserPolls, strActivePoll, strJokeOfTheWeek dim strFloodCheck, strFloodCheckTime, strTimeLimit sysDebugMode = "0" strCookieURL = Left(Request.ServerVariables("Path_Info"), InstrRev(Request.ServerVariables("Path_Info"), "/")) strUniqueID = "MWP" strWebMaster = lcase(strWebMaster) if Application(strCookieURL & "ConfigLoaded")= "" or IsNull(Application(strCookieURL & "ConfigLoaded")) or blnSetup="Y" then set my_Conn = Server.CreateObject("ADODB.Connection") my_Conn.Errors.Clear my_Conn.Open strConnString if blnSetup <> "Y" then for counter = 0 to my_conn.Errors.Count -1 ConnErrorNumber = my_conn.Errors(counter).Number if my_conn.Errors(counter).Number <> 0 then my_conn.Errors.Clear Response.Redirect "site_setup.asp?RC=1&CC=1&strDBType=" & strDBType & "&EC=" & ConnErrorNumber end if next end if my_conn.Errors.Clear '## Forum_SQL strSql = "SELECT C_STRVERSION " strSql = strSql & ", C_STRFORUMTITLE " strSql = strSql & ", C_STRCOPYRIGHT " strSql = strSql & ", C_STRTITLEIMAGE " strSql = strSql & ", C_STRHOMEURL " strSql = strSql & ", C_STRFORUMURL " strSql = strSql & ", C_STRAUTHTYPE " strSql = strSql & ", C_STRSETCOOKIETOFORUM " strSql = strSql & ", C_STREMAIL " strSql = strSql & ", C_STRUNIQUEEMAIL " strSql = strSql & ", C_STRMAILMODE " strSql = strSql & ", C_STRMAILSERVER " strSql = strSql & ", C_STRSENDER " strSql = strSql & ", C_STRDATETYPE " strSql = strSql & ", C_STRTIMEADJUST " strSql = strSql & ", C_STRTIMETYPE " strSql = strSql & ", C_STRMOVETOPICMODE " strSql = strSql & ", C_STRIPLOGGING " strSql = strSql & ", C_STRPRIVATEFORUMS " strSql = strSql & ", C_STRSHOWMODERATORS " strSql = strSql & ", C_STRALLOWFORUMCODE " strSql = strSql & ", C_STRALLOWHTML " strSql = strSql & ", C_STRNOCOOKIES " strSql = strSql & ", C_STRSECUREADMIN " strSql = strSql & ", C_STRHOTTOPIC " strSql = strSql & ", C_INTHOTTOPICNUM " strSql = strSql & ", C_STRIMGINPOSTS " strSql = strSql & ", C_STRHOMEPAGE " strSql = strSql & ", C_STRICQ " strSql = strSql & ", C_STRYAHOO " strSql = strSql & ", C_STRAIM " strSql = strSql & ", C_STRICONS " strSql = strSql & ", C_STRGFXBUTTONS " strSql = strSql & ", C_STREDITEDBYDATE " strSql = strSql & ", C_STRBADWORDFILTER " strSql = strSql & ", C_STRBADWORDS " strSql = strSql & ", C_STRDEFAULTFONTFACE " strSql = strSql & ", C_STRDEFAULTFONTSIZE " strSql = strSql & ", C_STRHEADERFONTSIZE " strSql = strSql & ", C_STRFOOTERFONTSIZE " strSql = strSql & ", C_STRPAGEBGCOLOR " strSql = strSql & ", C_STRDEFAULTFONTCOLOR " strSql = strSql & ", C_STRLINKCOLOR " strSql = strSql & ", C_STRLINKTEXTDECORATION " strSql = strSql & ", C_STRVISITEDLINKCOLOR " strSql = strSql & ", C_STRVISITEDTEXTDECORATION " strSql = strSql & ", C_STRACTIVELINKCOLOR " strSql = strSql & ", C_STRHOVERFONTCOLOR " strSql = strSql & ", C_STRHOVERTEXTDECORATION " strSql = strSql & ", C_STRHEADCELLCOLOR " strSql = strSql & ", C_STRALTHEADCELLCOLOR " strSql = strSql & ", C_STRHEADFONTCOLOR " strSql = strSql & ", C_STRCATEGORYCELLCOLOR " strSql = strSql & ", C_STRCATEGORYFONTCOLOR " strSql = strSql & ", C_STRFORUMFIRSTCELLCOLOR " strSql = strSql & ", C_STRFORUMCELLCOLOR " strSql = strSql & ", C_STRALTFORUMCELLCOLOR " strSql = strSql & ", C_STRFORUMFONTCOLOR " strSql = strSql & ", C_STRFORUMLINKCOLOR " strSql = strSql & ", C_STRTABLEBORDERCOLOR " strSql = strSql & ", C_STRPOPUPTABLECOLOR " strSql = strSql & ", C_STRPOPUPBORDERCOLOR " strSql = strSql & ", C_STRNEWFONTCOLOR " strSql = strSql & ", C_STRTOPICWIDTHLEFT " strSql = strSql & ", C_STRTOPICNOWRAPLEFT " strSql = strSql & ", C_STRTOPICWIDTHRIGHT " strSql = strSql & ", C_STRTOPICNOWRAPRIGHT " strSql = strSql & ", C_STRSHOWRANK " strSql = strSql & ", C_STRRANKADMIN " strSql = strSql & ", C_STRRANKMOD " strSql = strSql & ", C_STRRANKLEVEL0 " strSql = strSql & ", C_STRRANKLEVEL1 " strSql = strSql & ", C_STRRANKLEVEL2 " strSql = strSql & ", C_STRRANKLEVEL3 " strSql = strSql & ", C_STRRANKLEVEL4 " strSql = strSql & ", C_STRRANKLEVEL5 " strSql = strSql & ", C_STRRANKCOLORADMIN " strSql = strSql & ", C_STRRANKCOLORMOD " strSql = strSql & ", C_STRRANKCOLOR0 " strSql = strSql & ", C_STRRANKCOLOR1 " strSql = strSql & ", C_STRRANKCOLOR2 " strSql = strSql & ", C_STRRANKCOLOR3 " strSql = strSql & ", C_STRRANKCOLOR4 " strSql = strSql & ", C_STRRANKCOLOR5 " strSql = strSql & ", C_INTRANKLEVEL0 " strSql = strSql & ", C_INTRANKLEVEL1 " strSql = strSql & ", C_INTRANKLEVEL2 " strSql = strSql & ", C_INTRANKLEVEL3 " strSql = strSql & ", C_INTRANKLEVEL4 " strSql = strSql & ", C_INTRANKLEVEL5 " strSql = strSql & ", C_STRSIGNATURES " strSql = strSql & ", C_STRSHOWSTATISTICS " strSql = strSql & ", C_STRLOGONFORMAIL " strSql = strSql & ", C_STRSHOWPAGING " strSql = strSql & ", C_STRSHOWTOPICNAV " strSql = strSql & ", C_STRPAGESIZE " strSql = strSql & ", C_STRPAGENUMBERSIZE " strSql = strSql & ", C_STRFULLNAME" strSql = strSql & ", C_STRPICTURE" strSql = strSql & ", C_STRSEX" strSql = strSql & ", C_STRCITY" strSql = strSql & ", C_STRSTATE" strSql = strSql & ", C_STRAGE" strSql = strSql & ", C_STRCOUNTRY" strSql = strSql & ", C_STROCCUPATION" strSql = strSql & ", C_STRBIO" strSql = strSql & ", C_STRHOBBIES" strSql = strSql & ", C_STRLNEWS" strSql = strSql & ", C_STRQUOTE" strSql = strSql & ", C_STRMARSTATUS" strSql = strSql & ", C_STRFAVLINKS" strSql = strSql & ", C_STRRECENTTOPICS" strSql = strSql & ", C_STRHOMEPAGE" strSql = strSql & ", C_STRNTGROUPS" strSql = strSql & ", C_STRAUTOLOGON" strSql = strSql & ", C_STREMAILVAL" strSql = strSql & ", C_ADMINPOLLS" strSql = strSql & ", C_USERPOLLS" strSql = strSql & ", C_ACTIVEPOLL" strSql = strSql & ", C_JOKEOFTHEWEEK" strSql = strSql & ", C_FORUMSTATUS" strSql = strSql & ", C_STRFLOODCHECK" strSql = strSql & ", C_STRFLOODCHECKTIME" strSql = strSql & " FROM " & strTablePrefix & "CONFIG " set rsConfig = my_Conn.Execute (strSql) Application.Lock Application(strCookieURL & "strVersion") = rsConfig("C_STRVERSION") Application(strCookieURL & "strForumTitle") = rsConfig("C_STRFORUMTITLE") Application(strCookieURL & "strCopyright") = rsConfig("C_STRCOPYRIGHT") Application(strCookieURL & "strTitleImage") = rsConfig("C_STRTITLEIMAGE") Application(strCookieURL & "strHomeURL") = rsConfig("C_STRHOMEURL") Application(strCookieURL & "strForumURL") = rsConfig("C_STRFORUMURL") Application(strCookieURL & "strAuthType") = rsConfig("C_STRAUTHTYPE") Application(strCookieURL & "strSetCookieToForum") = rsConfig("C_STRSETCOOKIETOFORUM") Application(strCookieURL & "strEmail") = rsConfig("C_STREMAIL") Application(strCookieURL & "strUniqueEmail") = rsConfig("C_STRUNIQUEEMAIL") Application(strCookieURL & "strMailMode") = rsConfig("C_STRMAILMODE") Application(strCookieURL & "strMailServer") = rsConfig("C_STRMAILSERVER") Application(strCookieURL & "strSender") = rsConfig("C_STRSENDER") Application(strCookieURL & "strDateType") = rsConfig("C_STRDATETYPE") Application(strCookieURL & "strTimeAdjust") = rsConfig("C_STRTIMEADJUST") Application(strCookieURL & "strTimeType") = rsConfig("C_STRTIMETYPE") Application(strCookieURL & "strMoveTopicMode") = rsConfig("C_STRMOVETOPICMODE") Application(strCookieURL & "strIPLogging") = rsConfig("C_STRIPLOGGING") Application(strCookieURL & "strPrivateForums") = rsConfig("C_STRPRIVATEFORUMS") Application(strCookieURL & "strShowModerators") = rsConfig("C_STRSHOWMODERATORS") Application(strCookieURL & "strAllowForumCode") = rsConfig("C_STRALLOWFORUMCODE") Application(strCookieURL & "strIMGInPosts") = rsConfig("C_STRIMGINPOSTS") Application(strCookieURL & "strAllowHTML") = rsConfig("C_STRALLOWHTML") Application(strCookieURL & "strNoCookies") = rsConfig("C_STRNOCOOKIES") Application(strCookieURL & "strSecureAdmin") = rsConfig("C_STRSECUREADMIN") Application(strCookieURL & "strHotTopic") = rsConfig("C_STRHOTTOPIC") Application(strCookieURL & "intHotTopicNum") = rsConfig("C_INTHOTTOPICNUM") Application(strCookieURL & "strHomepage") = rsConfig("C_STRHOMEPAGE") Application(strCookieURL & "strICQ") = rsConfig("C_STRICQ") Application(strCookieURL & "strYAHOO") = rsConfig("C_STRYAHOO") Application(strCookieURL & "strAIM") = rsConfig("C_STRAIM") Application(strCookieURL & "strIcons") = rsConfig("C_STRICONS") Application(strCookieURL & "strGfxButtons") = rsConfig("C_STRGFXBUTTONS") Application(strCookieURL & "strEditedByDate") = rsConfig("C_STREDITEDBYDATE") Application(strCookieURL & "strBadWordFilter") = rsConfig("C_STRBADWORDFILTER") Application(strCookieURL & "strBadWords") = rsConfig("C_STRBADWORDS") Application(strCookieURL & "strDefaultFontFace") = rsConfig("C_STRDEFAULTFONTFACE") Application(strCookieURL & "strDefaultFontSize") = rsConfig("C_STRDEFAULTFONTSIZE") Application(strCookieURL & "strHeaderFontSize") = rsConfig("C_STRHEADERFONTSIZE") Application(strCookieURL & "strFooterFontSize") = rsConfig("C_STRFOOTERFONTSIZE") Application(strCookieURL & "strPageBGColor") = rsConfig("C_STRPAGEBGCOLOR") Application(strCookieURL & "strDefaultFontColor") = rsConfig("C_STRDEFAULTFONTCOLOR") Application(strCookieURL & "strLinkColor") = rsConfig("C_STRLINKCOLOR") Application(strCookieURL & "strLinkTextDecoration") = rsConfig("C_STRLINKTEXTDECORATION") Application(strCookieURL & "strVisitedLinkColor") = rsConfig("C_STRVISITEDLINKCOLOR") Application(strCookieURL & "strVisitedTextDecoration") = rsConfig("C_STRVISITEDTEXTDECORATION") Application(strCookieURL & "strActiveLinkColor") = rsConfig("C_STRACTIVELINKCOLOR") Application(strCookieURL & "strHoverFontColor") = rsConfig("C_STRHOVERFONTCOLOR") Application(strCookieURL & "strHoverTextDecoration") = rsConfig("C_STRHOVERTEXTDECORATION") Application(strCookieURL & "strHeadCellColor") = rsConfig("C_STRHEADCELLCOLOR") Application(strCookieURL & "strAltHeadCellColor") = rsConfig("C_STRALTHEADCELLCOLOR") Application(strCookieURL & "strHeadFontColor") = rsConfig("C_STRHEADFONTCOLOR") Application(strCookieURL & "strCategoryCellColor") = rsConfig("C_STRCATEGORYCELLCOLOR") Application(strCookieURL & "strCategoryFontColor") = rsConfig("C_STRCATEGORYFONTCOLOR") Application(strCookieURL & "strForumFirstCellColor") = rsConfig("C_STRFORUMFIRSTCELLCOLOR") Application(strCookieURL & "strForumCellColor") = rsConfig("C_STRFORUMCELLCOLOR") Application(strCookieURL & "strAltForumCellColor") = rsConfig("C_STRALTFORUMCELLCOLOR") Application(strCookieURL & "strForumFontColor") = rsConfig("C_STRFORUMFONTCOLOR") Application(strCookieURL & "strForumLinkColor") = rsConfig("C_STRFORUMLINKCOLOR") Application(strCookieURL & "strTableBorderColor") = rsConfig("C_STRTABLEBORDERCOLOR") Application(strCookieURL & "strPopUpTableColor") = rsConfig("C_STRPOPUPTABLECOLOR") Application(strCookieURL & "strPopUpBorderColor") = rsConfig("C_STRPOPUPBORDERCOLOR") Application(strCookieURL & "strNewFontColor") = rsConfig("C_STRNEWFONTCOLOR") Application(strCookieURL & "strTopicWidthLeft") = rsConfig("C_STRTOPICWIDTHLEFT") Application(strCookieURL & "strTopicNoWrapLeft") = rsConfig("C_STRTOPICNOWRAPLEFT") Application(strCookieURL & "strTopicWidthRight") = rsConfig("C_STRTOPICWIDTHRIGHT") Application(strCookieURL & "strTopicNoWrapRight") = rsConfig("C_STRTOPICNOWRAPRIGHT") Application(strCookieURL & "strShowRank") = rsConfig("C_STRSHOWRANK") Application(strCookieURL & "strRankAdmin") = rsConfig("C_STRRANKADMIN") Application(strCookieURL & "strRankMod") = rsConfig("C_STRRANKMOD") Application(strCookieURL & "strRankLevel0") = rsConfig("C_STRRANKLEVEL0") Application(strCookieURL & "strRankLevel1") = rsConfig("C_STRRANKLEVEL1") Application(strCookieURL & "strRankLevel2") = rsConfig("C_STRRANKLEVEL2") Application(strCookieURL & "strRankLevel3") = rsConfig("C_STRRANKLEVEL3") Application(strCookieURL & "strRankLevel4") = rsConfig("C_STRRANKLEVEL4") Application(strCookieURL & "strRankLevel5") = rsConfig("C_STRRANKLEVEL5") Application(strCookieURL & "strRankColorAdmin") = rsConfig("C_STRRANKCOLORADMIN") Application(strCookieURL & "strRankColorMod") = rsConfig("C_STRRANKCOLORMOD") Application(strCookieURL & "strRankColor0") = rsConfig("C_STRRANKCOLOR0") Application(strCookieURL & "strRankColor1") = rsConfig("C_STRRANKCOLOR1") Application(strCookieURL & "strRankColor2") = rsConfig("C_STRRANKCOLOR2") Application(strCookieURL & "strRankColor3") = rsConfig("C_STRRANKCOLOR3") Application(strCookieURL & "strRankColor4") = rsConfig("C_STRRANKCOLOR4") Application(strCookieURL & "strRankColor5") = rsConfig("C_STRRANKCOLOR5") Application(strCookieURL & "intRankLevel0") = rsConfig("C_INTRANKLEVEL0") Application(strCookieURL & "intRankLevel1") = rsConfig("C_INTRANKLEVEL1") Application(strCookieURL & "intRankLevel2") = rsConfig("C_INTRANKLEVEL2") Application(strCookieURL & "intRankLevel3") = rsConfig("C_INTRANKLEVEL3") Application(strCookieURL & "intRankLevel4") = rsConfig("C_INTRANKLEVEL4") Application(strCookieURL & "intRankLevel5") = rsConfig("C_INTRANKLEVEL5") Application(strCookieURL & "strShowStatistics") = rsconfig("C_STRSHOWSTATISTICS") Application(strCookieURL & "strLogonForMail") = rsconfig("C_STRLOGONFORMAIL") Application(strCookieURL & "strShowPaging") = rsconfig("C_STRSHOWPAGING") Application(strCookieURL & "strShowTopicNav") = rsconfig("C_STRSHOWTOPICNAV") Application(strCookieURL & "strPageSize") = rsconfig("C_STRPAGESIZE") Application(strCookieURL & "strPageNumberSize") = rsconfig("C_STRPAGENUMBERSIZE") Application(strCookieURL & "strFullName") = rsconfig("C_STRFULLNAME") Application(strCookieURL & "strPicture") = rsconfig("C_STRPICTURE") Application(strCookieURL & "strSex") = rsconfig("C_STRSEX") Application(strCookieURL & "strCity") = rsconfig("C_STRCITY") Application(strCookieURL & "strState") = rsconfig("C_STRSTATE") Application(strCookieURL & "strAge") = rsconfig("C_STRAGE") Application(strCookieURL & "strCountry") = rsconfig("C_STRCOUNTRY") Application(strCookieURL & "strOccupation") = rsconfig("C_STROCCUPATION") Application(strCookieURL & "strBio") = rsconfig("C_STRBIO") Application(strCookieURL & "strHobbies") = rsconfig("C_STRHOBBIES") Application(strCookieURL & "strLNews") = rsconfig("C_STRLNEWS") Application(strCookieURL & "strQuote") = rsconfig("C_STRQUOTE") Application(strCookieURL & "strMarStatus") = rsconfig("C_STRMARSTATUS") Application(strCookieURL & "strFavLinks") = rsconfig("C_STRFAVLINKS") Application(strCookieURL & "strRecentTopics") = rsconfig("C_STRRECENTTOPICS") Application(strCookieURL & "strHomePage") = rsconfig("C_STRHOMEPAGE") Application(strCookieURL & "STRNTGROUPS") = rsConfig("C_STRNTGROUPS") Application(strCookieURL & "STRAUTOLOGON") = rsConfig("C_STRAUTOLOGON") Application(strCookieURL & "strEmailVal") = rsConfig("C_STREMAILVAL") Application(strCookieURL & "strAdminPolls") = rsConfig("C_ADMINPOLLS") Application(strCookieURL & "strUserPolls") = rsConfig("C_USERPOLLS") Application(strCookieURL & "strActivePoll") = rsConfig("C_ACTIVEPOLL") Application(strCookieURL & "strJokeOfTheWeek") = rsConfig("C_JOKEOFTHEWEEK") Application(strCookieURL & "strForumStatus") = rsConfig("C_FORUMSTATUS") Application(strCookieURL & "strFloodCheck") = rsConfig("C_STRFLOODCHECK") Application(strCookieURL & "strFloodCheckTime") = rsConfig("C_STRFLOODCHECKTIME") Application.UnLock if blnSetup <> "Y" then for counter = 0 to my_Conn.Errors.Count -1 if my_Conn.Errors(counter).Number <> 0 or Err.number > 0 then myConnError = my_Conn.Errors(counter).Number my_Conn.Errors.Clear Err.Clear my_Conn.Close set my_Conn = nothing Response.Redirect "site_setup.asp?RC=2&CC=1&strDBType="& strDBType & "&EC=" & myConnError end if next end if my_Conn.Close set my_Conn = nothing Application.Lock Application(strCookieURL & "ConfigLoaded")= "YES" Application.UnLock end if okoame = 1 strVersion = Application(strCookieURL & "strVersion") strForumTitle = Application(strCookieURL & "strForumTitle") strCopyright = Application(strCookieURL & "strCopyright") strTitleImage = Application(strCookieURL & "strTitleImage") strHomeURL = Application(strCookieURL & "strHomeURL") strForumURL = Application(strCookieURL & "strForumURL") strAuthType = Application(strCookieURL & "strAuthType") strSetCookieToForum = Application(strCookieURL & "strSetCookieToForum") strEmail = Application(strCookieURL & "strEmail") strUniqueEmail = Application(strCookieURL & "strUniqueEmail") strMailMode = Application(strCookieURL & "strMailMode") strMailServer = Application(strCookieURL & "strMailServer") strSender = Application(strCookieURL & "strSender") strDateType = Application(strCookieURL & "strDateType") strTimeAdjust = Application(strCookieURL & "strTimeAdjust") strTimeType = Application(strCookieURL & "strTimeType") strMoveTopicMode = Application(strCookieURL & "strMoveTopicMode") strIPLogging = Application(strCookieURL & "strIPLogging") strPrivateForums = Application(strCookieURL & "strPrivateForums") strShowModerators = Application(strCookieURL & "strShowModerators") strAllowForumCode = Application(strCookieURL & "strAllowForumCode") strIMGInPosts = Application(strCookieURL & "strIMGInPosts") strAllowHTML = Application(strCookieURL & "strAllowHTML") strNoCookies = Application(strCookieURL & "strNoCookies") strSecureAdmin = Application(strCookieURL & "strSecureAdmin") strHotTopic = Application(strCookieURL & "strHotTopic") intHotTopicNum = Application(strCookieURL & "intHotTopicNum") strICQ = Application(strCookieURL & "strICQ") strYAHOO = Application(strCookieURL & "strYAHOO") strAIM = Application(strCookieURL & "strAIM") strFullName = Application(strCookieURL & "strFullName") strPicture = Application(strCookieURL & "strPicture") strSex = Application(strCookieURL & "strSex") strCity= Application(strCookieURL & "strCity") strState = Application(strCookieURL & "strState") strAge = Application(strCookieURL & "strAge") strCountry = Application(strCookieURL & "strCountry") strOccupation = Application(strCookieURL & "strOccupation") strBio = Application(strCookieURL & "strBio") strHobbies = Application(strCookieURL & "strHobbies") strLNews = Application(strCookieURL & "strLNews") strQuote = Application(strCookieURL & "strQuote") strMarStatus = Application(strCookieURL & "strMarStatus") strFavLinks = Application(strCookieURL & "strFavLinks") strRecentTopics = Application(strCookieURL & "strRecentTopics") strAllowHideEmail = "1" '##not yet used ! strHomepage = Application(strCookieURL & "strHomepage") strUseExtendedProfile = (strBio + strHobbies + strLNews + strRecentTopics + strPicture) > 0 strUseExtendedProfile = strUseExtendedProfile or ((strICQ + strYAHOO + strAIM + strFullName*2 + strSex + strCity + strState + strAge + strCountry + strOccupation + strFavLinks*2) > 5) strIcons = Application(strCookieURL & "strIcons") strGfxButtons = Application(strCookieURL & "strGfxButtons") strEditedByDate = Application(strCookieURL & "strEditedByDate") strBadWordFilter = Application(strCookieURL & "strBadWordFilter") strBadWords = Application(strCookieURL & "strBadWords") strDefaultFontFace = Application(strCookieURL & "strDefaultFontFace") strDefaultFontSize = Application(strCookieURL & "strDefaultFontSize") strHeaderFontSize = Application(strCookieURL & "strHeaderFontSize") strFooterFontSize = Application(strCookieURL & "strFooterFontSize") strPageBGColor = Application(strCookieURL & "strPageBGColor") strDefaultFontColor = Application(strCookieURL & "strDefaultFontColor") strLinkColor = Application(strCookieURL & "strLinkColor") strLinkTextDecoration = Application(strCookieURL & "strLinkTextDecoration") strVisitedLinkColor = Application(strCookieURL & "strVisitedLinkColor") strVisitedTextDecoration = Application(strCookieURL & "strVisitedTextDecoration") strActiveLinkColor = Application(strCookieURL & "strActiveLinkColor") strHoverFontColor = Application(strCookieURL & "strHoverFontColor") strHoverTextDecoration = Application(strCookieURL & "strHoverTextDecoration") strHeadCellColor = Application(strCookieURL & "strHeadCellColor") strAltHeadCellColor = Application(strCookieURL & "strAltHeadCellColor") strHeadFontColor = Application(strCookieURL & "strHeadFontColor") strCategoryCellColor = Application(strCookieURL & "strCategoryCellColor") strCategoryFontColor = Application(strCookieURL & "strCategoryFontColor") strForumFirstCellColor = Application(strCookieURL & "strForumFirstCellColor") strForumCellColor = Application(strCookieURL & "strForumCellColor") strAltForumCellColor = Application(strCookieURL & "strAltForumCellColor") strForumFontColor = Application(strCookieURL & "strForumFontColor") strForumLinkColor = Application(strCookieURL & "strForumLinkColor") strTableBorderColor = Application(strCookieURL & "strTableBorderColor") strPopUpTableColor = Application(strCookieURL & "strPopUpTableColor") strPopUpBorderColor = Application(strCookieURL & "strPopUpBorderColor") strNewFontColor = Application(strCookieURL & "strNewFontColor") strTopicWidthLeft = Application(strCookieURL & "strTopicWidthLeft") strTopicNoWrapLeft = Application(strCookieURL & "strTopicNoWrapLeft") strTopicWidthRight = Application(strCookieURL & "strTopicWidthRight") strTopicNoWrapRight = Application(strCookieURL & "strTopicNoWrapRight") strShowRank = Application(strCookieURL & "strShowRank") strRankAdmin = Application(strCookieURL & "strRankAdmin") strRankMod = Application(strCookieURL & "strRankMod") strRankLevel0 = Application(strCookieURL & "strRankLevel0") strRankLevel1 = Application(strCookieURL & "strRankLevel1") strRankLevel2 = Application(strCookieURL & "strRankLevel2") strRankLevel3 = Application(strCookieURL & "strRankLevel3") strRankLevel4 = Application(strCookieURL & "strRankLevel4") strRankLevel5 = Application(strCookieURL & "strRankLevel5") strRankColorAdmin = Application(strCookieURL & "strRankColorAdmin") strRankColorMod = Application(strCookieURL & "strRankColorMod") strRankColor0 = Application(strCookieURL & "strRankColor0") strRankColor1 = Application(strCookieURL & "strRankColor1") strRankColor2 = Application(strCookieURL & "strRankColor2") strRankColor3 = Application(strCookieURL & "strRankColor3") strRankColor4 = Application(strCookieURL & "strRankColor4") strRankColor5 = Application(strCookieURL & "strRankColor5") intRankLevel0 = Application(strCookieURL & "intRankLevel0") intRankLevel1 = Application(strCookieURL & "intRankLevel1") intRankLevel2 = Application(strCookieURL & "intRankLevel2") intRankLevel3 = Application(strCookieURL & "intRankLevel3") intRankLevel4 = Application(strCookieURL & "intRankLevel4") intRankLevel5 = Application(strCookieURL & "intRankLevel5") strShowStatistics = Application(strCookieURL & "strShowStatistics") strLogonForMail = Application(strCookieURL & "strLogonForMail") strShowPaging = Application(strCookieURL & "strShowPaging") strShowTopicNav = Application(strCookieURL & "strShowTopicNav") strPageSize = Application(strCookieURL & "strPageSize") strPageNumberSize = Application(strCookieURL & "strPageNumberSize") strForumTimeAdjust = DateAdd("h", strTimeAdjust , Now()) strForumDateAdjust = strToDate(DateToStr(ChkDate(DateToStr(strForumTimeAdjust)))) strNTGroups = Application(strCookieURL & "STRNTGROUPS") strAutoLogon = Application(strCookieURL & "STRAUTOLOGON") strEmailVal = Application(strCookieURL & "STREMAILVAL") strAdminPolls = Application(strCookieURL & "strAdminPolls") strUserPolls = Application(strCookieURL & "strUserPolls") strActivePoll = Application(strCookieURL & "strActivePoll") strJokeOfTheWeek = Application(strCookieURL & "strJokeOfTheWeek") strForumStatus = Application(strCookieURL & "strForumStatus") strFloodCheck = Application(strCookieURL & "STRFLOODCHECK") strFloodCheckTime = Application(strCookieURL & "STRFLOODCHECKTIME") if strSecureAdmin = "0" then Session(strCookieURL & "Approval") = "256697926329" end if on error goto 0 if strAuthType = "db" then strDBNTSQLName = "M_NAME" strAutoLogon ="0" strNTGroups ="0" else strDBNTSQLName = "M_USERNAME" end if %>