<%@language="VBScript"%> <% Response.Expires = -1 %> <% 'kontrola if request("id_sklad") = "" and request("submit") = "Přidat" then 'přidání response.clear response.redirect "seznam-sklady-edit.asp?novy=1&id_sklad=" & request("id_sklad") elseif request("id_sklad") = "" then response.clear response.redirect "seznam-sklady.asp" end if if request("submit") = "Editovat" then 'editace response.clear response.redirect "seznam-sklady-edit.asp?id_sklad=" & request("id_sklad") elseif request("submit") = "Smazat" then 'kontrola zda obsahuje sklad zboží Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT COUNT(*) FROM s_zbozi WHERE ks_sklad" & request("id_sklad") & " > 0" rs.Open strSQL, conn, 1, 1 if rs(0) > 0 then %> <% rs.close conn.close response.end end if rs.close 'smazání skladu Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM s_sklad WHERE id_s_sklad = " & request("id_sklad") rs.Open strSQL, conn, 2, 3 rs.delete 'smazání sloupce u zboží strSQL = "ALTER TABLE s_zbozi DROP COLUMN ks_sklad" & request("id_sklad") conn.execute strSQL rs.update rs.close 'vymazání application application("sklad") = "" conn.close response.clear response.redirect "seznam-sklady.asp?reload=1" end if %>