<%@language="VBScript"%> <% Response.Expires = -1 %> <% 'kontrola Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT COUNT(*) FROM s_prijemka WHERE id_s_dodavatel = " & request("id_dodavatel") rs.Open strSQL, conn, 1, 1 pocet = rs(0) rs.close if pocet = 0 then 'smazání Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM s_dodavatel WHERE id_s_dodavatel = " & request("id_dodavatel") rs.Open strSQL, conn, 2, 3 rs.delete rs.update rs.close else %> <% response.end end if conn.close response.clear response.redirect "dodavatel.asp" %>