<%@language="VBScript"%> <% Response.Expires = 0 %> <% if request("email2") = "vporadku" then 'uložení query do session session("kosik_obj3_query") = "" seznam = split(request.form,"&") for start = 0 to ubound(seznam) seznam2 = split(seznam(start),"=") session("kosik_obj3_query") = session("kosik_obj3_query") & seznam2(0) & "=" & replace(request.form(seznam2(0)),"""","") & "&" next 'uložení sessions if request("jmeno3") = "" and request("firma3") = "" and request("ulice3") = "" and request("mesto3") = "" and request("psc3") = "" and request("ico3") = "" and request("dic3") = "" then session("kosik_fa_adresa") = "" else session("kosik_fa_adresa") = request("kosik_fa_adresa") end if session("kosik_ulozit_adr_dodani") = "1" session("kosik_ulozit_adr_fa") = "1" chyba = "" 'kontrola duplicity e-mailu if session("zakaznik_id") = "" then Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT id_zakaznik, heslo FROM zakaznik WHERE email LIKE '" & sqlinjection2(trim(request("email"))) & "' AND id_shop = 0" rs.Open strSQL, conn, 1, 1 if not rs.eof then chyba = chyba & "
Zákazník s tímto emailem je již zaregistrován. Změňte zadaný e-mail nebo se přihlašte." end if rs.close end if 'kontrola formuláře if request("jmeno") = "" then chyba = chyba & "
Zadejte jméno" end if if request("prijmeni") = "" then chyba = chyba & "
Zadejte příjmení" end if if request("email") = "" then chyba = chyba & "
Zadejte e-mail" else if instr(request("email"),"@") = 0 or instr(request("email"),".") = 0 then chyba = chyba & "
Zadali jste chybný formát e-mailu" end if end if if request("heslo") = "" then chyba = chyba & "
Zadejte heslo" end if if request("jmeno2") = "" then chyba = chyba & "
Zadejte jméno a příjmení" end if if request("ulice2") = "" then chyba = chyba & "
Zadejte ulici" end if if request("mesto2") = "" then chyba = chyba & "
Zadejte město" end if if request("psc2") = "" then chyba = chyba & "
Zadejte psč" end if if session("kosik_druh") = "3" then if request("ico2") = "" then chyba = chyba & "
Zadejte ičo" end if end if if not chyba = "" then chyba = right(chyba,len(chyba)-4) Response.clear response.redirect "kosik-obj3.asp?" & request.form & "&chyba=" & server.urlencode(chyba) end if end if Response.clear response.redirect session("cesta_web") & "kosik-obj5.asp" %>