<%@language="VBScript"%>
<% Response.Expires = -1 %>
<!--#include file="inc/kontrola-prihlaseni.asp" -->
<!--#include file="inc/conn.asp" -->
<% 
if request("filtr2") = "" then
	'uložení údajů do databáze
	seznam = split(request("zbozi"),",")
	for start = 0 to ubound(seznam)
		if isnumeric(seznam(start)) = true then
			id_zbozi = clng(seznam(start))
			Set rs = CreateObject("ADODB.RecordSet")
			strSQL = "SELECT * FROM shop_zbozi WHERE id_shop_kat = " & request("id_shop_kat") & " AND id_zbozi = " & id_zbozi
			rs.Open strSQL, conn, 2, 3
			if rs.eof then
				rs.addnew
				rs("id_shop") = application("id_shop")
				rs("id_shop_kat") = request("id_shop_kat")
			end if
			rs("id_zbozi") = id_zbozi
			rs.update
			rs.close
			
			zbozi_seznam = zbozi_seznam & id_zbozi & ","
		end if
	next
	'promazání zboží
	if zbozi_seznam <> "" then
		zbozi_seznam = left(zbozi_seznam,len(zbozi_seznam)-1)
		strSQL = "DELETE FROM shop_zbozi WHERE id_shop_kat = " & request("id_shop_kat") & " AND id_zbozi NOT IN (" & zbozi_seznam & ")"
		conn.execute strSQL
	else
		strSQL = "DELETE FROM shop_zbozi WHERE id_shop_kat = " & request("id_shop_kat")
		conn.execute strSQL
	end if
	conn.close
else
	strSQL = "UPDATE shop_zbozi SET " & request("filtr2") & " = 0 WHERE id_shop = " & application("id_shop")
	conn.execute strSQL
	if request("zbozi") <> "" then
		strSQL = "UPDATE shop_zbozi SET " & request("filtr2") & " = 1 WHERE id_shop = " & application("id_shop") & " AND id_shop_zbozi IN (" & request("zbozi") & ")"
		conn.execute strSQL
	end if
end if


if chyba = "" then chyba = "Uloženo" end if


session("reload") = "1"
Response.clear
response.redirect "shopy-zbozi.asp?chyba=" & chyba
 %>