<%
verify
ID = request.querystring("ID")
level = request.querystring("level")
set objDB = OpenDatabase(true)
Select case level
case 1
SQL = "Select C1.Content, Category as Category1, '' as Category2, '' as Category3, '' as Category4, '' as Category5, C1.Restricted as Restricted from Category1 C1 where ID = '" & ID & "'"
case 2
SQL = "Select C2.Content, C1.Category as Category1, C2.Category as Category2, '' as Category3, '' as Category4, '' as Category5, C2.Restricted as Restricted from Category1 C1, Category2 C2 where C2.ID = '" & ID & "' AND C2.Category1ID = C1.ID"
case 3
SQL = "Select C3.Content, C1.Category as Category1, C2.Category as Category2, C3.Category as Category3, '' as Category4, '' as Category5, C3.Restricted as Restricted from Category1 C1, Category2 C2, Category3 C3 where C3.ID = '" & ID & "' AND C3.Category2ID = C2.ID AND C3.Category1ID = C1.ID"
case 4
SQL = "Select C4.Content, C1.Category as Category1, C2.Category as Category2, C3.Category as Category3, C4.Category as Category4, '' as Category5, C4.Restricted as Restricted from Category1 C1, Category2 C2, Category3 C3, Category4 C4 where C4.ID = '" & ID & "' AND C4.Category3ID = C3.ID AND C3.Category2ID = C2.ID AND C3.Category1ID = C1.ID"
case 5
SQL = "Select C5.Content, C1.Category as Category1, C2.Category as Category2, C3.Category as Category3, C4.Category as Category4, C5.Category as Category5, C5.Restricted as Restricted from Category1 C1, Category2 C2, Category3 C3, Category4 C4, Category5 C5 where C5.ID = '" & ID & "' AND C5.Category4ID = C4.ID AND C5.Category3ID = C3.ID AND C5.Category2ID = C2.ID AND C5.Category1ID = C1.ID"
end select
set rsCategory = CreateRecordset(objDB, SQL)
section = "Content" %>
:: <%=section%>
Edit Current Subcategory
<%
rsCategory.close
set rsCategory = nothing
objDB.close
set objDB = nothing
%>