<% If Session(strCookieURL & "Approval") = "15916941253" Then %> <% if Request.Form("Method_Type") = "Write_Configuration" then if Request.Form("NumberCategories") <> "" then i = 1 do until i > cint(Request.Form("NumberCategories")) SelectName = Request.Form("SortCategory" & i) if isNull(SelectName) then SelectName = cint(Request.Form("NumberCategories")) SelectID = Request.Form("SortCatID" & i) NumberForums = Request.Form("NumberForums" & SelectID) '## Forum_SQL - Do DB Update strSql = "UPDATE " & strTablePrefix & "CATEGORY " strSql = strSql & " SET CAT_ORDER = " & SelectName & " " strSql = strSql & " WHERE CAT_ID = " & SelectID & " " my_Conn.Execute (strSql) if NumberForums <> "" then j = 1 do until j > cint(Request.Form("NumberForums" & SelectID)) SelectNamec = Request.Form("SortCat" & i & "SortForum" & j) if isNull(SelectNamec) then SelectNamec = cint(Request.Form("NumberForums" & SelectID)) SelectIDc = Request.Form("SortCatID" & i & "SortForumID" & j) '## Forum_SQL - Do DB Update strSql = "UPDATE " & strTablePrefix & "FORUM " strSql = strSql & " SET F_ORDER = " & SelectNamec & " " strSql = strSql & " WHERE FORUM_ID = " & SelectIDc & " " strSql = strSql & " AND CAT_ID = " & SelectID & " " my_Conn.Execute (strSql) j = j + 1 loop end if i = i + 1 loop end if Response.Write "

" & vbNewline & _ "" & _ "Order Submitted!

" & vbNewline ' Response.Write "

" & vbNewline & _ "" & _ "Congratulations!

" & vbNewline else Response.Write "" & vbNewline Response.Write "" & vbNewline & _ "" '## Forum_SQL - Get all Forums From DB strSql = "SELECT CAT_ID, CAT_STATUS, CAT_NAME, CAT_ORDER " & _ " FROM " & strTablePrefix & "CATEGORY" & _ " ORDER BY CAT_ORDER, CAT_NAME " set rs = Server.CreateObject("ADODB.Recordset") if strDBType = "mysql" then '## Forum_SQL strSql2 = "SELECT COUNT(CAT_ID) AS PAGECOUNT " & _ " FROM " & strTablePrefix & "CATEGORY" set rsCount = my_Conn.Execute(strSql2) categorycount = rsCount("PAGECOUNT") rsCount.close rs.open strSql, my_Conn, 3 else rs.cachesize = 20 rs.open strSql, my_Conn, 3 rs.movefirst rs.pagesize = 1 categorycount = cint(rs.pagecount) end if Response.Write "" & vbNewline Response.Write " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ "
" & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline if rs.EOF or rs.BOF then Response.Write " " & vbNewline & _ "" & vbNewline & _ " " & vbNewline else catordercount = 1 do until rs.EOF '## Forum_SQL - Build SQL to get forums via category strSql = "SELECT FORUM_ID, F_SUBJECT, CAT_ID, F_TYPE, F_ORDER " & _ "FROM " & strTablePrefix & "FORUM" & _ " WHERE CAT_ID = " & rs("CAT_ID") & _ " ORDER BY F_ORDER ASC, F_SUBJECT ASC;" set rsForum = Server.CreateObject("ADODB.Recordset") rsForum.open strSql, my_Conn, 3 if NOT (rsForum.EOF or rsForum.BOF) then rsForum.movefirst rsForum.pagesize = 1 end if if strDBType = "mysql" then '## Forum_SQL strSql2 = "SELECT COUNT(F.FORUM_ID) AS PAGECOUNT " strSql2 = strSql2 & " FROM " & strTablePrefix & "FORUM F" strSql2 = strSql2 & " WHERE F.CAT_ID = " & rs("CAT_ID") set rsCount = my_Conn.Execute(strSql2) forumcount = rsCount("PAGECOUNT") rsCount.close set rsCount = nothing else forumcount = cint(rsForum.pagecount) end if Response.Write" " & vbNewline chkDisplayHeader = true if rsForum.eof or rsForum.bof then Response.Write " " & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ "" & vbNewline & _ " " & vbNewline else forumordercount = 1 do until rsForum.Eof ' if ChkDisplayForum(rsForum("FORUM_ID")) then if rsForum("F_TYPE") <> "1" then intForumCount = intForumCount + 1 end if if chkDisplayHeader then Response.Write " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline chkDisplayHeader = false end if Response.Write " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline ' end if ' ChkDisplayForum() forumordercount = forumordercount + 1 rsForum.MoveNext loop end if catordercount = catordercount + 1 rs.MoveNext loop end if Response.Write " " & _ " " & vbNewline & _ " " & vbNewline & _ "
" & _ "Category/Forum" & _ "Order
No Categories/Forums Found" & _ "
" & _ "" & ChkString(rs("CAT_NAME"),"display") & _ "" SelectName = "SortCategory" & catordercount SelectID = "SortCatID" & catordercount Response.Write " " & vbNewline & _ "
" & _ "" & _ "No Forums Found
" & _ "" & ChkString(rs("CAT_NAME"),"display") & _ "" SelectName = "SortCategory" & catordercount SelectID = "SortCatID" & catordercount Response.Write " " & vbNewline Response.Write "
" & _ "     " & _ ChkString(rsForum("F_SUBJECT"),"display") & _ "" & vbNewline SelectName = "SortCat" & catordercount & "SortForum" & forumordercount SelectID = "SortCatID" & catordercount & "SortForumID" & forumordercount Response.Write " " & vbNewline Response.Write "
" & vbNewline & _ " " & vbNewline & _ "
" & vbNewline & _ "
" & vbNewline & _ "" & vbNewline & _ rs.close rsForum.close set rs = nothing set rsForum = nothing end if Response.Write "
" & vbNewline %> <% Else Response.Redirect "admin_login_short.asp?target=admin_config_order.asp" End if %>