<%@language="VBScript"%> <% Response.Expires = -1 %> <% 'kontrola if request("id_znacka") = "" and request("submit") = "Přidat" then 'přidání response.clear response.redirect "seznam-znacky-edit.asp?novy=1&id_znacka=" & request("id_znacka") elseif request("id_znacka") = "" then response.clear response.redirect "seznam-znacky.asp" end if 'kontrola Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT COUNT(*) FROM s_zbozi WHERE id_s_znacka = " & request("id_znacka") rs.Open strSQL, conn, 1, 1 pocet = rs(0) rs.close if pocet = 0 then if request("submit") = "Editovat" then 'editace response.clear response.redirect "seznam-znacky-edit.asp?id_znacka=" & request("id_znacka") else 'smazání Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM s_znacka WHERE id_s_znacka = " & request("id_znacka") rs.Open strSQL, conn, 2, 3 rs.delete rs.update rs.close end if else %> <% response.end conn.close response.clear response.redirect "seznam-znacky.asp?reload=1" end if %>