<%@language="VBScript"%> <% Response.Expires = 0 %> <% 'odhlášení if request("odhlasit") = "1" then 'vymazání sessions - zákazník session("zakaznik_id") = "" session("zakaznik_jmeno") = "" session("zakaznik_sleva") = "" session("zakaznik_id_sleva_karty") = "" 'vymazání sessions - košík session("kosik") = "" session("kosik_ks_celkem") = "" session("kosik_cena_celkem") = "" for each ses in Session.Contents if instr(ses,"kosik_darky") > 0 then ses = "" end if next 'vymazání sessions - ostatní session("kosik_fa_adresa") = "" session("kosik_ulozit_adr_dodani") = "" session("kosik_ulozit_adr_fa") = "" session("kosik_obj3_query") = "" 'vymazání cookies - zákazník a košík Response.Cookies ("zakaznik_" & session("server")).Expires = now()-5 Response.Cookies ("kosik_" & session("server")).Expires = now()-5 Response.clear response.redirect "zakaznik-prihlaseni.asp?odhlasit=1" end if if request("email2") = "vporadku" then 'kontrola formuláře chyba = "" if request("email") = "" then chyba = chyba & "
Zadejte e-mail" end if if request("heslo2") = "" then chyba = chyba & "
Zadejte heslo" end if if chyba = "" then Set rs_zakaznik = CreateObject("ADODB.RecordSet") strSQL = "SELECT id_zakaznik, jmeno, prijmeni, id_sleva_karty, sleva FROM zakaznik WHERE email LIKE '" & sqlinjection2(request("email")) & "' AND heslo LIKE '" & sqlinjection2(request("heslo2")) & "' AND id_shop = 0" rs_zakaznik.Open strSQL, conn, 1, 1 if rs_zakaznik.eof then chyba = chyba & "
Zadali jste špatný e-mail nebo heslo (pokud jste si při registraci zadali mezeru do hesla, byla automaticky smazána)" else 'přihlášení session("zakaznik_id") = rs_zakaznik("id_zakaznik") session("zakaznik_jmeno") = rs_zakaznik("jmeno") & " " & rs_zakaznik("prijmeni") session("zakaznik_sleva") = rs_zakaznik("sleva") session("zakaznik_id_sleva_karty") = rs_zakaznik("id_sleva_karty") 'za kolik zákazník celkem objednal, slevy id_zakaznik = rs_zakaznik("id_zakaznik") %> <% end if rs_zakaznik.close end if end if 'přesměrování na správnou stránku if not chyba = "" then conn.close chyba = right(chyba,len(chyba)-4) if request("obj") = "" then Response.clear response.redirect "zakaznik-prihlaseni.asp?" & request.form & "&chyba=" & server.urlencode(chyba) else Response.clear response.redirect "kosik-obj3.asp?" & request.form & "&chyba=" & server.urlencode(chyba) end if else %> <% if request("obj") = "" then response.clear response.redirect "zakaznik.asp" else response.clear response.redirect "kosik-obj3.asp" end if end if %>