sub DoAutoMoveEmail(TopicNum)
	'## Emails Topic Author if Topic Moved.  
	strSql  = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID," & strMemberTablePrefix & "MEMBERS.M_NAME, " & strMemberTablePrefix & "MEMBERS.M_EMAIL, " & strActivePrefix & "TOPICS.FORUM_ID, " & strActivePrefix & "TOPICS.T_SUBJECT "
	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strActivePrefix & "TOPICS "
	strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strActivePrefix & "TOPICS.T_AUTHOR "
	strSql = strSql & " AND   " & strActivePrefix & "TOPICS.TOPIC_ID = " & TopicNum

	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
	set rs2 = nothing
	if lcase(strEmail) = "1" then
		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 - " & Topic_Title & "." & 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=" & TopicNum & vbNewLine
		end if
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
	end if
end sub

sub DoAutoMoveEmail(TopicNum)
	'## Emails Topic Author if Topic Moved.  
	strSql  = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID," & strMemberTablePrefix & "MEMBERS.M_NAME, " & strMemberTablePrefix & "MEMBERS.M_EMAIL, " & strActivePrefix & "TOPICS.FORUM_ID, " & strActivePrefix & "TOPICS.T_SUBJECT "
	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strActivePrefix & "TOPICS "
	strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strActivePrefix & "TOPICS.T_AUTHOR "
	strSql = strSql & " AND " & strActivePrefix & "TOPICS.TOPIC_ID = " & TopicNum
	strSql = strSql & " AND  " & strMemberTablePrefix & "MEMBERS.M_STATUS <> 0"

	set rs2 = my_Conn.Execute (strSql)

	If Not rs2.EOF Then
	
		email = rs2("M_EMAIL")
		user_name = rs2("M_NAME")
		Topic_Title = rs2("T_SUBJECT")
		ForumId = rs2("FORUM_ID")
		Usernum = rs2("MEMBER_ID")
		
		rs2.close
		set rs2 = nothing
		if lcase(strEmail) = "1" then
			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 - " & Topic_Title & "." & 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=" & TopicNum & vbNewLine
			end if
	%>
	<!--#INCLUDE FILE="inc_mail.asp" -->
	<%
		end If
	Else
		rs2.Close
		Set rs2 = nothing
	End if
end sub