<%@language="VBScript"%> <% Response.Expires = 0 %> <% 'kontrola přihlášení if session("zakaznik_id") = "" then response.clear response.redirect "zakaznik-prihlaseni.asp" end if if request("email2") = "vporadku" then 'kontrola formuláře chyba = "" if instr(request("email"),"@") = 0 or instr(request("email"),".") = 0 then chyba = chyba & "
Zadali jste chybný formát e-mailu" end if if not chyba = "" then chyba = right(chyba,len(chyba)-4) Response.clear response.redirect "zakaznik-osobni.asp?" & request.form & "&chyba=" & server.urlencode(chyba) end if 'uložení údajů o zákazníkovi Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zakaznik WHERE id_zakaznik = " & clng(session("zakaznik_id")) rs.Open strSQL, conn, 2, 3 if not request("jmeno") = "" then rs("jmeno") = request("jmeno") end if if not request("prijmeni") = "" then rs("prijmeni") = request("prijmeni") end if if not request("email") = "" then rs("email") = request("email") end if if not request("heslo") = "" then rs("heslo") = replace(request("heslo")," ","") end if if not request("tel") = "" then rs("tel") = request("tel") end if if request("novinky") = "1" then rs("novinky") = true else rs("novinky") = false end if rs.Update rs.close 'uložení adresy doručení Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zakaznik_adr WHERE id_zakaznik = " & clng(session("zakaznik_id")) & " AND fakturacni = 0" rs.Open strSQL, conn, 2, 3 if not request("jmeno2") = "" then rs("jmeno") = request("jmeno2") end if rs("firma") = request("firma2") if not request("ulice2") = "" then rs("ulice") = request("ulice2") end if if not request("mesto2") = "" then rs("mesto") = request("mesto2") end if if not request("psc2") = "" then rs("psc") = request("psc2") end if rs.Update rs.close 'uložení fakturační adresy Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zakaznik_adr WHERE id_zakaznik = " & clng(session("zakaznik_id")) & " AND fakturacni = 1" rs.Open strSQL, conn, 2, 3 if rs.eof then rs.Addnew rs("id_zakaznik") = session("zakaznik_id") rs("fakturacni") = true end if rs("jmeno") = request("jmeno3") rs("firma") = request("firma3") rs("ulice") = request("ulice3") rs("mesto") = request("mesto3") rs("psc") = request("psc3") rs("ico") = request("ico3") rs("dic") = request("dic3") rs.Update rs.close %> <% end if Response.clear response.redirect session("cesta_web") & "zakaznik-osobni.asp?ulozeno=1" %>