<%@language="VBScript"%> <% Response.Expires = -1 %> <% smazat_infobox = false stranka = "obch-zak" %> <% if request("filtr") <> "" then session("filtr" & stranka) = request("filtr") end if %>

<% 'řazení záznamů if request("seradit" & stranka) <> "" then if right(request("seradit" & stranka),2) = "_n" then session("seradit" & stranka) = left(request("seradit" & stranka),len(request("seradit" & stranka))-2) & " ASC" else session("seradit" & stranka) = left(request("seradit" & stranka),len(request("seradit" & stranka))-2) & " DESC" end if elseif session("seradit" & stranka) = "" then session("seradit" & stranka) = "prijmeni ASC" end if 'filtrování kategorie if session("filtr" & stranka) <> "" then filtr_kat = "" else filtr_kat = "" end if 'vyhledávání if request("q") <> "" then if request("form") = "1" then session("vyhledavani_sloupec" & stranka) = session("seradit" & stranka) end if session("vyhledavani" & stranka) = "q=" & request("q") q = request("q") query = "q=" & q & "&" q = replace(q,"''","''''") q = replace(q,"'","") q = replace(q,"''''","''") sloupec = session("vyhledavani_sloupec" & stranka) sloupec = replace(sloupec," ASC","") sloupec = replace(sloupec," DESC","") if sloupec = "prijmeni" then vyhl = " AND (prijmeni LIKE '%" & q & "%' OR jmeno LIKE '%" & q & "%')" else vyhl = " AND " & sloupec & " LIKE '%" & q & "%'" end if else session("vyhledavani" & stranka) = "" end if filtr = filtr_kat & vyhl Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT TOP 100000 * FROM zakaznik WHERE id_zakaznik > 0 " & filtr & " ORDER BY " & session("seradit" & stranka) rs.Open strSQL, conn, 1, 1 pocet_zaznamu = rs.recordcount %> <% if request("q") <> "" then %>

Hledaný výraz <%= request("q") %> | zrušit vyhledávání

<% end if %> 0 then %> CLASS="razeni"<% end if %>> 0 then %>n<% else %>d<% end if %>">ID<% if instr(session("seradit" & stranka),"id_zakaznik DESC") > 0 then %>

<% elseif instr(session("seradit" & stranka),"id_zakaznik ASC") > 0 then %>

<% end if %> 0 then %> CLASS="razeni"<% end if %>> 0 then %>n<% else %>d<% end if %>">Jméno<% if instr(session("seradit" & stranka),"prijmeni DESC") > 0 then %>

<% elseif instr(session("seradit" & stranka),"prijmeni ASC") > 0 then %>

<% end if %> 0 then %> CLASS="razeni"<% end if %>> 0 then %>n<% else %>d<% end if %>">Shop<% if instr(session("seradit" & stranka),"shop DESC") > 0 then %>

<% elseif instr(session("seradit" & stranka),"shop ASC") > 0 then %>

<% end if %> 0 then %> CLASS="razeni"<% end if %>> 0 then %>n<% else %>d<% end if %>">E-mail<% if instr(session("seradit" & stranka),"email DESC") > 0 then %>

<% elseif instr(session("seradit" & stranka),"email ASC") > 0 then %>

<% end if %> 0 then %> CLASS="razeni"<% end if %>> 0 then %>n<% else %>d<% end if %>">Telefon<% if instr(session("seradit" & stranka),"tel DESC") > 0 then %>

<% elseif instr(session("seradit" & stranka),"tel ASC") > 0 then %>

<% end if %> 0 then %> CLASS="razeni"<% end if %>> 0 then %>n<% else %>d<% end if %>">Registrace<% if instr(session("seradit" & stranka),"datum DESC") > 0 then %>

<% elseif instr(session("seradit" & stranka),"datum ASC") > 0 then %>

<% end if %> 0 then %> CLASS="razeni"<% end if %>> 0 then %>n<% else %>d<% end if %>">IP adresa<% if instr(session("seradit" & stranka),"ip_adresa DESC") > 0 then %>

<% elseif instr(session("seradit" & stranka),"ip_adresa ASC") > 0 then %>

<% end if %> 0 then %> CLASS="razeni"<% end if %>> 0 then %>n<% else %>d<% end if %>">Novinky<% if instr(session("seradit" & stranka),"novinky DESC") > 0 then %>

<% elseif instr(session("seradit" & stranka),"novinky ASC") > 0 then %>

<% end if %> 0 then %> CLASS="razeni"<% end if %>> 0 then %>n<% else %>d<% end if %>">Kredity<% if instr(session("seradit" & stranka),"kr DESC") > 0 then %>

<% elseif instr(session("seradit" & stranka),"kr ASC") > 0 then %>

<% end if %> 0 then %> CLASS="razeni"<% end if %>> 0 then %>n<% else %>d<% end if %>">Objednávky<% if instr(session("seradit" & stranka),"objednano DESC") > 0 then %>

<% elseif instr(session("seradit" & stranka),"objednano ASC") > 0 then %>

<% end if %> <% if session("admin_bikestore_hlavni") = "1" then %> 0 then %> CLASS="razeni"<% end if %>> 0 then %>n<% else %>d<% end if %>">Zisk<% if instr(session("seradit" & stranka),"objednano_zisk DESC") > 0 then %>

<% elseif instr(session("seradit" & stranka),"objednano_zisk ASC") > 0 then %>

<% end if %> <% end if %> 0 then %> CLASS="razeni"<% end if %>> 0 then %>n<% else %>d<% end if %>">Sleva<% if instr(session("seradit" & stranka),"sleva DESC") > 0 then %>

<% elseif instr(session("seradit" & stranka),"sleva ASC") > 0 then %>

<% end if %> 0 then %> CLASS="razeni"<% end if %>> 0 then %>n<% else %>d<% end if %>">Poznámka<% if instr(session("seradit" & stranka),"poznamka2_zadano DESC") > 0 then %>

<% elseif instr(session("seradit" & stranka),"poznamka2_zadano ASC") > 0 then %>

<% end if %> <% if not rs.eof then if request("vse") = "1" then rs.PageSize = rs.recordcount else rs.PageSize = 100 end if If request("str") = "" then rs.AbsolutePage = 1 strana = 1 else if rs.pagecount < clng(request("str")) then rs.AbsolutePage = rs.pagecount strana = rs.pagecount else rs.AbsolutePage = request("str") strana = clng(request("str")) end if End if For i = 1 to rs.PageSize %> " ONCLICK="if(odkaz == true){document.location.href = 'obch-zak-edit.asp?id_zakaznik=<%= rs("id_zakaznik") %>'}" ONMOUSEOVER="barva_pozadi(this,true,'')" ONMOUSEOUT="barva_pozadi(this,false,'')" ONCONTEXTMENU="menu(event, this,'zbozi.asp')"> <% if session("admin_bikestore_hlavni") = "1" then %> <% end if %> <% pocet_zaznamu = pocet_zaznamu + 1 rs.movenext if rs.eof then exit for end if next end if %>

<%= rs("id_zakaznik") %>

<%= rs("prijmeni") %><%= " " & rs("jmeno") %>

<%= ucase(rs("shop")) %>

"><%= rs("email") %>

<%= rs("tel") %>

<%= formatdatetime(rs("datum"),2) %>

<%= rs("ip_adresa") %>

<% if rs("novinky") = true then %>ano<% else %>ne<% end if %>

<%= rs("kr") %>

Nové: <% if isnull(rs("objednano_nove")) = true then %>0<% else %><%= formatnumber(rs("objednano_nove"),0) %><% end if %> (<%= rs("objednavek_nove") %>)
Vyřízené: <% if isnull(rs("objednano")) = true then %>0<% else %><%= formatnumber(rs("objednano"),0) %><% end if %> (<%= rs("objednavek") %>)
Stornované: <% if isnull(rs("objednano_storno")) = true then %>0<% else %><%= formatnumber(rs("objednano_storno"),0) %><% end if %> (<%= rs("objednavek_storno") %>)

<% if isnull(rs("objednano_zisk")) = true then %>0<% else %><%= formatnumber(rs("objednano_zisk"),0) %><% end if %>

<%= rs("sleva") %>% <% if rs("id_sleva_karty") = 1 then %>B<% elseif rs("id_sleva_karty") = 2 then %>S<% elseif rs("id_sleva_karty") = 3 then %>G<% end if %>

<%= rs("poznamka2") %>

<% rs.close conn.close %>