if Cat_Status = 0 then
				strAltText = "Category"
			elseif Forum_Status = 0 then
				strAltText = "Forum"
			else
				strAltText = "Topic"
			end if
			if Topic_Last_Post < lastdate then
				Response.Write	getCurrentIcon(strIconFolderLocked,strAltText,"locked")
			else
				Response.Write	getCurrentIcon(strIconFolderNewLocked,strAltText,"locked")
			end if

			if Cat_Status = 0 then
				strAltText = "Category Locked"
			elseif Forum_Status = 0 then
				strAltText = "Forum Locked"
			else
				strAltText = "Topic Locked"
			end if
			if Topic_Last_Post < lastdate then
				Response.Write	getCurrentIcon(strIconFolderLocked,strAltText,"hspace=""0""")
			else
				Response.Write	getCurrentIcon(strIconFolderNewLocked,strAltText,"hspace=""0""")
			end if

				' DEM --> Added code for topic moderation
				if Topic_Status = 2 then
					UnApprovedFound = "Y"
					Response.Write 	getCurrentIcon(strIconFolderUnmoderated,"Topic Not Moderated","hspace=""0""") & "</a>" & vbNewline
				elseif Topic_Status = 3 then
					HeldFound = "Y"
					Response.Write 	getCurrentIcon(strIconFolderHold,"Topic on Hold","hspace=""0""") & "</a>" & vbNewline
					' DEM --> end of code Added for topic moderation

				' DEM --> Added code for topic moderation
				if Topic_Status = 2 then
					UnApprovedFound = "Y"
					Response.Write 	getCurrentIcon(strIconFolderUnmoderated,"Topic Not Moderated","hspace=""0""")
				elseif Topic_Status = 3 then
					HeldFound = "Y"
					Response.Write 	getCurrentIcon(strIconFolderHold,"Topic on Hold","hspace=""0""")
					' DEM --> end of code Added for topic moderation