<%@language="VBScript"%>
<% Response.Expires = -1 %>
<!--#include file="inc/kontrola-prihlaseni.asp" -->
<!--#include file="inc/conn.asp" -->
<% 
'kontrola
if request("id_topkat") = "" and request("submit") = "Přidat" then
	'přidání
	response.clear
	response.redirect "seznam-topkat-edit.asp?novy=1&id_topkat=" & request("id_topkat")
elseif request("id_topkat") = "" then
	response.clear
	response.redirect "seznam-topkat.asp"
end if



if request("submit") = "Editovat" then
	'editace
	response.clear
	response.redirect "seznam-topkat-edit.asp?id_topkat=" & request("id_topkat")
elseif request("submit") = "Smazat" then
	'smazání
	Set rs = CreateObject("ADODB.RecordSet")
	strSQL = "SELECT * FROM zbozi_kat_top WHERE id_zbozi_kat_top = " & clng(request("id_topkat"))
	rs.Open strSQL, conn, 2, 3
	rs.delete
	rs.update
	rs.close
	conn.close
	response.clear
	response.redirect "seznam-topkat.asp?reload=1"
end if
 %>