case "topic.asp"
      strQuery = fQuery
      fTopic_ID = analyzeQuery(strQuery, "TOPIC_ID")
      if fTopic_ID = "" then
        strPage = fLang(strLangMOD_Ls3kAU_01270)
      else
	    strQuery = fQuery
        if lcase(analyzeQuery(strQuery, "ARCHIVE")) = "true" then
          strSql = "SELECT FORUM_ID, TOPIC_ID, T_SUBJECT FROM " & strTablePrefix & "A_TOPICS WHERE TOPIC_ID=" & fTopic_ID
        else
          strSql = "SELECT FORUM_ID, TOPIC_ID, T_SUBJECT FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & fTopic_ID
        end if
		strSQL = Replace(strSql,"==","=")
        set rst = my_conn.execute(strSql)
        if rst.EOF or rst.BOF then
          strPage = fLang(strLangMOD_Ls3kAU_01270) 
        else
          fSubject = rst("T_SUBJECT")
          fForum_ID = rst("FORUM_ID")
          rst.close
          set rst = nothing
          if chkForumAccess(fForum_ID, MemberID, false) then
            strQuery = fQuery
			if lcase(analyzeQuery(strQuery, "ARCHIVE")) = "true" then
              strPage = fLang(strLangMOD_Ls3kAU_01310) & "<br><a target=""_blank"" href=""topic.asp?" & fQuery & """>"
            else
              strPage = fLang(strLangMOD_Ls3kAU_01320) & "<br><a target=""_blank"" href=""topic.asp?" & fQuery & """>"
            end if
            strPage = strPage & fSubject
          else
            strOnlineLocation = fLang(strLangMOD_Ls3kAU_01330)
          end if
        end if
      end if