/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Snitz Forums 2000 driller
Fra : Anders Boholdt-Peter~


Dato : 10-10-06 12:22

Hej,

Hvis dette er den forkerte gruppe, så beklager jeg, og vil i såfald poste
indlægget over til en eventuelt anden gruppe.

Se, jeg har netop kastet mig over installationen af Snitz Forums 2000 på min
webserver.

Jeg har oprettet et sub-domæne, så man kan tilgå forummet fra adressen
www.forum.boholdt-petersen.dk
Hver gang jeg vil køre setup-filen, får jeg følgende fejl (bemærk, at stien
er rettet så den er virtuel i forhold til den rigtige placering):

---
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.

Code : 80004005

Error Description :
'd:\migselv\hjemmeside\forum\database\snitz_forums_2000.mdb' is not a valid
path. Make sure that the path name is spelled correctly and that you are
connected to the server on which the file resides.

Click here to retry.
---

Jeg har på webserveren en mappe kaldet for database, hvor jeg kan placere de
filer i, der indeholder Microsoft Access-databasen, som jeg i dette tilfælde
ønsker at benytte.

Denne sti hedder:
d:\migselv\hjemmeside\database

Stien hvor jeg har placeret filerne til forummet i (bortset fra
database-filen) hedder:
d:\migselv\hjemmeside\forum

Jeg har følgende indhold af filen config.asp, der følger med forummet:
---
<!--#INCLUDE FILE="inc_adovbs.asp"-->
<%
'#################################################################################
'## Snitz Forums 2000 v3.4.06
'#################################################################################
'## Copyright (C) 2000-06 Michael Anderson, Pierre Gorissen,
'## Huw Reddick and Richard Kinser
'##
'## 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 (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## 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.
'##
'## Support can be obtained from our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'#################################################################################

Session.LCID = 1033 '## Do Not Edit
Response.Buffer = true

Dim strDBType, strConnString, strTablePrefix, strMemberTablePrefix,
strFilterTablePrefix '## Do Not Edit
Dim counter, ConnErrorNumber, ConnErrorDesc, blnSetup '## Do Not Edit

'#################################################################################
'## SELECT YOUR DATABASE TYPE AND CONNECTION TYPE (access, sqlserver or
mysql)
'#################################################################################
'strDBType = "sqlserver"
strDBType = "access"
'strDBType = "mysql"

'## Make sure to uncomment one of the strConnString lines and edit it so
that it points to where your database is!
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.MapPath("database/snitz_forums_2000.mdb") '## MS Access 2000 using
virtual path
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.MapPath("/database/snitz_forums_2000.mdb") '## MS Access 2000 on
Brinkster
'strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=c:\inetpub\db\snitz_forums_2000.mdb" '## MS Access 2000
'strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("snitz_forums_2000.mdb") '## MS Access 97 using virtual path
'strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("/USERNAME/db/snitz_forums_2000.mdb") '## MS Access 97 on
Brinkster
'strConnString = "DRIVER={Microsoft Access Driver (*.mdb)};
DBQ=c:\inetpub\dbroot\snitz_forums_2000.mdb" '## MS Access 97
'strConnString = "Provider=SQLOLEDB;Data
Source=SERVER_NAME;database=DB_NAME;uid=UID;pwd=PWD;" '## MS SQL Server
6.x/7.x/2000 (OLEDB connection)
'strConnString = "driver={SQL
Server};server=SERVER_NAME;uid=UID;pwd=PWD;database=DB_NAME" '## MS SQL
Server 6.x/7.x/2000 (ODBC connection)
'strConnString =
"driver=MySQL;server=SERVER_IP;uid=UID;pwd=PWD;database=DB_NAME" '## MySQL
w/ MyODBC v2.50
'strConnString = "driver={MySQL ODBC 3.51
Driver};option=16387;server=SERVER_IP;user=UID;password=PWD;DATABASE=DB_NAME;"
'##MySQL w/ MyODBC v3.51
'strConnString = "DSN_NAME" '## DSN

strTablePrefix = "FORUM_"
strMemberTablePrefix = "FORUM_"
strFilterTablePrefix = "FORUM_" 'used for BADWORDS and NAMEFILTER tables

'#################################################################################
'## If you have deleted the default Admin account, you may need to change
the
'## value below. Otherwise, it should be left unchanged. (such as with a
new
'## installation)
'#################################################################################

Const intAdminMemberID = 1

'#################################################################################
'## intCookieDuration is the amount of days before the forum cookie expires
'## You can set it to a higher value
'## For example for one year you can set it to 365
'## (default is 30 days)
'#################################################################################

Const intCookieDuration = 30

%>
<!--#INCLUDE FILE="inc_iconfiles.asp"-->
<%
'#################################################################################
'## Do Not Edit Below This Line - It could destroy your forums and lose data
'#################################################################################

Dim mLev, strLoginStatus, MemberID, strArchiveTablePrefix
Dim strVersion, strForumTitle, strCopyright, strTitleImage, strHomeURL
Dim strForumURL, strAuthType, strSetCookieToForum, strEmail, strUniqueEmail
Dim strMailMode, strMailServer, strSender, strDateType, strTimeAdjust
Dim strTimeType, strMoveTopicMode, strMoveNotify, strIPLogging,
strPrivateForums
Dim strShowModerators, strAllowForumCode, strIMGInPosts, strAllowHTML,
strNoCookies
Dim strHotTopic, intHotTopicNum, strSecureAdmin
Dim strAIM, strICQ, strMSN, strYAHOO
Dim strFullName, strPicture, strSex, strCity, strState
Dim strAge, strAgeDOB, strMinAge, strCountry, strOccupation, strBio
Dim strHobbies, strLNews, strQuote, strMarStatus, strFavLinks
Dim strRecentTopics, strAllowHideEmail, strHomepage, strUseExtendedProfile,
strIcons
Dim strGfxButtons, strEditedByDate, strBadWordFilter, strBadWords,
strDefaultFontFace
Dim strDefaultFontSize, strHeaderFontSize, strFooterFontSize,
strPageBGColor, strDefaultFontColor
Dim strLinkColor, strLinkTextDecoration, strVisitedLinkColor,
strVisitedTextDecoration
Dim strActiveLinkColor, strActiveTextDecoration, strHoverFontColor,
strHoverTextDecoration
Dim strHeadCellColor, strHeadFontColor, strCategoryCellColor,
strCategoryFontColor
Dim strForumFirstCellColor, strForumCellColor, strAltForumCellColor,
strForumFontColor
Dim strForumLinkColor, strForumLinkTextDecoration, strForumVisitedLinkColor,
strForumVisitedTextDecoration
Dim strForumActiveLinkColor, strForumActiveTextDecoration,
strForumHoverFontColor, strForumHoverTextDecoration
Dim strTableBorderColor, strPopUpTableColor, strPopUpBorderColor,
strNewFontColor, strHiLiteFontColor, strSearchHiLiteColor
Dim strTopicWidthLeft, strTopicNoWrapLeft, strTopicWidthRight,
strTopicNoWrapRight, strShowRank
Dim strRankAdmin, strRankMod, strRankColorAdmin, strRankColorMod
Dim strRankLevel0, strRankLevel1, strRankLevel2, strRankLevel3,
strRankLevel4, strRankLevel5
Dim strRankColor0, strRankColor1, strRankColor2, strRankColor3,
strRankColor4, strRankColor5
Dim intRankLevel0, intRankLevel1, intRankLevel2, intRankLevel3,
intRankLevel4, intRankLevel5
Dim strSignatures, strDSignatures, strShowStatistics, strShowImagePoweredBy,
strLogonForMail
Dim strShowPaging, strShowTopicNav, strPageSize, strPageNumberSize,
strForumTimeAdjust
Dim strNTGroups, strAutoLogon, strModeration, strSubscription,
strArchiveState, strUserNameFilter
Dim strFloodCheck, strFloodCheckTime, strTimeLimit, strEmailVal,
strProhibitNewMembers, strRequireReg, strRestrictReg
Dim strGroupCategories, strPageBGImageUrl, strImageUrl, strJumpLastPost,
strStickyTopic, strShowSendToFriend
Dim strShowPrinterFriendly, strShowTimer, strTimerPhrase,
strShowFormatButtons, strShowSmiliesTable, strShowQuickReply
Dim SubCount, MySubCount

strCookieURL = Left(Request.ServerVariables("Path_Info"),
InstrRev(Request.ServerVariables("Path_Info"), "/"))
strUniqueID = "Snitz00"
If Application(strCookieURL & "ConfigLoaded")= "" Or
IsNull(Application(strCookieURL & "ConfigLoaded")) Or blnSetup="Y" Then

on error resume next

blnLoadConfig = TRUE

set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Errors.Clear
Err.Clear

my_Conn.Open strConnString
for counter = 0 to my_conn.Errors.Count -1
ConnErrorNumber = Err.Number
ConnErrorDesc = my_Conn.Errors(counter).Description
If ConnErrorNumber <> 0 Then
If blnSetup <> "Y" Then
my_Conn.Errors.Clear
Err.Clear
Response.Redirect "setup.asp?RC=1&CC=1&strDBType=" & strDBType & "&EC="
& ConnErrorNumber & "&ED=" & Server.URLEncode(ConnErrorDesc)
else
blnLoadConfig = FALSE
end if
end if
next

my_Conn.Errors.Clear
Err.Clear

'## if the configvariables aren't loaded into the Application object
'## or after the admin has changed the configuration
'## the variables get (re)loaded

'## Forum_SQL
strSql = "SELECT * FROM " & strTablePrefix & "CONFIG_NEW "

set rsConfig = my_Conn.Execute (strSql)

for counter = 0 to my_conn.Errors.Count -1
ConnErrorNumber = Err.Number
If ConnErrorNumber <> 0 Then
If blnSetup <> "Y" Then
my_Conn.Errors.Clear
Err.Clear

strSql = "SELECT C_STRVERSION, C_STRSENDER "
strSql = strSql & " FROM " & strTablePrefix & "CONFIG "

set rsInfo = my_Conn.Execute (StrSql)
strVersion = rsInfo("C_STRVERSION")
strSender = rsInfo("C_STRSENDER")

rsInfo.Close
set rsInfo = nothing

if strVersion = "" then
strSql = "SELECT C_VALUE "
strSql = strSql & " FROM " & strTablePrefix & "CONFIG_NEW "
strSql = strSql & " WHERE C_VARIABLE = 'strVersion' "
set rsInfo = my_Conn.Execute (StrSql)
strVersion = rsInfo("C_VALUE")
rsInfo.Close
set rsInfo = nothing

strSql = "SELECT C_VALUE "
strSql = strSql & " FROM " & strTablePrefix & "CONFIG_NEW "
strSql = strSql & " WHERE C_VARIABLE = 'strSender' "
set rsInfo = my_Conn.Execute (StrSql)
strSender = rsInfo("C_VALUE")
rsInfo.Close
set rsInfo = nothing
end if

my_Conn.Close
set my_Conn = nothing

Response.Redirect "setup.asp?RC=2&MAIL=" & Server.UrlEncode(strSender) &
"&VER=" & Server.URLEncode(strVersion) & "&strDBType="& strDBType & "&EC=" &
ConnErrorNumber
else
my_Conn.Errors.Clear
blnLoadConfig = FALSE
end if

end if
next

my_Conn.Errors.Clear

if blnLoadConfig then
Application.Lock
do while not rsConfig.EOF
Application(strCookieURL & Trim(UCase(rsConfig("C_VARIABLE")))) =
Trim(rsConfig("C_VALUE"))
rsConfig.MoveNext
loop
Application.UnLock
rsConfig.close
end if

my_Conn.Close
set my_Conn = nothing

on error goto 0
Application.Lock
Application(strCookieURL & "ConfigLoaded")= "YES"
Application.UnLock
End If

' ## Read the config-info from the application variables...

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")
strMoveNotify = Application(strCookieURL & "STRMOVENOTIFY")
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 = cLng(Application(strCookieURL & "INTHOTTOPICNUM"))
strAIM = Application(strCookieURL & "STRAIM")
strICQ = Application(strCookieURL & "STRICQ")
strMSN = Application(strCookieURL & "STRMSN")
strYAHOO = Application(strCookieURL & "STRYAHOO")
strFullName = Application(strCookieURL & "STRFULLNAME")
strPicture = Application(strCookieURL & "STRPICTURE")
strSex = Application(strCookieURL & "STRSEX")
strCity = Application(strCookieURL & "STRCITY")
strState = Application(strCookieURL & "STRSTATE")
strAge = Application(strCookieURL & "STRAGE")
strAgeDOB = Application(strCookieURL & "STRAGEDOB")
strMinAge = cInt(Application(strCookieURL & "STRMINAGE"))
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")
strSignatures = Application(strCookieURL & "STRSIGNATURES")
strDSignatures = Application(strCookieURL & "STRDSIGNATURES")
strUseExtendedProfile = (cLng(strSignatures) + cLng(strBio) +
cLng(strHobbies) + cLng(strLNews) + cLng(strRecentTopics) + cLng(strPicture)
+ cLng(strQuote)) > 0
strUseExtendedProfile = strUseExtendedProfile or ((cLng(strAIM) +
cLng(strICQ) + cLng(strMSN) + cLng(strYAHOO) + (cLng(strFullName)*2) +
cLng(strSex) + cLng(strCity) + cLng(strState) + cLng(strAge) +
cLng(strCountry) + cLng(strOccupation) + (cLng(strFavLinks)*2)) > 5)
strIcons = Application(strCookieURL & "STRICONS")
strGfxButtons = Application(strCookieURL & "STRGFXBUTTONS")
strEditedByDate = Application(strCookieURL & "STREDITEDBYDATE")
strBadWordFilter = Application(strCookieURL & "STRBADWORDFILTER")
strBadWords = Application(strCookieURL & "STRBADWORDS")
strUserNameFilter = Application(strCookieURL & "STRUSERNAMEFILTER")
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")
strActiveTextDecoration = Application(strCookieURL &
"STRACTIVETEXTDECORATION")
strHoverFontColor = Application(strCookieURL & "STRHOVERFONTCOLOR")
strHoverTextDecoration = Application(strCookieURL &
"STRHOVERTEXTDECORATION")
strHeadCellColor = Application(strCookieURL & "STRHEADCELLCOLOR")
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")
strForumLinkTextDecoration = Application(strCookieURL &
"STRFORUMLINKTEXTDECORATION")
strForumVisitedLinkColor = Application(strCookieURL &
"STRFORUMVISITEDLINKCOLOR")
strForumVisitedTextDecoration = Application(strCookieURL &
"STRFORUMVISITEDTEXTDECORATION")
strForumActiveLinkColor = Application(strCookieURL &
"STRFORUMACTIVELINKCOLOR")
strForumActiveTextDecoration = Application(strCookieURL &
"STRFORUMACTIVETEXTDECORATION")
strForumHoverFontColor = Application(strCookieURL &
"STRFORUMHOVERFONTCOLOR")
strForumHoverTextDecoration = Application(strCookieURL &
"STRFORUMHOVERTEXTDECORATION")
strTableBorderColor = Application(strCookieURL & "STRTABLEBORDERCOLOR")
strPopUpTableColor = Application(strCookieURL & "STRPOPUPTABLECOLOR")
strPopUpBorderColor = Application(strCookieURL & "STRPOPUPBORDERCOLOR")
strNewFontColor = Application(strCookieURL & "STRNEWFONTCOLOR")
strHiLiteFontColor = Application(strCookieURL & "STRHILITEFONTCOLOR")
strSearchHiLiteColor = Application(strCookieURL & "STRSEARCHHILITECOLOR")
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")
strShowImagePoweredBy = Application(strCookieURL & "STRSHOWIMAGEPOWEREDBY")
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())
strNTGroups = Application(strCookieURL & "STRNTGROUPS")
strAutoLogon = Application(strCookieURL & "STRAUTOLOGON")
strModeration = Application(strCookieURL & "STRMODERATION")
strSubscription = Application(strCookieURL & "STRSUBSCRIPTION")
strArchiveState = Application(strCookieURL & "STRARCHIVESTATE")
strFloodCheck = Application(strCookieURL & "STRFLOODCHECK")
strFloodCheckTime = Application(strCookieURL & "STRFLOODCHECKTIME")
strEmailVal = Application(strCookieURL & "STREMAILVAL")
strPageBGImageUrl = Application(strCookieURL & "STRPAGEBGIMAGEURL")
strImageUrl = Application(strCookieURL & "STRIMAGEURL")
strJumpLastPost = Application(strCookieURL & "STRJUMPLASTPOST")
strStickyTopic = Application(strCookieURL & "STRSTICKYTOPIC")
strShowSendToFriend = Application(strCookieURL & "STRSHOWSENDTOFRIEND")
strShowPrinterFriendly = Application(strCookieURL &
"STRSHOWPRINTERFRIENDLY")
strProhibitNewMembers = Application(strCookieURL & "STRPROHIBITNEWMEMBERS")
strRequireReg = Application(strCookieURL & "STRREQUIREREG")
strRestrictReg = Application(strCookieURL & "STRRESTRICTREG")
strGroupCategories = Application(strCookieURL & "STRGROUPCATEGORIES")
strShowTimer = Application(strCookieURL & "STRSHOWTIMER")
strTimerPhrase = Application(strCookieURL & "STRTIMERPHRASE")
strShowFormatButtons = Application(strCookieURL & "STRSHOWFORMATBUTTONS")
strShowSmiliesTable = Application(strCookieURL & "STRSHOWSMILIESTABLE")
strShowQuickReply = Application(strCookieURL & "STRSHOWQUICKREPLY")

if strSecureAdmin = "0" then
Session(strCookieURL & "Approval") = "15916941253"
end if

if strAuthType = "db" then
strDBNTSQLName = "M_NAME"
strAutoLogon = "0"
strNTGroups = "0"
else
strDBNTSQLName = "M_USERNAME"
end if
%>
---

Er der nogle derude, der kan gennemskue, hvor fejlen ligger?

Umidelbart syntes jeg, at jeg har fortalt filen, at min database-fil ligger
det rigtige sted, men noget må der jo være gået galt.

Beklager mange gange det lange indlæg!

På forhånd mange tak for eventuelle svar.

--

/ Anders
http://www.boholdt-petersen.dk



 
 
jeppe (10-10-2006)
Kommentar
Fra : jeppe


Dato : 10-10-06 16:04

Du skal vil bare gøre som der står?

Der står at denne sti ikke er rigtig:
'd:\migselv\hjemmeside\forum\database\snitz_forums_2000.mdb'

Og så vidt jeg kunne se, sagde du den lå her:
'd:\migselv\hjemmeside\database\snitz_forums_2000.mdb'

Hvis det er rigtigt, skal du jo bare ændre stien til;
'd:\migselv\hjemmeside\database\snitz_forums_2000.mdb'

Istedet for
'd:\migselv\hjemmeside\forum\database\snitz_forums_2000.mdb'

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

Anders Boholdt-Peter~ (10-10-2006)
Kommentar
Fra : Anders Boholdt-Peter~


Dato : 10-10-06 19:17

"jeppe" <marci@marci.dk> skrev i en meddelelse
news:452bb671$0$49198$14726298@news.sunsite.dk...
> Du skal vil bare gøre som der står?

Det syntes jeg, at jeg har forsøgt.
> Der står at denne sti ikke er rigtig:
> 'd:\migselv\hjemmeside\forum\database\snitz_forums_2000.mdb'

Da den fysiske sti hvor databasefilen ligger hedder:
d:\migselv\hjemmeside\database

il jeg mene, at jeg ahr skrevet, da jeg i linien hvor man skal skrive
databasestien i onfig.asp ahr skrevet følgende:
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.MapPath("/database/snitz_forums_2000.mdb") '## MS

Hvad mangler jeg i linien ovenfor?

Jeg er ikke så god til engelsk, så derfor kan det godt være, at jeg har
overset noget i hjælpefilen.

Jeg siger endnu en gang tak for eventuelle svar.

--

/ Anders
http://www.boholdt-petersen.dk



Jørn Andersen (10-10-2006)
Kommentar
Fra : Jørn Andersen


Dato : 10-10-06 20:00

On Tue, 10 Oct 2006 20:16:47 +0200, "Anders Boholdt-Petersen"
<post-REMOVETHIS-@boholdt-petersen.dk> wrote:

>Da den fysiske sti hvor databasefilen ligger hedder:
>d:\migselv\hjemmeside\database
>
>il jeg mene, at jeg ahr skrevet, da jeg i linien hvor man skal skrive
>databasestien i onfig.asp ahr skrevet følgende:
>strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
>Server.MapPath("/database/snitz_forums_2000.mdb") '## MS
>
>Hvad mangler jeg i linien ovenfor?

Check det selv med:
Response.Write Server.MapPath("/database/snitz_forums_2000.mdb")


Good luck!

--
Jørn Andersen,
Brønshøj

Anders Boholdt-Peter~ (10-10-2006)
Kommentar
Fra : Anders Boholdt-Peter~


Dato : 10-10-06 20:42

"Jørn Andersen" <jorn@jorna.dk> skrev i en meddelelse
news:tbrni2pl18ibgc81a5vve34klce7j6ujb8@4ax.com...
> Check det selv med:
> Response.Write Server.MapPath("/database/snitz_forums_2000.mdb")

Hvis jeg gør som beskrevet, får jeg følgende sti frem:
d:\migselv\hjemmeside\forum\database\snitz_forums_2000.mdb
Som man kan se af ovenstående, er stien lige en mappe for lang, da den
fysiske sti til databasen hedder:
d:\migselv\hjemmeside\database\snitz_forums_2000.mdb

Kan man få undladt mappen forum?

Noget helt andet er, at jeg kikkede lidt i manualen til programmet.

Der fandt jeg ud af, at man kunne tilføje en ekstra linie i filen
config.asp, så man netop kunne connecte til databasen via den fysiske sti i
stedet for den virtuelle sti.

Gør jeg det, får ejg følgende fejl:
---
Microsoft VBScript compilation
error '800a0408'

Invalid character

/config.asp, line 52
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=d:\migselv\hjemmeside\database\snitz_forums_2000.mdb"
^
---

Da jeg ikke har ret meget forstand på at tyde sådanne fejlmeddelelser,
smider jeg lige indholdet af filen config.asp her i gruppen, i håb om at en
derude kan gennemskue hvor fejlen ligger.

---
<!--#INCLUDE FILE="inc_adovbs.asp"-->
<%
'#################################################################################
'## Snitz Forums 2000 v3.4.06
'#################################################################################
'## Copyright (C) 2000-06 Michael Anderson, Pierre Gorissen,
'## Huw Reddick and Richard Kinser
'##
'## 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 (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## 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.
'##
'## Support can be obtained from our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'#################################################################################

Session.LCID = 1033 '## Do Not Edit
Response.Buffer = true

Dim strDBType, strConnString, strTablePrefix, strMemberTablePrefix,
strFilterTablePrefix '## Do Not Edit
Dim counter, ConnErrorNumber, ConnErrorDesc, blnSetup '## Do Not Edit

'#################################################################################
'## SELECT YOUR DATABASE TYPE AND CONNECTION TYPE (access, sqlserver or
mysql)
'#################################################################################
'strDBType = "sqlserver"
strDBType = "access"
'strDBType = "mysql"

'## Make sure to uncomment one of the strConnString lines and edit it so
that it points to where your database is!
'strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.MapPath("database/snitz_forums_2000.mdb") '## MS

strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=d:\migselv\hjemmeside\database\snitz_forums_2000.mdb"
'Access 2000 using virtual path
'strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.MapPath("snitz_forums_2000.mdb") '## MS Access 2000 on Brinkster
'strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("snitz_forums_2000.mdb") '## MS Access 97 'using virtual path
'strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("/USERNAME/db/snitz_forums_2000.mdb") '## MS Access 97 on
Brinkster
'strConnString = "DRIVER={Microsoft Access Driver (*.mdb)};
DBQ=c:\inetpub\dbroot\snitz_forums_2000.mdb" '## MS Access 97
'strConnString = "Provider=SQLOLEDB;Data
Source=SERVER_NAME;database=DB_NAME;uid=UID;pwd=PWD;" '## MS SQL Server
6.x/7.x/2000 (OLEDB connection)
'strConnString = "driver={SQL
Server};server=SERVER_NAME;uid=UID;pwd=PWD;database=DB_NAME" '## MS SQL
Server 6.x/7.x/2000 (ODBC connection)
'strConnString =
"driver=MySQL;server=SERVER_IP;uid=UID;pwd=PWD;database=DB_NAME" '## MySQL
w/ MyODBC v2.50
'strConnString = "driver={MySQL ODBC 3.51
Driver};option=16387;server=SERVER_IP;user=UID;password=PWD;DATABASE=DB_NAME;"
'##MySQL w/ MyODBC v3.51
'strConnString = "DSN_NAME" '## DSN

strTablePrefix = "FORUM_"
strMemberTablePrefix = "FORUM_"
strFilterTablePrefix = "FORUM_" 'used for BADWORDS and NAMEFILTER tables

'#################################################################################
'## If you have deleted the default Admin account, you may need to change
the
'## value below. Otherwise, it should be left unchanged. (such as with a
new
'## installation)
'#################################################################################

Const intAdminMemberID = 1

'#################################################################################
'## intCookieDuration is the amount of days before the forum cookie expires
'## You can set it to a higher value
'## For example for one year you can set it to 365
'## (default is 30 days)
'#################################################################################

Const intCookieDuration = 30

%>
<!--#INCLUDE FILE="inc_iconfiles.asp"-->
<%
'#################################################################################
'## Do Not Edit Below This Line - It could destroy your forums and lose data
'#################################################################################

Dim mLev, strLoginStatus, MemberID, strArchiveTablePrefix
Dim strVersion, strForumTitle, strCopyright, strTitleImage, strHomeURL
Dim strForumURL, strAuthType, strSetCookieToForum, strEmail, strUniqueEmail
Dim strMailMode, strMailServer, strSender, strDateType, strTimeAdjust
Dim strTimeType, strMoveTopicMode, strMoveNotify, strIPLogging,
strPrivateForums
Dim strShowModerators, strAllowForumCode, strIMGInPosts, strAllowHTML,
strNoCookies
Dim strHotTopic, intHotTopicNum, strSecureAdmin
Dim strAIM, strICQ, strMSN, strYAHOO
Dim strFullName, strPicture, strSex, strCity, strState
Dim strAge, strAgeDOB, strMinAge, strCountry, strOccupation, strBio
Dim strHobbies, strLNews, strQuote, strMarStatus, strFavLinks
Dim strRecentTopics, strAllowHideEmail, strHomepage, strUseExtendedProfile,
strIcons
Dim strGfxButtons, strEditedByDate, strBadWordFilter, strBadWords,
strDefaultFontFace
Dim strDefaultFontSize, strHeaderFontSize, strFooterFontSize,
strPageBGColor, strDefaultFontColor
Dim strLinkColor, strLinkTextDecoration, strVisitedLinkColor,
strVisitedTextDecoration
Dim strActiveLinkColor, strActiveTextDecoration, strHoverFontColor,
strHoverTextDecoration
Dim strHeadCellColor, strHeadFontColor, strCategoryCellColor,
strCategoryFontColor
Dim strForumFirstCellColor, strForumCellColor, strAltForumCellColor,
strForumFontColor
Dim strForumLinkColor, strForumLinkTextDecoration, strForumVisitedLinkColor,
strForumVisitedTextDecoration
Dim strForumActiveLinkColor, strForumActiveTextDecoration,
strForumHoverFontColor, strForumHoverTextDecoration
Dim strTableBorderColor, strPopUpTableColor, strPopUpBorderColor,
strNewFontColor, strHiLiteFontColor, strSearchHiLiteColor
Dim strTopicWidthLeft, strTopicNoWrapLeft, strTopicWidthRight,
strTopicNoWrapRight, strShowRank
Dim strRankAdmin, strRankMod, strRankColorAdmin, strRankColorMod
Dim strRankLevel0, strRankLevel1, strRankLevel2, strRankLevel3,
strRankLevel4, strRankLevel5
Dim strRankColor0, strRankColor1, strRankColor2, strRankColor3,
strRankColor4, strRankColor5
Dim intRankLevel0, intRankLevel1, intRankLevel2, intRankLevel3,
intRankLevel4, intRankLevel5
Dim strSignatures, strDSignatures, strShowStatistics, strShowImagePoweredBy,
strLogonForMail
Dim strShowPaging, strShowTopicNav, strPageSize, strPageNumberSize,
strForumTimeAdjust
Dim strNTGroups, strAutoLogon, strModeration, strSubscription,
strArchiveState, strUserNameFilter
Dim strFloodCheck, strFloodCheckTime, strTimeLimit, strEmailVal,
strProhibitNewMembers, strRequireReg, strRestrictReg
Dim strGroupCategories, strPageBGImageUrl, strImageUrl, strJumpLastPost,
strStickyTopic, strShowSendToFriend
Dim strShowPrinterFriendly, strShowTimer, strTimerPhrase,
strShowFormatButtons, strShowSmiliesTable, strShowQuickReply
Dim SubCount, MySubCount

strCookieURL = Left(Request.ServerVariables("Path_Info"),
InstrRev(Request.ServerVariables("Path_Info"), "/"))
strUniqueID = "Snitz00"
If Application(strCookieURL & "ConfigLoaded")= "" Or
IsNull(Application(strCookieURL & "ConfigLoaded")) Or blnSetup="Y" Then

on error resume next

blnLoadConfig = TRUE

set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Errors.Clear
Err.Clear

my_Conn.Open strConnString
for counter = 0 to my_conn.Errors.Count -1
ConnErrorNumber = Err.Number
ConnErrorDesc = my_Conn.Errors(counter).Description
If ConnErrorNumber <> 0 Then
If blnSetup <> "Y" Then
my_Conn.Errors.Clear
Err.Clear
Response.Redirect "setup.asp?RC=1&CC=1&strDBType=" & strDBType & "&EC="
& ConnErrorNumber & "&ED=" & Server.URLEncode(ConnErrorDesc)
else
blnLoadConfig = FALSE
end if
end if
next

my_Conn.Errors.Clear
Err.Clear

'## if the configvariables aren't loaded into the Application object
'## or after the admin has changed the configuration
'## the variables get (re)loaded

'## Forum_SQL
strSql = "SELECT * FROM " & strTablePrefix & "CONFIG_NEW "

set rsConfig = my_Conn.Execute (strSql)

for counter = 0 to my_conn.Errors.Count -1
ConnErrorNumber = Err.Number
If ConnErrorNumber <> 0 Then
If blnSetup <> "Y" Then
my_Conn.Errors.Clear
Err.Clear

strSql = "SELECT C_STRVERSION, C_STRSENDER "
strSql = strSql & " FROM " & strTablePrefix & "CONFIG "

set rsInfo = my_Conn.Execute (StrSql)
strVersion = rsInfo("C_STRVERSION")
strSender = rsInfo("C_STRSENDER")

rsInfo.Close
set rsInfo = nothing

if strVersion = "" then
strSql = "SELECT C_VALUE "
strSql = strSql & " FROM " & strTablePrefix & "CONFIG_NEW "
strSql = strSql & " WHERE C_VARIABLE = 'strVersion' "
set rsInfo = my_Conn.Execute (StrSql)
strVersion = rsInfo("C_VALUE")
rsInfo.Close
set rsInfo = nothing

strSql = "SELECT C_VALUE "
strSql = strSql & " FROM " & strTablePrefix & "CONFIG_NEW "
strSql = strSql & " WHERE C_VARIABLE = 'strSender' "
set rsInfo = my_Conn.Execute (StrSql)
strSender = rsInfo("C_VALUE")
rsInfo.Close
set rsInfo = nothing
end if

my_Conn.Close
set my_Conn = nothing

Response.Redirect "setup.asp?RC=2&MAIL=" & Server.UrlEncode(strSender) &
"&VER=" & Server.URLEncode(strVersion) & "&strDBType="& strDBType & "&EC=" &
ConnErrorNumber
else
my_Conn.Errors.Clear
blnLoadConfig = FALSE
end if

end if
next

my_Conn.Errors.Clear

if blnLoadConfig then
Application.Lock
do while not rsConfig.EOF
Application(strCookieURL & Trim(UCase(rsConfig("C_VARIABLE")))) =
Trim(rsConfig("C_VALUE"))
rsConfig.MoveNext
loop
Application.UnLock
rsConfig.close
end if

my_Conn.Close
set my_Conn = nothing

on error goto 0
Application.Lock
Application(strCookieURL & "ConfigLoaded")= "YES"
Application.UnLock
End If

' ## Read the config-info from the application variables...

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")
strMoveNotify = Application(strCookieURL & "STRMOVENOTIFY")
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 = cLng(Application(strCookieURL & "INTHOTTOPICNUM"))
strAIM = Application(strCookieURL & "STRAIM")
strICQ = Application(strCookieURL & "STRICQ")
strMSN = Application(strCookieURL & "STRMSN")
strYAHOO = Application(strCookieURL & "STRYAHOO")
strFullName = Application(strCookieURL & "STRFULLNAME")
strPicture = Application(strCookieURL & "STRPICTURE")
strSex = Application(strCookieURL & "STRSEX")
strCity = Application(strCookieURL & "STRCITY")
strState = Application(strCookieURL & "STRSTATE")
strAge = Application(strCookieURL & "STRAGE")
strAgeDOB = Application(strCookieURL & "STRAGEDOB")
strMinAge = cInt(Application(strCookieURL & "STRMINAGE"))
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")
strSignatures = Application(strCookieURL & "STRSIGNATURES")
strDSignatures = Application(strCookieURL & "STRDSIGNATURES")
strUseExtendedProfile = (cLng(strSignatures) + cLng(strBio) +
cLng(strHobbies) + cLng(strLNews) + cLng(strRecentTopics) + cLng(strPicture)
+ cLng(strQuote)) > 0
strUseExtendedProfile = strUseExtendedProfile or ((cLng(strAIM) +
cLng(strICQ) + cLng(strMSN) + cLng(strYAHOO) + (cLng(strFullName)*2) +
cLng(strSex) + cLng(strCity) + cLng(strState) + cLng(strAge) +
cLng(strCountry) + cLng(strOccupation) + (cLng(strFavLinks)*2)) > 5)
strIcons = Application(strCookieURL & "STRICONS")
strGfxButtons = Application(strCookieURL & "STRGFXBUTTONS")
strEditedByDate = Application(strCookieURL & "STREDITEDBYDATE")
strBadWordFilter = Application(strCookieURL & "STRBADWORDFILTER")
strBadWords = Application(strCookieURL & "STRBADWORDS")
strUserNameFilter = Application(strCookieURL & "STRUSERNAMEFILTER")
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")
strActiveTextDecoration = Application(strCookieURL &
"STRACTIVETEXTDECORATION")
strHoverFontColor = Application(strCookieURL & "STRHOVERFONTCOLOR")
strHoverTextDecoration = Application(strCookieURL &
"STRHOVERTEXTDECORATION")
strHeadCellColor = Application(strCookieURL & "STRHEADCELLCOLOR")
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")
strForumLinkTextDecoration = Application(strCookieURL &
"STRFORUMLINKTEXTDECORATION")
strForumVisitedLinkColor = Application(strCookieURL &
"STRFORUMVISITEDLINKCOLOR")
strForumVisitedTextDecoration = Application(strCookieURL &
"STRFORUMVISITEDTEXTDECORATION")
strForumActiveLinkColor = Application(strCookieURL &
"STRFORUMACTIVELINKCOLOR")
strForumActiveTextDecoration = Application(strCookieURL &
"STRFORUMACTIVETEXTDECORATION")
strForumHoverFontColor = Application(strCookieURL &
"STRFORUMHOVERFONTCOLOR")
strForumHoverTextDecoration = Application(strCookieURL &
"STRFORUMHOVERTEXTDECORATION")
strTableBorderColor = Application(strCookieURL & "STRTABLEBORDERCOLOR")
strPopUpTableColor = Application(strCookieURL & "STRPOPUPTABLECOLOR")
strPopUpBorderColor = Application(strCookieURL & "STRPOPUPBORDERCOLOR")
strNewFontColor = Application(strCookieURL & "STRNEWFONTCOLOR")
strHiLiteFontColor = Application(strCookieURL & "STRHILITEFONTCOLOR")
strSearchHiLiteColor = Application(strCookieURL & "STRSEARCHHILITECOLOR")
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")
strShowImagePoweredBy = Application(strCookieURL & "STRSHOWIMAGEPOWEREDBY")
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())
strNTGroups = Application(strCookieURL & "STRNTGROUPS")
strAutoLogon = Application(strCookieURL & "STRAUTOLOGON")
strModeration = Application(strCookieURL & "STRMODERATION")
strSubscription = Application(strCookieURL & "STRSUBSCRIPTION")
strArchiveState = Application(strCookieURL & "STRARCHIVESTATE")
strFloodCheck = Application(strCookieURL & "STRFLOODCHECK")
strFloodCheckTime = Application(strCookieURL & "STRFLOODCHECKTIME")
strEmailVal = Application(strCookieURL & "STREMAILVAL")
strPageBGImageUrl = Application(strCookieURL & "STRPAGEBGIMAGEURL")
strImageUrl = Application(strCookieURL & "STRIMAGEURL")
strJumpLastPost = Application(strCookieURL & "STRJUMPLASTPOST")
strStickyTopic = Application(strCookieURL & "STRSTICKYTOPIC")
strShowSendToFriend = Application(strCookieURL & "STRSHOWSENDTOFRIEND")
strShowPrinterFriendly = Application(strCookieURL &
"STRSHOWPRINTERFRIENDLY")
strProhibitNewMembers = Application(strCookieURL & "STRPROHIBITNEWMEMBERS")
strRequireReg = Application(strCookieURL & "STRREQUIREREG")
strRestrictReg = Application(strCookieURL & "STRRESTRICTREG")
strGroupCategories = Application(strCookieURL & "STRGROUPCATEGORIES")
strShowTimer = Application(strCookieURL & "STRSHOWTIMER")
strTimerPhrase = Application(strCookieURL & "STRTIMERPHRASE")
strShowFormatButtons = Application(strCookieURL & "STRSHOWFORMATBUTTONS")
strShowSmiliesTable = Application(strCookieURL & "STRSHOWSMILIESTABLE")
strShowQuickReply = Application(strCookieURL & "STRSHOWQUICKREPLY")

if strSecureAdmin = "0" then
Session(strCookieURL & "Approval") = "15916941253"
end if

if strAuthType = "db" then
strDBNTSQLName = "M_NAME"
strAutoLogon = "0"
strNTGroups = "0"
else
strDBNTSQLName = "M_USERNAME"
end if
%>
---

Jeg siger på forhånd tak for eventuelle svar, og beklager, hvis jeg roder
rundt i de forskellige begreber!

--

/ Anders
http://www.boholdt-petersen.dk



Jørn Andersen (10-10-2006)
Kommentar
Fra : Jørn Andersen


Dato : 10-10-06 21:43

On Tue, 10 Oct 2006 21:41:46 +0200, "Anders Boholdt-Petersen"
<post-REMOVETHIS-@boholdt-petersen.dk> wrote:

>"Jørn Andersen" <jorn@jorna.dk> skrev i en meddelelse
>news:tbrni2pl18ibgc81a5vve34klce7j6ujb8@4ax.com...
>> Check det selv med:
>> Response.Write Server.MapPath("/database/snitz_forums_2000.mdb")
>
>Hvis jeg gør som beskrevet, får jeg følgende sti frem:
>d:\migselv\hjemmeside\forum\database\snitz_forums_2000.mdb
>Som man kan se af ovenstående, er stien lige en mappe for lang, da den
>fysiske sti til databasen hedder:
>d:\migselv\hjemmeside\database\snitz_forums_2000.mdb

Så er problemet nok, at du har en anden opfattelse af, hvad webroden
er, end serveren har.
Du mener, at roden er hjemmeside-mappen, mens serveren mener, at det
er forum-mappen. (Du har foremntlig kaldt den fra dit sub-domæne?)

>Kan man få undladt mappen forum?
Den enkle metode er:
strDbPhysPath = Server.MapPath("/database/snitz_forums_2000.mdb")
strDbPhysPath = Replace(strDbPhysPath, "\forum", "")

Den løsning dur så bare ikke, hvis forum'et både skal kunne køre fra
sub-domænet og fra hoved-domænet - men hvis den ikke skal det, så er
der næppe noget problem.

En anden løsning er at lade være med at bruge en absolut sti (med "/"
først), men i stedet en relativ sti - fx:
Server.MapPath("../database/snitz_forums_2000.mdb")
Tilpas selv, hvor mange "../", der skal være.

Vær opmærksom på, at opsætningen på nogle servere ikke tillader, at gå
længere tilbage end til web-roden med "../".
Det kan så også løses med en Replace ...

<snip>
>Da jeg ikke har ret meget forstand på at tyde sådanne fejlmeddelelser,
>smider jeg lige indholdet af filen config.asp her i gruppen, i håb om at en
>derude kan gennemskue hvor fejlen ligger.

<snip 500 linier kode>
Der er ingen pointe i at sende så meget kode, medmindre du bliver bedt
om det - der er (formentlig) ingen, der gider kigge så meget kode
igennem.


Good luck!

--
Jørn Andersen,
Brønshøj

Anders Boholdt-Peter~ (11-10-2006)
Kommentar
Fra : Anders Boholdt-Peter~


Dato : 11-10-06 05:08

"Jørn Andersen" <jorn@jorna.dk> skrev i en meddelelse
news:6o0oi2tnn5p0s0pgmjidimhf7n4oann9s6@4ax.com...
> Så er problemet nok, at du har en anden opfattelse af, hvad webroden
> er, end serveren har.
> Du mener, at roden er hjemmeside-mappen, mens serveren mener, at det
> er forum-mappen. (Du har foremntlig kaldt den fra dit sub-domæne?)
Korrekt.
>>Kan man få undladt mappen forum?
> Den enkle metode er:
> strDbPhysPath = Server.MapPath("/database/snitz_forums_2000.mdb")
> strDbPhysPath = Replace(strDbPhysPath, "\forum", "")
>
> Den løsning dur så bare ikke, hvis forum'et både skal kunne køre fra
> sub-domænet og fra hoved-domænet - men hvis den ikke skal det, så er
> der næppe noget problem.

Min plan var, at jeg fra hoveddomænet ville lave et link, der hedder noget i
retning af forum - klik her eller sådan noget.

Dette link skulle så fører brugerne over på sub-domænet forum.
> > En anden løsning er at lade være med at bruge en absolut sti (med "/"
> først), men i stedet en relativ sti - fx:
> Server.MapPath("../database/snitz_forums_2000.mdb")
> Tilpas selv, hvor mange "../", der skal være.

Det vil jeg kikke på.

> > Vær opmærksom på, at opsætningen på nogle servere ikke tillader, at gå
> længere tilbage end til web-roden med "../".
> Det kan så også løses med en Replace ...

Hvordan gør man dette, hvis nu min server har de begrænsninger du nævner
ovenfor?

> Der er ingen pointe i at sende så meget kode, medmindre du bliver bedt
> om det - der er (formentlig) ingen, der gider kigge så meget kode
> igennem.

Bare OK, dette havde jeg ikke lige tænkt over, men skal nok undlade dette i
fremtiden, og så kun poste det kode der driller!!!

--

/ Anders
http://www.boholdt-petersen.dk



Jørn Andersen (11-10-2006)
Kommentar
Fra : Jørn Andersen


Dato : 11-10-06 09:56

On Wed, 11 Oct 2006 06:08:22 +0200, "Anders Boholdt-Petersen"
<post-REMOVETHIS-@boholdt-petersen.dk> wrote:

<snip>
>> Den løsning dur så bare ikke, hvis forum'et både skal kunne køre fra
>> sub-domænet og fra hoved-domænet - men hvis den ikke skal det, så er
>> der næppe noget problem.
>
>Min plan var, at jeg fra hoveddomænet ville lave et link, der hedder noget i
>retning af forum - klik her eller sådan noget.

Det er helt fint.

<snip>
>> > Vær opmærksom på, at opsætningen på nogle servere ikke tillader, at gå
>> længere tilbage end til web-roden med "../".
>> Det kan så også løses med en Replace ...
>
>Hvordan gør man dette, hvis nu min server har de begrænsninger du nævner
>ovenfor?

Problemet opstår kun, hvis din db-mappe ligger "parallelt" med din
web-root:
Hvis din web-root ligger i:
drev:\sti\wwwroot\
og din db-mappe er:
drev:\sti\database\

Så kan du "lade som om", at din database ligger i wwwroot:
strDbPhysPath = Server.MapPath("/snitz_forums_2000.mdb")

og så replace "wwwroot" med "database":
strDbPhysPath = Replace(strDbPhysPath, "\wwwroot", "\database")

Prøv selv at udskrive for at se, om du kommer det rigtige sted hen.
Ellers må du tilpasse din Replace, så du rammer rigtigt

--
Jørn Andersen,
Brønshøj

jeppe (11-10-2006)
Kommentar
Fra : jeppe


Dato : 11-10-06 13:00

Nu ved jeg ikke om du har adgang til at give skrive rettigheder i mappen, men
ellers var den letteste mulighed for dig, jo så nok at simpel hen ligge den, i
den mappe som server tror den er i....

Du ville jo gerne havde den til at være her
/database/snitz_forums_2000.mdb

Men du kunne jo prøve hvis du kan give den skrive rettigheder der, at bare flytte
databasen her hen:
/forum/database/snitz_forums_2000.mdb

Da den jo så ligger der som serveren leder efter den..
...
Men igen.. Det kræver at du har adgang til at give den skrive rettigheder..
Det ved jeg ikke om man har normalt?
Da jeg typisk bruger min egen server ^^

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

Anders Boholdt-Peter~ (11-10-2006)
Kommentar
Fra : Anders Boholdt-Peter~


Dato : 11-10-06 14:57

"Jørn Andersen" <jorn@jorna.dk> skrev i en meddelelse
news:l0cpi2di505arcdk39jvfd3thofh6ku1qc@4ax.com...
> Prøv selv at udskrive for at se, om du kommer det rigtige sted hen.
> Ellers må du tilpasse din Replace, så du rammer rigtigt

Tak for alle svarene.

Nu har jeg fået det til at virke.

Jeg havde fået lavet en server path i stedet for en virtuel path.

Nu kommer tillægsspørgsmålet:

Hvad er helt præcist forskellen på en server path og en virtuel path?

På forhånd mange tak for eventuelle svar.

--

/ Anders
http://www.boholdt-petersen.dk



Søg
Reklame
Statistik
Spørgsmål : 177459
Tips : 31964
Nyheder : 719565
Indlæg : 6408195
Brugere : 218881

Månedens bedste
Årets bedste
Sidste års bedste