Look for the following lines (appx 821-828):

function analyzeQuery(strQuery, varName)
  strQuery = Mid(strQuery, instr(strQuery, varName)+1+Len(varName))
  if instr(strQuery, "&") then
    strQuery = Mid(strQuery, 1, instr(strQuery, "&"))
    strQuery = Mid(strQuery, 1, Len(strQuery)-1)
  end if
  analyzeQuery = strQuery 
end function

Replace it with this:

function analyzeQuery(strQuery, varName)
  strQuery = Mid(strQuery, instr(1,strQuery, varName,1)+1+Len(varName))
  if instr(strQuery, "&") then
    strQuery = Mid(strQuery, 1, instr(strQuery, "&"))
    strQuery = Mid(strQuery, 1, Len(strQuery)-1)
  end if
  analyzeQuery = strQuery 
end function

		case "topic.asp"
			strQuery = fQuery
			fTopic_ID = analyzeQuery(strQuery, "TOPIC_ID")
			if fTopic_ID = "" or isNull(fTopic_ID) then
				strPage = fLang(strLangMOD_Ls3kAU_01270)
			else
				If Request.QueryString("ARCHIVE")>"" Then strTable="A_TOPICS" Else strTable="TOPICS"
				If Request.QueryString("TOPIC_ID")>"" Then
					If isNumeric(Request.QueryString("TOPIC_ID")) Then
						strSql="SELECT FORUM_ID, TOPIC_ID, T_SUBJECT FROM " & strTablePrefix & strTable &" WHERE TOPIC_ID=" & Request.QueryString("TOPIC_ID")
						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
							if chkForumAccess(fForum_ID, MemberID, false) then
								strQuery = fQuery
								if lcase(analyzeQuery(strQuery, "ARCHIVE")) = "true" then
									strPage = fLang(strLangMOD_Ls3kAU_01310) & "<br><a href=""topic.asp?" & fQuery & """>"
								else
									strPage = fLang(strLangMOD_Ls3kAU_01320) & "<br><a href=""topic.asp?" & fQuery & """>"
								end if
								strPage = strPage & fSubject
							else
								strOnlineLocation = fLang(strLangMOD_Ls3kAU_01330)
							end if
						end if
						set rst = nothing
					end if
				end if
			end if