set rsTCheck = my_Conn.Execute ("SELECT TOPIC_ID FROM " & strActivePrefix & "TOPICS WHERE TOPIC_ID = " & strRqTopicID)
if rsTCheck.EOF or rsTCheck.BOF then
        rsTCheck.Close
        set rsTCheck = nothing 
	Go_Result "Sorry, that Topic no longer exists in the Database"
end if
set rsTCheck = nothing

set rsStatus = my_Conn.Execute(strSql)
if rsStatus.EOF or rsStatus.BOF then
        rsStatus.close
	set rsStatus = nothing
	Go_Result "Please don't attempt to edit the URL<BR />to gain access to locked Forums/Categories."
else

if rsTCheck.EOF or rsTCheck.BOF then
        rsTCheck.Close
        set rsTCheck = nothing 
	Go_Result "Sorry, that Topic no longer exists in the Database"
end if
set rsTCheck = nothing

function Go_Result(message) 
	Response.write 	"      <BR /><div ALIGN=""center"">" & message & "</div>" &_
			"      <BR />" &_
			"      <meta http-equiv=""Refresh"" content=""2; URL=default.asp"">"
	Call WriteFooter()
	Response.end
end function