<%@language="VBScript"%> <% Response.Expires = -1 %> <% 'kontrola, zda je dostatek zboží na skladě a správného zadání počtu ks seznam = split(request("zbozi_vyber"),",") for start = 0 to ubound(seznam) - 1 id_zbozi = seznam(start) if request("ks" & id_zbozi) > 0 then ks = clng(abs(request("ks" & id_zbozi))) else ks = 1 end if Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT ks_sklad, nazev_zbozi FROM s_zbozi WHERE id_s_zbozi = " & seznam(start) rs2.Open strSQL, conn, 1, 1 ks_sklad = rs2("ks_sklad") nazev_zbozi = rs2("nazev_zbozi") rs2.close if ks_sklad < ks then %> <% response.end end if next if request("zakaznik_novy") = "1" then 'kontrola duplicity registrace if request("novy_email") <> "" then Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zakaznik WHERE email LIKE '" & sqlinjection(trim(request("novy_email"))) & "'" rs.Open strSQL, conn, 1, 1 if not rs.eof then rs.close conn.close chyba = "Zákazník s tímto emailem je již zaregistrován" %> <% response.end end if rs.close end if 'uložení zákazníka Set rs = CreateObject("ADODB.RecordSet") rs.Open "zakaznik", conn, 1, 3, 2 rs.addnew rs("datum") = cdate(FormatDateTime(now,0)) rs("ip_adresa") = Request.ServerVariables("REMOTE_ADDR") rs("jmeno") = request("novy_jmeno") rs("prijmeni") = request("novy_prijmeni") rs("email") = request("novy_email") rs("heslo") = request("novy_heslo") rs("tel") = request("novy_tel") if request("novy_sleva") > 0 then rs("sleva") = clng(request("novy_sleva")) else rs("sleva") = 0 end if if request("novy_kr") > 0 then rs("kr") = clng(request("novy_kr")) else rs("kr") = 0 end if if request("novy_novinky") = "1" then rs("novinky") = true else rs("novinky") = false end if rs.Update rs.close Set rsID = conn.execute("SELECT @@IDENTITY FROM zakaznik") id_zakaznik = rsID(0) Set rsID = nothing 'uložení adresy dodání Set rs = CreateObject("ADODB.RecordSet") rs.Open "zakaznik_adr", conn, 1, 3, 2 rs.addnew rs("id_zakaznik") = id_zakaznik rs("jmeno") = request("novy_jmeno2") rs("firma") = request("novy_firma2") rs("ulice") = request("novy_ulice2") rs("mesto") = request("novy_mesto2") rs("psc") = request("novy_psc2") rs("ico") = request("novy_ico2") rs("dic") = request("novy_dic2") rs("fakturacni") = false rs.Update rs.close 'uložení fakturační adresy Set rs = CreateObject("ADODB.RecordSet") rs.Open "zakaznik_adr", conn, 1, 3, 2 rs.addnew rs("id_zakaznik") = id_zakaznik rs("jmeno") = request("novy_jmeno3") rs("firma") = request("novy_firma3") rs("ulice") = request("novy_ulice3") rs("mesto") = request("novy_mesto3") rs("psc") = request("novy_psc3") rs("ico") = request("novy_ico3") rs("dic") = request("novy_dic3") rs("fakturacni") = true rs.Update rs.close else id_zakaznik = request("zakaznik") end if 'vyseparování údajů o zákazníkovi zakaznik = "" seznam = split(request.form,"&") for start = 0 to ubound(seznam) - 1 seznam2 = split(seznam(start),"=") zakaznik = zakaznik & seznam2(0) & "=" & request(seznam2(0)) & "&" next if request("zakaznik_novy") = "1" then zakaznik = mid(zakaznik,instrrev(zakaznik,"&novy_zakaznik_start=1&") + 22,instr(zakaznik,"&novy_zakaznik_stop=1&") - instrrev(zakaznik,"&novy_zakaznik_start=1&")) else zakaznik = mid(zakaznik,instrrev(zakaznik,"&zakaznik_start=1&") + 17,instr(zakaznik,"&zakaznik_stop=1&") - instrrev(zakaznik,"&zakaznik_start=1&")) end if 'získání dph poštovného a balného Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT dph FROM s_zbozi_dph_postovne" rs.Open strSQL, conn, 1, 1 dph_postovne = rs("dph") rs.close 'získání posledního kodu do Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT datum, kod FROM s_prodejka WHERE kod = (SELECT MAX(kod) FROM s_prodejka)" rs.Open strSQL, conn, 1, 1 'posledni kod - bez roku if not rs.eof then rok = year(rs("datum")) tisicileti = int(rok / 1000) zbytek = rok - (tisicileti * 1000) rok_kod = tisicileti & zbytek kod_bez_roku = right(rs("kod"),len(rs("kod")) - len(rok_kod)) kod_bez_roku = kod_bez_roku + 1 else kod_bez_roku = 1 end if rs.close 'nový kod - s rokem rok = year(now) tisicileti = int(rok / 1000) zbytek = rok - (tisicileti * 1000) rok_kod2 = tisicileti & zbytek kod = rok_kod2 & kod_bez_roku 'kontrola stejného kodu Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT kod FROM s_prodejka WHERE kod = " & kod rs.Open strSQL, conn, 1, 1 if rs.eof then exit do end if loop rs.close Set rs = CreateObject("ADODB.RecordSet") rs.Open "s_prodejka", conn, 1, 3, 2 rs.addnew rs("id_zakaznik") = id_zakaznik rs("id_obj") = 0 rs("datum") = cdate(FormatDateTime(now,0)) rs("kod") = kod if request("postovne") > 0 then rs("postovne") = clng(request("postovne")) else rs("postovne") = 0 end if if request("balne") > 0 then rs("balne") = clng(request("balne")) else rs("balne") = 0 end if rs("poznamka") = request("poznamka") rs("zakaznik") = zakaznik if request("zakaznik_novy") = "1" then if request("novy_fakturacni") = "1" then rs("fakturacni_adr") = false else rs("fakturacni_adr") = true end if else if request("fakturacni") = "1" then rs("fakturacni_adr") = false else rs("fakturacni_adr") = true end if end if rs("id_platba") = request("platba") rs("cena_celkem") = 0 rs("dph_postovne") = dph_postovne rs("admin") = session("admin_bikestore") rs("datum_dph") = cdate(FormatDateTime(now,0)) rs.Update rs.close Set rsID = conn.execute("SELECT @@IDENTITY FROM s_prodejka") id_s_prodejka = rsID(0) Set rsID = nothing 'uložení prodejky2 kr_celkem = 0 seznam = split(request("zbozi_vyber"),",") for start = 0 to ubound(seznam) - 1 id_zbozi = seznam(start) if request("ks" & id_zbozi) > 0 then ks = clng(abs(request("ks" & id_zbozi))) else ks = 1 end if 'získání kreditů Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT cena_vazena, kr, dph_nakup, nazev_zbozi, dph_prodej FROM s_zbozi WHERE id_s_zbozi = " & id_zbozi rs.Open strSQL, conn, 1, 1 kr = rs("kr") kr_celkem = kr_celkem + rs("kr") dph_nakup = rs("dph_nakup") nazev_zbozi = rs("nazev_zbozi") dph_prodej = rs("dph_prodej") cena_vazena = rs("cena_vazena") rs.close 'uložení prodejky2 Set rs = CreateObject("ADODB.RecordSet") rs.Open "s_prodejka2", conn, 1, 3, 2 rs.addnew rs("id_s_prodejka") = id_s_prodejka rs("id_s_zbozi") = id_zbozi rs("kod2") = "" rs("ks") = request("ks" & id_zbozi) rs("cena") = request("cena" & id_zbozi) rs("sleva") = request("sleva" & id_zbozi) rs("kr") = kr if request("kr_pouzite" & id_zbozi) <= kr then rs("kr_pouzite") = request("kr_pouzite" & id_zbozi) else rs("kr_pouzite") = 0 end if rs("cena_vazena") = cena_vazena rs("dph") = dph_prodej rs("zbozi") = nazev_zbozi rs("dph_cena_vazena") = dph_nakup rs.update rs.close cena_celkem_prodejka = cena_celkem_prodejka + (request("cena" & id_zbozi) * request("ks" & id_zbozi)) 'úprava poču ks ve skladu sklad = "" id_s_zbozi = id_zbozi ks = ks %> <% 'úprava počtu blokovaného zboží skladem a stav dostupnosti id_s_zbozi = id_zbozi %> <% next 'uložení celkové ceny Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT cena_celkem FROM s_prodejka WHERE id_s_prodejka = " & id_s_prodejka rs.Open strSQL, conn, 2, 3 rs("cena_celkem") = cena_celkem_prodejka rs.update rs.close 'za kolik zákazník celkem objednal, kredity, slevy id_zakaznik = id_zakaznik kr_zakaznik = kr_celkem %> <% session("zbozi_vyber") = "" conn.close Response.clear response.redirect "prodejky-edit.asp?id_prodejka=" & id_s_prodejka %>