<!--#include File="Config.asp" -->
<!--#include File="includes/inc_top.asp" -->
<!--#include File="includes/inc_bbcode.asp" -->

<%
LanguageParser.IncludeSection "admin"

if (isadmin(userid) or isModerator(userid) <> "0") and inside = 1 then%>
<table width="<%=strTable%>" align="<%=strAlign%>" border="0" cellspacing="1" cellpadding="4" class="aspbbmain">
  <tr class="aspbbcolormain"> 
    <td valign="top" class="aspbbcolormain"> Admin</td>
  </tr>
  <tr class="aspbbcolor1"> 
    <td height="100" valign="top">
        <table width="<%=strTable%>" align="<%=strAlign%>">
        <tr>
		<td width="33%" valign="top">
			<ul>
				<br>
					<span class="stort"><% =langAdminForum %></span><Br>
					<li><a href="?admin=reported"><%=LangAdminReported%></a></li>
					<%If isadmin(userid) then%>
					<li><a href="?admin=cat"><% =langAdminCatSub %></a></li>
					<li><a href="?admin=badwords"><% = langAdminBadWord %></a></li>
					<li><a href="?admin=forumorder"><% =langAdminForumSort %></a></li>
					<li><a href="?admin=code"><% =langCodeLanguage %></a></li>
					<%End if%>

			</ul>
		</td>
		<td width="33%" valign="top">
			<%If isadmin(userid) then%>
			<ul>
				<br>
					<span class="stort"><% =langAdminUserSettings %></span> <Br>
					<li><a href="?admin=grp"><% =langAdminGroups %></a></li>
					<li><a href="?admin=wnb"><% =langAdminWarnBan %></a></li>
					<li><a href="?admin=elist"><% =langAdminMailList %></a></li>
			</ul>
			<%End if%>
		</td>
		<td width="33%" valign="top">
			<%If isadmin(userid) then%>
			<ul>
				<br>
					<span class="stort"><% =langAdminTools %></span> 
					<li><a href="?admin=iptool"><%= langAdminIpBan %></a></li>
					<% 	Select case db_type
							case 1
								Response.Write "<li><a href=""?admin=backup"">" & langAdminDBBackup & "</a></li>"
							case 2
								Response.Write "<li><a href=" & db_path & ">" & langAdminDBBackup &"</a></li>"
							case 3
								Response.Write "<li><p style=""text-decoration:line-through"">" & langAdminDBBackup &"</p></li>"
						End Select
					%>
			</ul>
			<%End if%>
		</td>
	</tr>
	</table>
</td>
  </tr>
</table>
<%select case request.querystring("admin")
	case "elist"
		If isadmin(userid) then%>
			<!--#Include File = "admin_inc/inc_maillist.asp" -->
		<%End if
	case "reported"%>
	<!--#Include File = "admin_inc/inc_reports.asp" -->
<% case "cat"
	If isadmin(userid) then%>
		<!-- #include file="admin_inc/inc_categorys.asp" -->
	<%End if
 case "forumorder"
	If isadmin(userid) then%>
		<!-- #include file="admin_inc/inc_order.asp" -->
<%  End if
 case "badwords"
	If isadmin(userid) then%>
		<!-- #include file="admin_inc/inc_badword.asp" -->
<%  End if
case "grp"
	If isadmin(userid) then%>
		<!-- #include file="admin_inc/inc_groups.asp" -->
<% 	End if
case "wnb"
	If isadmin(userid) then%>
		<!-- #include file="admin_inc/inc_warningsbans.asp" -->
<%	End if
case "iptool"
	If isadmin(userid) then%>
		<!-- #include file="admin_inc/inc_iptool.asp" -->
<%	End if
case "backup"
	If isadmin(userid) then%>
		<!-- #include file="admin_inc/inc_backup.asp" -->
<%	End if
case "code"
	If isadmin(userid) then%>
		<!-- #include file="admin_inc/inc_code.asp" -->
<%	End if

end select
else
	response.write LanguageParser.GetKey("errors", "NoAccess")
end if
%>
<a name="botten"> </a>
<!-- #include file="includes/inc_footer.asp" -->