config.asp error!
Hvad er der galt med følgende kode? Jeg prøver at installere MaxWebPortal på min side på 1asphost.com men når jeg skal starte installationen kommer der denne besked op:"There has been an error !!
The database could not be opened !!
Check your config.asp file and set the
strConnString so it points to the database.
Also check if strDBType is set to the right databasetype."
Hvad skal jeg gøre?
config.asp
<%
'***********************************************************************
'** 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
'***********************************************************************
on error resume next
Session.LCID = 1033
Response.Buffer = true
dim strDBType, strConnString, strTablePrefix, strMemberTablePrefix '## Do Not Edit
'#################################################################################
'## SELECT YOUR DATABASE TYPE AND CONNECTION TYPE (access, sqlserver or mysql)
'#################################################################################
'strDBType = "access"
'## Make sure to uncomment one of the strConnString lines!
'strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="./database/db2000.mdb" '## MS Access 2000
'strWebMaster should always end with a comma
strWebMaster = "admin,"
strShowImagePoweredBy = "0"
'#################################################################################
'## Do Not Edit Below This Line - It could destroy your database and lose data
'#################################################################################
strTablePrefix = "PORTAL_"
strMemberTablePrefix = "PORTAL_"
dim strSiteTitle, 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, strPollCreate, strFeaturedPoll
dim strNewReg, pEnPrefix
dim strJokeOfTheWeek, strQuickReply
dim strFloodCheck, strFloodCheckTime, strTimeLimit
sysDebugMode = "0"
strCookieURL = Left(Request.ServerVariables("Path_Info"), InstrRev(Request.ServerVariables("Path_Info"), "/"))
strUniqueID = "MWP"
pEnPrefix = ""
strWebMaster = lcase(strWebMaster)
if Application(strCookieURL & "ConfigLoaded")= "" or IsNull(Application(strCookieURL & "ConfigLoaded")) or blnSetup="Y" then
'## if the configvariables aren't loaded into the Application object
'## or after the admin has changed the configuration
'## the variables get (re)loaded
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_STRSITETITLE "
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_JOKEOFTHEWEEK"
strSql = strSql & ", C_FORUMSTATUS"
strSql = strSql & ", C_STRFLOODCHECK"
strSql = strSql & ", C_STRFLOODCHECKTIME"
strSql = strSql & ", C_POLLCREATE"
strSql = strSql & ", C_FEATUREDPOLL"
strSql = strSql & ", C_STRNEWREG"
strSql = strSql & ", C_STRQUICKREPLY"
strSql = strSql & " FROM " & strTablePrefix & "CONFIG "
set rsConfig = my_Conn.Execute (strSql)
Application.Lock
Application(strCookieURL & "strSiteTitle") = rsConfig("C_STRSITETITLE")
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 & "strJokeOfTheWeek") = rsConfig("C_JOKEOFTHEWEEK")
Application(strCookieURL & "strForumStatus") = rsConfig("C_FORUMSTATUS")
Application(strCookieURL & "strFloodCheck") = rsConfig("C_STRFLOODCHECK")
Application(strCookieURL & "strFloodCheckTime") = rsConfig("C_STRFLOODCHECKTIME")
Application(strCookieURL & "strPollCreate") = rsConfig("C_POLLCREATE")
Application(strCookieURL & "strFeaturedPoll") = rsConfig("C_FEATUREDPOLL")
Application(strCookieURL & "strNewReg") = rsConfig("C_STRNEWREG")
Application(strCookieURL & "strQuickReply") = rsConfig("C_STRQUICKREPLY")
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
' ## Read the config-info from the application variables...
strSiteTitle = Application(strCookieURL & "strSiteTitle")
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 = true
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")
strJokeOfTheWeek = Application(strCookieURL & "strJokeOfTheWeek")
strForumStatus = Application(strCookieURL & "strForumStatus")
strFloodCheck = Application(strCookieURL & "STRFLOODCHECK")
strFloodCheckTime = Application(strCookieURL & "STRFLOODCHECKTIME")
strPollCreate = Application(strCookieURL & "STRPOLLCREATE")
strFeaturedPoll = Application(strCookieURL & "STRFEATUREDPOLL")
strNewReg = Application(strCookieURL & "STRNEWREG")
strQuickReply = Application(strCookieURL & "STRQUICKREPLY")
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
%>