quote:

---

Starting at the end of Post_Info.asp:
 
	(1) Look for the lines marked O (old) at the line numbers provided.

	(2) Replace them with the lines marked N (new).
1520	
O
		strSql = strSql & " SET CAT_ID = " & cLng("0" & Request.Form("Category"))
N
		'	#### Sub-Forums Mod ####
		strSql = strSql & " SET CAT_ID = " & cLng("0" & intSetCategory)
		'	#### Sub-Forums Mod ####

1516
O
	if Err_Msg = "" then
N
	if Err_Msg = "" then
		'	#### Sub-Forums Mod ####
		'Update parent id
		if isnull(intSetParent) = FALSE then
				strSQL = "UPDATE " & strTablePrefix & "FORUM SET F_PARENT = " & intSetParent & " WHERE FORUM_ID = " & Forum_ID
		else
				strSQL = "UPDATE " & strTablePrefix & "FORUM SET F_PARENT = NULL WHERE FORUM_ID = " & Forum_ID
		end if
		my_Conn.Execute(strSQL)
		'End parent mod code -- JUST MAKE SURE YOU CHANGE THAT request.form variable!
		'	#### Sub-Forums Mod ####


1450
O
			strSql = strSql & " SET CAT_ID = " & cLng("0" & Request.Form("Category"))
N
		'	#### Sub-Forums Mod ####
			strSql = strSql & " SET CAT_ID = " & cLng("0" & intSetCategory)
		'	#### Sub-Forums Mod ####

1442
O
			strSql = strSql & " SET CAT_ID = " & cLng("0" & Request.Form("Category"))
N
		'	#### Sub-Forums Mod ####
			strSql = strSql & " SET CAT_ID = " & cLng("0" & intSetCategory)
		'	#### Sub-Forums Mod ####

1435
O
			strSql = strSql & " SET CAT_ID = " & cLng("0" & Request.Form("Category"))
N
		'	#### Sub-Forums Mod ####
			strSql = strSql & " SET CAT_ID = " & cLng("0" & intSetCategory)
		'	#### Sub-Forums Mod ####

1418
O
			strSQL = strSQL & " WHERE CAT_ID=" & cLng("0" & Request.Form("Category"))
N
		'	#### Sub-Forums Mod ####
			strSql = strSql & " WHERE CAT_ID = " & cLng("0" & intSetCategory)
		'	#### Sub-Forums Mod ####

1390
O
		strSql = strSql & " SET CAT_ID = " & cLng("0" & Request.Form("Category"))
N
		'	#### Sub-Forums Mod ####
		strSql = strSql & " SET CAT_ID = " & cLng("0" & intSetCategory)
		'	#### Sub-Forums Mod ####

1384
O
		bolCatIDChanged = (cSTr(rsCatIDCheck("CAT_ID")) <> ChkString(Request.Form("Category"), "SQLString"))
N
		'	#### Sub-Forums Mod ####
		bolCatIDChanged = (cSTr(rsCatIDCheck("CAT_ID")) <> ChkString(intSetCategory, "SQLString"))
		'	#### Sub-Forums Mod ####

1377
O
	if Err_Msg = "" then
N
	if Err_Msg = "" then
		'	#### Sub-Forums Mod ####
		'Parent Location Stuff MOD
		'## Forum_SQL - Update forum parent and cat_id in db
		'We changed lines from request.form("Category") to intSetCategory
		'Update parent id
		if isnull(intSetParent) = FALSE then
 		 	strSQL = "UPDATE " & strTablePrefix & "FORUM SET F_PARENT = " & intSetParent & " WHERE FORUM_ID = " & Forum_ID
		else
			strSQL = "UPDATE " & strTablePrefix & "FORUM SET F_PARENT = NULL WHERE FORUM_ID = " & Forum_ID
		end if
		my_Conn.Execute(strSQL)
		'End parent mod code -- JUST MAKE SURE YOU CHANGE THAT request.form variable!
		'	#### Sub-Forums Mod ####

1289
O
		strSql = strSql & Cat_ID
N
		'	#### Sub-Forums Mod ####
			strSql = strSql & intSetCategory
		if isnull(intSetParent) = FALSE then
			strSql = strSql & ", " & intSetParent
		end if
		'	#### Sub-Forums Mod ####

1270
O
		strSql = strSql & "(CAT_ID"
N
		strSql = strSql & "(CAT_ID"
		'	#### Sub-Forums Mod ####
		if isnull(intSetParent) = FALSE then
				strSql = strSql & ", " & intSetParent
		end if
		'	#### Sub-Forums Mod ####

1168
O
		strSql = strSql & Cat_ID
N
		'	#### Sub-Forums Mod ####
		strSql = strSql & intSetCategory
		if isnull(intSetParent) = FALSE then
				strSql = strSql & ", " & intSetParent
		end if
		'	#### Sub-Forums Mod ####

1146
O
		strSql = strSql & "(CAT_ID"
N
		strSql = strSql & "(CAT_ID"
		'	#### Sub-Forums Mod ####
		if isnull(intSetParent) = FALSE then
				strSql = strSql & ", F_PARENT"
		end if
		'	#### Sub-Forums Mod ####

1108-1110
O
		end if
	end if
end if
N
		end if
	end if
end if
'	#### Sub-Forums Mod ####
'Parent Location Stuff MOD
strParent = replace(request.form("Parent"), "'", "''")
if strParent <> "" then
		strParentType = left(strParent, 1)
		strParentValue = right(strParent, len(strParent) - 1)
end if
if strParentType = "F" then
		'## Forum_SQL - Find the CAT_ID if forum is now a subforum
		strSQL = "SELECT CAT_ID FROM " & strTablePrefix & "FORUM WHERE FORUM_ID = " & strParentValue & ";"
		set rsFindCat = my_Conn.Execute(strSQL)
		if not rsFindCat.eof then
				intCategoryValue = rsFindCat("CAT_ID")
		end if
		set rsFindCat = Nothing
		intSetParent = strParentValue
		intSetCategory = intCategoryValue
else
		intSetParent = NULL
		intSetCategory = strParentValue
end if
'End parent location stuff mod - Change variables below for adding a forum
'	#### Sub-Forums Mod ####

---