"              <p><i>URL:</i><br><input class=""text"" type=""text"" maxLength=""250"" name=""url"" id=""url"" value=""" & strForumUrl & "topic.asp?TOPIC_ID="" size=""50""></p>" & vbNewLine & _

if blnInSameForum = false then
			strSql = "UPDATE " & strTablePrefix & "TOPICS "
			strSql = strSql & " SET FORUM_ID = " & allRec(ForumID, intTargetTopic)
			strSql = strSql & ", CAT_ID = " & allRec(CatID, intTargetTopic)
			strSql = strSql & " WHERE TOPIC_ID = " & allRec(TopicID, intNotTargetTopic)
			'Response.Write strSql & "<br>"
			'Response.End
			my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
		end if

if lcase(strEmail) = "1" then 'not implemented yet
			'Send mail to author letting him know his topic was merged with another.
			'DoAutoMoveEmail(allRec(Topic_ID, intOlderTopic))
			strSql  = "SELECT M.MEMBER_ID, M.M_NAME, M.M_EMAIL, T.FORUM_ID, T.T_SUBJECT "
			strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS M, " & strActivePrefix & "TOPICS T "
			strSql = strSql & " WHERE M.MEMBER_ID = " & allRec(Topic_Author, intOtherTopic)
			strSql = strSql & " AND T.TOPIC_ID = " & allRec(TopicID, intOtherTopic)
			'Response.Write strSql
			'Response.End
			set rs2 = my_Conn.Execute (strSql)
			
			email = rs2("M_EMAIL")
			user_name = rs2("M_NAME")
			Topic_Title = rs2("T_SUBJECT")
			ForumId = rs2("FORUM_ID")
			Usernum = rs2("MEMBER_ID")
			
			rs2.close
		
			strRecipientsName = user_name
			strRecipients = email
			strSubject = strForumTitle & " - Topic Moved"
			strMessage = "Hello " & user_name & vbNewLine & vbNewLine
			strMessage = strMessage & "Your posting on " & strForumTitle & "." & vbNewLine
			strMessage = strMessage & "Regarding the subject - " & allRec(Topic_Subject, intOtherTopic) & "." & vbNewLine & vbNewLine
			
			if not(chkForumAccess(ForumID,Usernum,false)) then
				strMessage = strMessage & "Has been removed from public display. If you have any questions regarding this, please contact the Administrator of the forum" & vbNewLine
			else
				strMessage = strMessage & "Has been moved to a new forum, You can view it at " & vbNewLine & Left(Request.Form("refer"), InstrRev(Request.Form("refer"), "/")) & "topic.asp?TOPIC_ID=" & allRec(TopicID, intOlderTopic) & vbNewLine
			end if
	%>
	<!--#INCLUDE FILE="inc_mail.asp" -->
	<%
		end if