<%@language="VBScript"%>
<% Response.Expires = -1 %>
<!--#include file="inc/kontrola-prihlaseni.asp" -->
<!--#include file="inc/conn.asp" -->
<% 
'kontrola
if request("id_admin") = "" and request("submit") = "Přidat" then
	'přidání
	response.clear
	response.redirect "seznam-admin-edit.asp?novy=1&id_admin=" & request("id_admin")
elseif request("id_admin") = "" then
	response.clear
	response.redirect "seznam-admin.asp"
end if



if request("submit") = "Editovat" then
	'editace
	response.clear
	response.redirect "seznam-admin-edit.asp?id_admin=" & request("id_admin")
elseif request("submit") = "Smazat" then
	'smazání
	Set rs = CreateObject("ADODB.RecordSet")
	strSQL = "SELECT * FROM admin WHERE id_admin = " & clng(request("id_admin"))
	rs.Open strSQL, conn, 2, 3
	if rs("admin") = true then
		'kontrola smazání posledního hlavního administrátora
		Set rs2 = CreateObject("ADODB.RecordSet")
		strSQL = "SELECT COUNT(id_admin) FROM admin WHERE admin = 1"
		rs2.Open strSQL, conn, 1, 1
		if rs(0) = 1 then
			rs.close
			rs2.close
			conn.close
			response.clear
			response.redirect "seznam-admin.asp?chyba=Posledního hlavního administrátora nelze smazat"
		end if
	end if
	rs.delete
	rs.update
	rs.close
	conn.close
	response.clear
	response.redirect "seznam-admin.asp"
end if
 %>