<%@language="VBScript"%>
<% Response.Expires = -1 %>
<!--#include file="inc/kontrola-prihlaseni.asp" -->
<!--#include file="inc/conn.asp" -->
<% 
ulozeno = ""

'zboží z obchodu
if request("stranka") = "obch-zbozi.asp" and isnumeric(request("poradi")) = true then
	poradi = clng(request("poradi"))
	'kontrola překročení počtu zboží
	Set rs = CreateObject("ADODB.RecordSet")
	strSQL = "SELECT MAX(razeni) FROM zbozi WHERE id_zbozi_kat = " & request("obch_zbozi_id_kat") & " AND smazano = 0"
	rs.Open strSQL, conn, 1, 1
	poradi_max = rs(0)
	rs.close
	if poradi > poradi_max then
		poradi = poradi_max
	end if
	
	Set rs = CreateObject("ADODB.RecordSet")
	strSQL = "SELECT razeni FROM zbozi WHERE id_zbozi = " & request("id_zbozi")
	rs.Open strSQL, conn, 2, 3
	poradi_stare = rs("razeni")
	if not poradi = poradi_stare then
		'úprava pořadí
		if poradi < poradi_stare then
			Set rs2 = CreateObject("ADODB.RecordSet")
			strSQL = "SELECT razeni FROM zbozi WHERE id_zbozi_kat = " & request("obch_zbozi_id_kat") & " AND smazano = 0 AND (razeni >= " & poradi & " AND razeni < " & poradi_stare & ")"
			rs2.Open strSQL, conn, 2, 3
			do while not rs2.eof
				rs2("razeni") = rs2("razeni") + 1
				rs2.update
				rs2.movenext
			loop
			rs2.close
		elseif poradi > poradi_stare then
			Set rs2 = CreateObject("ADODB.RecordSet")
			strSQL = "SELECT razeni FROM zbozi WHERE id_zbozi_kat = " & request("obch_zbozi_id_kat") & " AND smazano = 0 AND (razeni > " & poradi_stare & " AND razeni <= " & poradi & ")"
			rs2.Open strSQL, conn, 2, 3
			do while not rs2.eof
				rs2("razeni") = rs2("razeni") - 1
				rs2.update
				rs2.movenext
			loop
			rs2.close
		end if
		
		'uložení pořadí
		rs("razeni") = poradi
		rs.update
		rs.close
		conn.close
		
		ulozeno = "Uloženo"
	end if
end if

Response.clear
response.redirect request("stranka") & "?reload=1&chyba=" & ulozeno
 %>