PREGLED PRIJAVLJENIH NATJECATELJA

Odaberite / Choose:                  
<% dim rsItems, sortiranje, sort2 Set rsItems = Server.CreateObject("ADODB.Recordset") if Request("sort2") = "drzava" then sort2 = " ORDER BY drzava, ime_kluba ASC" else sort2 = " ORDER BY ime_kluba, drzava ASC" end if if request.Form("Sortiranje") <> "" then sortiranje = " WHERE dobna_kategorija LIKE '" & request.form("dob") & "' AND tezinska_kategorija LIKE '" & request.form("tezina") & "'" else sortiranje = "" end if i = 0 SQL = "SELECT klubovi.*, natjecatelji.* FROM klubovi INNER JOIN natjecatelji ON klubovi.id = natjecatelji.id " & sortiranje & 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 "Nisu nađeni natjecatelji [" & request.form("dob") & " " & request.Form("tezina") & "]" end if rsItems.Close %>
Br. <% if Request("sort2") = "klub" then %>   <% end if %> Klub <% if Request("sort2") = "drzava" then %>   <% end if %> Država Ime i Prezime Dobna Kat. Težinska Kat.
<%= i %>  <%= Ucase(rsItems("ime_kluba")) %> <%= Ucase(rsItems("drzava")) %> <%= Ucase(rsitems("prezime_ime")) %> <%= rsItems("dobna_kategorija")%> <%= rsItems("tezinska_kategorija") %>