Jag har nu stött på nästa problem i min kod...
Microsoft VBScript runtime error '800a004c'
Path not found
/blogg/Includes/inc-configuration.asp, line 85
Och koden jag kör (varning för lång kod)
Raden under " 'load language file " är rad 85 som den klagar på.
<%
'dimension variables
dim intBlogEnabled, intBlogTimeOffset, intBlogAccountRegistration, intBlogAccountAuthorisation, intBlogLinkEnabled, intBlogLinkLimit, intBlogFeedEnabled, intBlogFeedLimit
dim strBlogEmailComponent, strBlogEmailHost, strBlogEmailAddress, strBlogEmailSignature, intBlogEmailNotification, intBlogEmailVerification, intBlogArticleLimit
dim intBlogGalleryEnabled, intBlogGalleryHeight, intBlogGalleryWidth, intBlogCommentEnabled, intBlogCommentModeration, intBlogCommentRegistration, intBlogCommentLimit, intBlogSearchLimit, intBlogEventsEnabled, intBlogPrivate
dim intBlogArchiveEnabled, intBlogArchiveDuration, intBlogGravatarEnabled, intBlogGravatarDimensions, strBlogGravatarRating, intBlogFeedCharacters, intBlogArticlePaging
dim strBlogTitle, strBlogDescription, strBlogTheme, strBlogLocation, strBlogTimeFormat, strBlogMetaKeywords, strBlogMetaDescription, strBlogSidebar
'load blog configuration
sub load_config()
application.lock
'dimension variables
dim rsConfiguration, sqlConfiguration
'grab configuration values
set rsConfiguration = server.createobject("adodb.recordset")
sqlConfiguration = "SELECT Blog_Enabled, Blog_Name, Blog_Description, Blog_Theme, Blog_Location, Blog_Time_Format, Blog_Time_Offset, Blog_Account_Registration, Blog_Account_Authorisation, Blog_Link_Enabled, Blog_Link_Limit, Blog_Feed_Enabled, Blog_Feed_Limit, Blog_Email_Component, Blog_Email_Host, Blog_Email_Address, Blog_Email_Signature, Blog_Email_Notification, Blog_Email_Verification, Blog_Article_Limit, Blog_Search_Limit, Blog_Events_Enabled, Blog_Gallery_Enabled, Blog_Gallery_Height, Blog_Gallery_Width, Blog_Comment_Enabled, Blog_Comment_Moderation, Blog_Comment_Registration, Blog_Comment_Limit, Blog_Meta_Keywords, Blog_Meta_Description, Blog_Private, Blog_Sidebar, Blog_Archive_Enabled, Blog_Archive_Duration, Blog_Feed_Characters, Blog_Gravatar_Enabled, Blog_Gravatar_Dimensions, Blog_Gravatar_Rating, Blog_Feed_Characters, Blog_Article_Paging FROM FB_Configuration;"
rsConfiguration.cursorlocation = 3
rsConfiguration.open sqlConfiguration, adoConn
if not (rsConfiguration.bof or rsConfiguration.eof) then
application("Blog_Enabled") = rsConfiguration("Blog_Enabled")
application("Blog_Name") = SQL_decode(rsConfiguration("Blog_Name"))
application("Blog_Description") = SQL_decode(rsConfiguration("Blog_Description"))
application("Blog_Theme") = SQL_decode(rsConfiguration("Blog_Theme"))
application("Blog_Location") = rsConfiguration("Blog_Location")
application("Blog_Time_Format") = rsConfiguration("Blog_Time_Format")
application("Blog_Time_Offset") = rsConfiguration("Blog_Time_Offset")
application("Blog_Account_Registration") = rsConfiguration("Blog_Account_Registration")
application("Blog_Account_Authorisation") = rsConfiguration("Blog_Account_Authorisation")
application("Blog_Link_Enabled") = rsConfiguration("Blog_Link_Enabled")
application("Blog_Link_Limit") = rsConfiguration("Blog_Link_Limit")
application("Blog_Feed_Enabled") = rsConfiguration("Blog_Feed_Enabled")
application("Blog_Feed_Limit") = rsConfiguration("Blog_Feed_Limit")'
application("Blog_Email_Component") = rsConfiguration("Blog_Email_Component")
application("Blog_Email_Host") = SQL_decode(rsConfiguration("Blog_Email_Host"))
application("Blog_Email_Address") = SQL_decode(rsConfiguration("Blog_Email_Address"))
application("Blog_Email_Signature") = SQL_decode(rsConfiguration("Blog_Email_Signature"))
application("Blog_Email_Notification") = rsConfiguration("Blog_Email_Notification")
application("Blog_Email_Verification") = rsConfiguration("Blog_Email_Verification")
application("Blog_Article_Limit") = rsConfiguration("Blog_Article_Limit")
application("Blog_Search_Limit") = rsConfiguration("Blog_Search_Limit")
application("Blog_Events_Enabled") = rsConfiguration("Blog_Events_Enabled")
application("Blog_Gallery_Enabled") = rsConfiguration("Blog_Gallery_Enabled")
application("Blog_Gallery_Height") = rsConfiguration("Blog_Gallery_Height")
application("Blog_Gallery_Width") = rsConfiguration("Blog_Gallery_Width")
application("Blog_Comment_Enabled") = rsConfiguration("Blog_Comment_Enabled")
application("Blog_Comment_Moderation") = rsConfiguration("Blog_Comment_Moderation")
application("Blog_Comment_Registration") = rsConfiguration("Blog_Comment_Registration")
application("Blog_Comment_Limit") = rsConfiguration("Blog_Comment_Limit")
application("Blog_Meta_Keywords") = SQL_decode(rsConfiguration("Blog_Meta_Keywords"))
application("Blog_Meta_Description") = SQL_decode(rsConfiguration("Blog_Meta_Description"))
application("Blog_Private") = rsConfiguration("Blog_Private")
application("Blog_Sidebar") = SQL_decode(rsConfiguration("Blog_Sidebar"))
application("Blog_Archive_Enabled") = rsConfiguration("Blog_Archive_Enabled")
application("Blog_Archive_Duration") = rsConfiguration("Blog_Archive_Duration")
application("Blog_Gravatar_Enabled") = rsConfiguration("Blog_Gravatar_Enabled")
application("Blog_Gravatar_Dimensions") = rsConfiguration("Blog_Gravatar_Dimensions")
application("Blog_Gravatar_Rating") = rsConfiguration("Blog_Gravatar_Rating")
application("Blog_Feed_Characters") = rsConfiguration("Blog_Feed_Characters")
application("Blog_Article_Paging") = rsConfiguration("Blog_Article_Paging")
end if
rsConfiguration.close
set rsConfiguration = nothing
'increment query count
intQuery = intQuery + 1
application("cfgLoaded") = true
application.unlock
end sub
'load ids data
sub load_ids_strings()
'dimension variables
dim strTempValue, objFSO, objTextStream, arrStrings, i, strStrings
application.lock
'load language file
set objFSO = server.createobject("Scripting.FileSystemObject")
set objTextStream = objFSO.opentextfile(server.mappath("\") & Blog_Folder(application("Blog_Location"), true) &"Includes\strings-" & strLanguage & ".txt",1)
strStrings = objTextStream.readall
objTextStream.close
set objFSO = nothing
'create string array
if strStrings <> "" then arrStrings = split(strStrings,vbCrLf)
'loop through all translations
for i = 0 to ubound(arrStrings)
if arrStrings(i) <> "" and left(arrStrings(i),1) <> ";" then
strTempValue = mid(arrStrings(i),instr(arrStrings(i),",")+1)
'replace global variables as needed
strTempValue = replace(strTempValue,"$BLOGTITLE$",strBlogTitle)
strTempValue = replace(strTempValue,"$BLOGLOCATION$",strBlogLocation)
strTempValue = replace(strTempValue,"$SEARCHLIMIT$",intBlogSearchLimit)
'set application parameter
application("ids_"& left(arrStrings(i),instr(arrStrings(i),",")-1)) = strTempValue
end if
next
application("idsLoaded") = true
application.unlock
end sub
'check whether configration file is loaded
if not application("cfgLoaded") then
call load_config()
end if
'set global variables
intBlogEnabled = application("Blog_Enabled")
strBlogTitle = application("Blog_Name")
strBlogDescription = application("Blog_Description")
strBlogTheme = application("Blog_Theme")
strBlogLocation = application("Blog_Location")
strBlogTimeFormat = application("Blog_Time_Format")
intBlogTimeOffset = application("Blog_Time_Offset")
intBlogAccountRegistration = application("Blog_Account_Registration")
intBlogAccountAuthorisation = application("Blog_Account_Authorisation")
intBlogLinkEnabled = application("Blog_Link_Enabled")
intBlogLinkLimit = application("Blog_Link_Limit")
intBlogFeedEnabled = application("Blog_Feed_Enabled")
intBlogFeedLimit = application("Blog_Feed_Limit")'
strBlogEmailComponent = application("Blog_Email_Component")
strBlogEmailHost = application("Blog_Email_Host")
strBlogEmailAddress = application("Blog_Email_Address")
strBlogEmailSignature = application("Blog_Email_Signature")
intBlogEmailNotification = application("Blog_Email_Notification")
intBlogEmailVerification = application("Blog_Email_Verification")
intBlogArticleLimit = application("Blog_Article_Limit")
intBlogSearchLimit = application("Blog_Search_Limit")
intBlogEventsEnabled = application("Blog_Events_Enabled")
intBlogGalleryEnabled = application("Blog_Gallery_Enabled")
intBlogGalleryHeight = application("Blog_Gallery_Height")
intBlogGalleryWidth = application("Blog_Gallery_Width")
intBlogCommentEnabled = application("Blog_Comment_Enabled")
intBlogCommentModeration = application("Blog_Comment_Moderation")
intBlogCommentRegistration = application("Blog_Comment_Registration")
intBlogCommentLimit = application("Blog_Comment_Limit")
strBlogMetaKeywords = application("Blog_Meta_Keywords")
strBlogMetaDescription = application("Blog_Meta_Description")
intBlogPrivate = application("Blog_Private")
strBlogSidebar = application("Blog_Sidebar")
intBlogArchiveEnabled = application("Blog_Archive_Enabled")
intBlogArchiveDuration = application("Blog_Archive_Duration")
intBlogGravatarEnabled = application("Blog_Gravatar_Enabled")
intBlogGravatarDimensions = application("Blog_Gravatar_Dimensions")
strBlogGravatarRating = application("Blog_Gravatar_Rating")
intBlogFeedCharacters = application("Blog_Feed_Characters")
intBlogArticlePaging = application("Blog_Article_Paging")
'check whether ids strings are loaded
if not application("idsLoaded") then
call load_ids_strings()
end if
%>