PREGLED PRIJAVLJENIH KLUBOVA

<% dim rsItems Set rsItems = Server.CreateObject("ADODB.Recordset") i = 0 if Request("sort2") = "drzava" then sort2 = " ORDER BY drzava ASC, ime_kluba ASC" else sort2 = " ORDER BY ime_kluba ASC, drzava ASC" end if SQL = "SELECT DISTINCTROW klubovi.id, klubovi.ime_kluba, klubovi.grad, klubovi.drzava, Count(*) AS [Count Of natjecatelji] FROM klubovi INNER JOIN natjecatelji ON klubovi.id = natjecatelji.id GROUP BY klubovi.id, klubovi.ime_kluba, klubovi.grad, klubovi.drzava" & sort2 rsItems.Open SQL, objConn if not rsItems.EOF then rsItems.MoveFirst %> <% do while not rsItems.EOF i = i + 1 %> <% rsItems.MoveNext loop else response.Write "Trenutno nije prijavljen niti jedan klub ..." end if rsItems.Close %>
Br. <% if Request("sort2") = "klub" then %>   <% end if %> Klub Grad <% if Request("sort2") = "drzava" then %>   <% end if %> Dr┼żava
<%= i %>  <%= Ucase(rsItems("ime_kluba")) %>  <%= Ucase(rsItems("grad")) %>  <%= Ucase(rsitems("drzava")) %>