<%@language="VBScript"%> <% Response.Expires = -1 %> <% cas_zacatek = timer 'smazání prodejky Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM s_prodejka WHERE id_s_prodejka = " & request("id_prodejka") rs.Open strSQL, conn, 2, 3 id_obj = rs("id_obj") id_s_dobropis = rs("id_s_dobropis") datum = rs("datum") id_zakaznik = rs("id_zakaznik") rs.delete rs.update rs.close 'obnovení objednávky if id_obj > 0 then Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT prodejka, stav FROM obj WHERE id_obj = " & id_obj rs.Open strSQL, conn, 2, 3 if not rs.eof then rs("prodejka") = false rs("stav") = 1 rs.update end if rs.close end if 'smazání prodejky2 kr_celkem = 0 Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM s_prodejka2 WHERE id_s_prodejka = " & request("id_prodejka") rs.Open strSQL, conn, 2, 3 do while not rs.eof id_prodejka = rs("id_s_prodejka") id_s_zbozi = rs("id_s_zbozi") kr_celkem = kr_celkem + rs("kr") 'úprava poču ks ve skladu sklad = "" ks = rs("ks") id_s_zbozi = id_s_zbozi %> <% 'úprava počtu blokovaného zboží skladem a stav dostupnosti id_s_zbozi = id_s_zbozi %> <% rs.delete rs.Update rs.movenext loop rs.close if id_s_dobropis > 0 then 'smazání dobropisu strSQL = "DELETE FROM s_dobropis WHERE id_s_dobropis = " & id_s_dobropis conn.execute strSQL 'smazání dobropisu2 strSQL = "DELETE FROM s_dobropis2 WHERE id_s_dobropis = " & id_s_dobropis conn.execute strSQL end if 'za kolik zákazník celkem objednal, kredity, slevy id_zakaznik = id_zakaznik %> <% conn.close if request("obj") = "1" then response.clear response.redirect "obch-obj.asp" else response.clear response.redirect "prodejky.asp" end if %>