<%@language="VBScript"%> <% Response.Expires = -1 %> "> "> <% query = replace(request.querystring,"pismeno=" & request("pismeno") & "&","") %> <% if request("pismeno") = "?" or request("pismeno") = "" then %>?  <% else %>">?  <% end if %> <% abeceda = "a-á, b, c-č, d-ď, e-é-ě, f, g, h, ch, i-í, j, k, l, m, n-ň, o-ó, p, q, r-ř, s-š, t-ť, u-ú-ů, v, w, x, y-ý, z-ž" seznam2 = split(ucase(abeceda),", ") for start = 0 to ubound(seznam2) seznam = split(seznam2(start),"-") if request("pismeno") <> seznam(0) then %>"><%= seznam(0) %>   <% else seznam_filtr = seznam2(start) %><%= seznam(0) %>   <% end if next %> |   <% if request("pismeno") <> "vse" then %>">Vše<% else %>Vše<% end if %>

 

<% 'filtrování písmena if request("pismeno") <> "?" and request("pismeno") <> "" and request("pismeno") <> "vse" and request("q") = "" then seznam = split(seznam_filtr,"-") for start = 0 to ubound(seznam) filtr = filtr & "prijmeni LIKE '" & seznam(start) & "%' OR " next filtr = left(filtr,len(filtr) - 4) filtr = " WHERE (" & filtr & ")" elseif request("pismeno") <> "vse" and request("q") = "" then filtr = " WHERE (prijmeni LIKE ' %' OR prijmeni LIKE '' OR prijmeni IS NULL)" elseif request("q") <> "" then filtr = " WHERE (prijmeni LIKE '%" & request("q") & "%' OR jmeno LIKE '%" & request("q") & "%' OR email LIKE '%" & request("q") & "%')" end if 'vyseparování odkazu pro návrat seznam = split(request("zpet"),",") odkaz = seznam(0) & ".asp?" for start = 1 to ubound(seznam) odkaz = odkaz & seznam(start) & "&" next Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zakaznik" & filtr & " ORDER BY prijmeni" rs.Open strSQL, conn, 1, 1 if not rs.eof then rs.PageSize = 100 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 %> ); window.opener.document.location.href = '<%= odkaz %>id_zakaznik=<%= rs("id_zakaznik") %>'; window.close(); return false"><%= rs("prijmeni") %> <%= rs("jmeno") %>, <%= rs("email") %>, <%= rs("tel") %>
<% rs.movenext if rs.eof then exit for end if next %> <% end if rs.close conn.close %>