Problem after installation WWF 8.0 b (Access 2000)

'Read in the Forum configuration
If isEmpty(Application("blnConfigurationSet")) OR isNull(Application("blnConfigurationSet")) OR Application("blnConfigurationSet") = false OR blnUseApplicationVariables = false Then
    
    'Initialise the SQL variable with an SQL statement to get the configuration details from the database
    strSQL = "SELECT " & strDbTable & "Configuration.* " & _
    "FROM " & strDbTable & "Configuration" &  strDBNoLock & " " & _
    "WHERE " & strDbTable & "Configuration.ID=1;"

    
    'Query the database
    rsCommon.Open strSQL, adoCon
    
    'If there is config deatils in the recordset then read them in
    If NOT rsCommon.EOF Then
    
        'read in the configuration details from the recordset
        strWebsiteName = rsCommon("website_name")
        strMainForumName = rsCommon("forum_name")
        strWebsiteURL = rsCommon("website_path")
        strForumPath = rsCommon("forum_path")
        strMailComponent = rsCommon("mail_component")
        strMailServer = rsCommon("mail_server")
        strForumEmailAddress = rsCommon("forum_email_address")
        blnLCode = CBool(rsCommon("L_Code"))
        blnEmail = CBool(rsCommon("email_notify"))
        blnTextLinks = rsCommon("Text_link")
        blnRTEEditor = CBool(rsCommon("IE_editor"))
        intTopicPerPage = CInt(rsCommon("Topics_per_page"))
        strTitleImage = rsCommon("Title_image")
        blnEmoticons = CBool(rsCommon("Emoticons"))
        blnAvatar = CBool(rsCommon("Avatar"))
        blnEmailActivation = CBool(rsCommon("Email_activate"))
         intNumHotViews = CInt(rsCommon("Hot_views"))
        intNumHotReplies = CInt(rsCommon("Hot_replies"))
        blnSendPost = CBool(rsCommon("Email_post"))
        blnPrivateMessages = CBool(rsCommon("Private_msg"))
        intNumPrivateMessages = CInt(rsCommon("No_of_priavte_msg"))
        intThreadsPerPage = CInt(rsCommon("Threads_per_page"))
        intSpamTimeLimitSeconds = CInt(rsCommon("Spam_seconds"))
        intSpamTimeLimitMinutes = CInt(rsCommon("Spam_minutes"))
        intMaxPollChoices = CInt(rsCommon("Vote_choices"))
        blnEmailMessenger = CBool(rsCommon("Email_sys"))
        blnActiveUsers = CBool(rsCommon("Active_users"))
        blnForumClosed = CBool(rsCommon("Forums_closed"))
        blnShowEditUser = CBool(rsCommon("Show_edit"))
        blnShowProcessTime = CBool(rsCommon("Process_time"))
        blnFlashFiles = CBool(rsCommon("Flash"))
        blnShowMod = CBool(rsCommon("Show_mod"))
        blnAvatarUploadEnabled = CBool(rsCommon("Upload_avatar"))
        blnRegistrationSuspeneded = CBool(rsCommon("Reg_closed"))
        strImageTypes = rsCommon("Upload_img_types")
        strUploadFilePath = rsCommon("Upload_files_path")
        strMailServerUser = rsCommon("Mail_username")
        strMailServerPass = rsCommon("Mail_password")
        strCSSfile = rsCommon("Skin_file")
        strImagePath = rsCommon("Skin_image_path")
        response.write strImagePath
        strNavSpacer = rsCommon("Skin_nav_spacer")
        blnTopicIcon = CBool(rsCommon("Topic_icon"))
        blnLongRegForm = CBool(rsCommon("Long_reg"))
        blnCAPTCHAsecurityImages = CBool(rsCommon("CAPTCHA"))

If isEmpty(Application("blnConfigurationSet")) OR isNull(Application("blnConfigurationSet")) OR Application("blnConfigurationSet") = false OR blnUseApplicationVariables = false Then