<%@language="VBScript"%> <% Response.Expires = -1 %> <% Server.ScriptTimeout = 300 'uložení dodavatel id_s_dodavatel = request("dodavatel") if request("dodavatel_novy") = "1" then Set rs = CreateObject("ADODB.RecordSet") rs.Open "s_dodavatel", conn, 1, 3, 2 rs.addnew rs("jmeno") = request("jmeno") rs("firma") = request("firma") rs("ulice") = request("ulice") rs("mesto") = request("mesto") rs("psc") = request("psc") rs("email") = request("email") rs("mobil") = request("mobil") rs("tel1") = request("tel1") rs("tel2") = request("tel2") rs("fax") = request("fax") rs("icq") = request("icq") rs("skype") = request("skype") rs.Update rs.close Set rsID = conn.execute("SELECT @@IDENTITY FROM s_dodavatel") id_s_dodavatel = rsID(0) Set rsID = nothing end if 'uložení příjemky Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM s_prijemka WHERE id_s_prijemka = " & request("id_prijemka") rs.Open strSQL, conn, 2, 3 rs("id_s_dodavatel") = id_s_dodavatel rs("kod") = request("kod") rs("postovne") = request("postovne") rs("balne") = request("balne") rs("postovne_s_dph") = request("postovne_s_dph") rs("balne_s_dph") = request("balne_s_dph") rs("doprava") = request("doprava") rs("poznamka") = request("poznamka") rs("cena_po_sleve_celkem") = request("cena_celkem") rs("cena_po_sleve_celkem_dph") = request("cena_celkem_dph") if isdate(request("datum_vystaveni")) = true then rs("datum_vystaveni") = request("datum_vystaveni") end if if isdate(request("datum_splatnost")) = true then rs("datum_splatnost") = request("datum_splatnost") end if rs("cena_doklad_dph0") = request("cena_doklad_dph0") rs("cena_doklad_dph1") = request("cena_doklad_dph1") rs("cena_doklad_dph2") = request("cena_doklad_dph2") rs("cena_doklad_dph3") = request("cena_doklad_dph3") rs.Update rs.close %>